home *** CD-ROM | disk | FTP | other *** search
- // BUFFE_PD.INC
- // 07/17, 1991
- // LS
- //
- // include file for creating generic buffer_pull_down object for edit object
- // actions - includes Exit item
-
- #IFDEF BUFFER_EXIT_PULL_DOWN.N
- #ELSE
- /Buffer_Exit_Pull_Down
- ┌───────────────┐
- │ _____________ │
- │ _____________ │
- │ _____________ │
- │ _____________ │
- ├───────────────┤
- │ _____________ │
- └───────────────┘
- /*
- #ENDIF
-
- #CHKSUB 1 1 // Verify the UI subsystem.
-
- register_object Buffer_Pull_Down
- on_item 'Buffer' send Activate_Pull_Down to (Buffer_Pull_Down( Current_Object ))
-
- object Buffer_Pull_Down is a Pull_Down_Menu Buffer_Exit_Pull_Down
- register_procedure Read_File
-
- item_list
- on_item "Clear F5" send Request_Clear
- on_item "Read" send Read_File
- on_item "Save F2" send Request_Save
- on_item "Print" send Print
- on_item "Exit Alt+F4" send Exit_Area
- end_item_list
- end_object
-