Module text_win.pkg

************************************************************************ Confidential Trade Secret. Copyright 1987-1992 Data Access Corporation, Miami FL, USA All Rights reserved DataFlex is a registered trademark of Data Access Corporation. $Source: k:\RCS\.\pkg\text_win.pkg,v $ $Revision: 1 $ $State: Exp $ $Author: james $ $Date: Apr 01 16:09:34 1997 $ $Locker: $ $Log: text_win.pkg,v $ Revision 2.1 1993/08/25 17:49:49 james Adding new main branch Revision 1.2 1993/04/28 00:20:34 james Initializing 3.04 source code. Revision 1.1 1992/09/08 14:43:09 james Initial revision Revision 1.14 92/06/10 02:27:53 lee child wrapping now saves if autosave in origin OR in current object Revision 1.13 92/06/03 15:17:46 steve-l altered Child_Wrapping for proper argument dereferencing Revision 1.12 92/06/03 15:10:46 steve-l altered child_Wrapping for new argument Revision 1.11 92/06/01 17:57:26 steve-l guarded REQUEST_SAVE behavior with server=0 | not(read-only(server)) Revision 1.10 92/05/29 19:14:53 steve-l REFRESH message altered to send entry_clear_all or entry_clear plus entry_display. Old code retained commented-out in case of later re-optimization. Revision 1.9 92/05/29 14:05:54 lee removed end_construct_* messages from mixins; now, classes that use the mixin send the message that used to be sent by the end_construct_* message (for efficiency). Revision 1.8 92/05/14 17:11:41 SWM Updated Copyright slug. Revision 1.7 92/03/29 18:45:20 lee added MSG_END_CONSTRUCT_OBJECT, moved ENDMAC macro stuff into END_CONSTRUCT- OBJECT procedures (in .pkgs). moved Flag_ITems to list.pkg after generalizing it based on PROTOTYPE_OBJECT instead of Whether or not it is a table-oriented object. Moved define_access_keys mechanism completely into actionbr.pkg. fixed two typos: import_class_protocol used !# instead of !3, and register- procedure used !1 instead of !2. Revision 1.6 92/03/09 19:05:02 james Added #CHKSUB directive to insure source only compiled with correct revision of compiler. Revision 1.5 92/03/05 15:44:40 steve-l Request_Superfind changed to set ERR false before calling server and to check err (with found) afterward, in case of non-file-boundary errors. Cut_Marked_Area and Paste messages altered to set Changed_State to true. Revision 1.4 92/01/13 14:49:12 steve-l Added MSG_REFRESH Revision 1.3 92/01/12 15:27:38 steve-l *** empty log message *** Revision 1.2 91/11/08 09:19:47 steve-l it ************************************************************************/ ************************************************************************ File Name: Text_Win.Pkg Creation Date: January 1, 1991 Modified Date: January 13, 1992 Author(s): Steven A. Lowe This module contains the Text_Window class definition. This package implements an editing object for variable-length text fields and sequential files. ************************************************************************/ ************************************************************************ Version: 1.0 12-92-1992 : Created Author: John J. Tuohy 1. Adds Stop_UI_State Support 2. Adds Should_Save Property // (LS) moved into server.pkg 3. Modifies Changed_State to check Should_save (fixes RT bug) (LS - undid this mod) 10-07-1993 Add include file with new exit_function procedure. RT bug 03-21-1994 (LS) v1.1 Added Non_Dependent_Item_Mixin (for manual bcst/delg). 04-08-1994 (LS) v1.1 Added DEO delegation. ************************************************************************/ ************************************************************************/ 12/22/94 JJT Merge Changes Merged the 0 class into entry_form. Added DEO delegate logic to request_???? messages. Changed Request_save to set chagned_state to false after a server-less save performs a write 05/22/95 JJT Added object_validation to focus support in request_clear and request_clear_all (also see deodlgmx.pkg) 08/29/95 JJT Fixed entry_update to respect parameters properly. 09/04/95 JJT - Code Clean up (removed dead commented code) ************************************************************************/

text_win.pkg (view source)
• import declarations
  • nesting.pkg (view source)
    include DEO nesting standard support module
  • navigate.pkg (view source)
    include DEO navigation standard support module
  • verify.pkg (view source)
    include Verification support module
  • Server.pkg (view source)
    include Server support module
  • Actionbr.pkg (view source)
    include action-bar support module
  • findedit.pkg (view source)
    include Finding/Editing support module
  • refmodes.pkg (view source)
    refresh mode constants
  • dep_item.pkg (view source)
    Auto-Dependent_Item Support v1.1
  • deodlgmx.pkg (view source)
    v1.1 DEO delegation support
• Text_Window_mixin : mixin
  Class: Text_Window SuperClass: EDIT Description: This class implements a text-editing object suitable for use with Entry_Form and Table objects, which may be bound to a sequential ASCII file or a database memo-field Usage: object tw is a Text_Window FOR file.fieldname set location to ... set right_margin to ... set size to ... end_object
  • Construct_Object()
    Operation: CONSTRUCT_OBJECT Assumption(s): none Goal(s): define an instance with appropriate keys and properties Algorithm: relies on support module constructors Usage: used internally
    • integerPrivate.Data_File
    • integerPrivate.Data_Field
  • Zoom()
  • Prompt()
  • IntegerValidate_Items(Boolean bNotFindReq)
    created for server and EntItem support returns non-zero if data invalid, 0 if no error (valid) no action by default; intended for augmentation/override NOTE: if this object's validation fails, this object should take the focus.
  • Display()
    created for Server support
  • Clear()
    created for Server support
  • Clear_All()
    created for Server support
  • Clear_Set()
    created for Server support
  • Request_Clear()
    created for FindEdit support
    • Integerobj#
    • Integerfoc
    • Integerretval
  • Request_Clear_All()
    created for FindEdit support
    • Integerobj#
    • Integerfoc
    • Integerretval
  • Request_Delete()
    created for FindEdit support
    • Integerobj#
  • Request_Save()
    created for FindEdit support
    • Integerobj#
    • IntegerchgdFlag
    • Integerretval
  • Request_Save_No_Clear()
    this allows us to save a record without it clearing regardless of the Auto_Clear_DEO_State value
    • Integeroldclr
  • Request_Find(integer mode integer entUpdtFlag)
    FindEdit support behavior
    • IntegerdataFile
    • Integersrvr#
    • IntegerdfrdState
  • Request_Superfind(integer mode)
    created for FindEdit support
    • Integerobj#
  • Child_Wrapping(integer direction integer xorigID)
    created for navigation support
    • IntegerorigID
  • Top_of_Panel()
    created for Navigation support
  • Bottom_of_Panel()
    created for Navigation support
    • IntegerlastChild
  • integerData_File(integer item#)
    created for EntItem simulation
    • Integerretval
  • set(integer item# integer newval)
    Inherited from verify_mixin
    created for EntItem simulation
  • integerData_Field(integer item#)
    created for EntItem simulation
    • Integerretval
  • integerItem_Count()
    created for EntItem simulation
  • set(integer item# integer newval)
    Inherited from verify_mixin
    created for EntItem simulation
  • Entry_Clear(integer ecflag)
    created for EntItem simulation: ecflag <> 0 means use Cleared-array
    • Integerdfile
  • Entry_Clear_All(integer ecaDoneFlag)
    created for EntItem simulation: must clear if ecaDoneFlag = 0 OR if Data_File in DONE-array
    • Integerdfile
  • Read_File()
    msg for action_bar
  • Entry_Display(integer file# integer flag)
    created for EntItem simulation and Server support: if file# = 0, display only if Data_File is in Done-array else display only if file# = Data_File
    • Integeroldval
    • IntegerdFile
  • Entry_Update(integer file# integer flag)
    created for EntItem simulation and Server support if file# = 0, display only if Data_File is in Done-array else display only if file# = Data_File
    • IntegerdFile
  • Mode_Insert()
    Operation: MODE_INSERT Assumption(s): none Goal(s): set INSERT_MODE to True Algorithm: sets INSERT_MODE to True Usage:
  • Mode_Overwrite()
    Operation: MODE_OVERWRITE Assumption(s): none Goal(s): set INSERT_MODE to False Algorithm: sets INSERT_MODE to False Usage:
  • Mark_Block()
    Operation: MARK_BLOCK Assumption(s): none Goal(s): begin mark of text block in buffer Algorithm: sets COLUMN_MODE to False and sends MARK_ON Usage:
  • Mark_Column()
    Operation: MARK_COLUMN Assumption(s): none Goal(s): mark columnar area of text in buffer Algorithm: sets COLUMN_MODE to True and sends MARK_ON Usage:
  • Cut_Marked_Area()
    Operation: CUT_MARKED_AREA Assumption(s): none Goal(s): cut marked text to ClipBoard object Algorithm: sends CUT Usage:
  • Copy_Marked_Area()
    Operation: COPY_MARKED_AREA Assumption(s): none Goal(s): copy marked text to ClipBoard Algorithm: sends CUT Usage:
  • Paste_Block()
    Operation: PASTE_BLOCK Assumption(s): none Goal(s): insert text from ClipBoard into buffer at current position Algorithm: sends PASTE to ClipBoard object Usage:
  • Update_Dependent_Items()
    Operation: UPDATE_DEPENDENT_ITEMS Assumption(s): none Goal(s): do nothing (cancels message sent by Server-mixin) Algorithm: none Usage:
  • Refresh(integer notifyMode)
  • End_Construct_Object()

References (2):

Field References (0):