PC World 1998 October/PCWorld_1998-10_cd.bin/software/prehled/komix/DATA.Z/m_genapp_sheet.srm

Text File | 1997-09-30 | 9KB | 420 lines

$PBExportHeader$m_genapp_sheet.srm
$PBExportComments$Generated MDI sheet menu
forward
global type m_genapp_sheet from m_genapp_frame
end type
type m_edit from menu within m_genapp_sheet
end type
type m_undo from menu within m_edit
end type
type m_-4 from menu within m_edit
end type
type m_cut from menu within m_edit
end type
type m_copy from menu within m_edit
end type
type m_paste from menu within m_edit
end type
type m_clear from menu within m_edit
end type
type m_edit from menu within m_genapp_sheet
m_undo m_undo
m_-4 m_-4
m_cut m_cut
m_copy m_copy
m_paste m_paste
m_clear m_clear
end type
type m_window from menu within m_genapp_sheet
end type
type m_tilevertical from menu within m_window
end type
type m_tilehorizontal from menu within m_window
end type
type m_layer from menu within m_window
end type
type m_cascade from menu within m_window
end type
type m_-5 from menu within m_window
end type
type m_arrangeicons from menu within m_window
end type
type m_window from menu within m_genapp_sheet
m_tilevertical m_tilevertical
m_tilehorizontal m_tilehorizontal
m_layer m_layer
m_cascade m_cascade
m_-5 m_-5
m_arrangeicons m_arrangeicons
end type
end forward

shared variables
// User defined attributes

// Non modeled user defined attributes

end variables

global type m_genapp_sheet from m_genapp_frame
m_edit m_edit
m_window m_window
end type
global m_genapp_sheet m_genapp_sheet

type variables
// User defined attributes

// Association attributes

// Non modeled user defined attributes

// Control to class mappings
//    m_genapp_sheet --> m_genapp_sheet
//    m_edit --> m_edit
//    m_undo --> m_item
//    m_-4 --> m_seperator
//    m_cut --> m_item
//    m_copy --> m_item
//    m_paste --> m_item
//    m_clear --> m_item
//    m_window --> m_window
//    m_tilevertical --> m_item
//    m_tilehorizontal --> m_item
//    m_layer --> m_item
//    m_cascade --> m_item
//    m_-5 --> m_seperator
//    m_arrangeicons --> m_item
end variables

on m_genapp_sheet.create
m_genapp_sheet=this
int iCurrent
call m_genapp_frame::create
this.m_edit=create m_edit
this.m_window=create m_window
iCurrent=UpperBound(this.Item)
this.Item[iCurrent+1]=this.m_edit
this.Item[iCurrent+2]=this.m_window
this.Text = "m_genapp_sheet"
end on

on m_genapp_sheet.destroy
call m_genapp_frame::destroy
destroy(this.m_edit)
destroy(this.m_window)
end on

on m_file.create
call m_genapp_frame`m_file::create
this.Tag=""
end on

on m_new.create
call super::create
this.ToolBarItemName=""
end on

on m_open.create
call m_genapp_frame`m_open::create
this.Tag=""
end on

on m_close.create
call m_genapp_frame`m_close::create
this.Tag=""
end on

on m_-.create
call m_genapp_frame`m_-::create
this.Tag=""
end on

on m_print.create
call super::create
this.ToolBarItemName=""
this.Enabled=true
end on

on m_printersetup.create
call m_genapp_frame`m_printersetup::create
this.Tag=""
end on

on m_-2.create
call m_genapp_frame`m_-2::create
this.Tag=""
end on

on m_toolbars.create
call m_genapp_frame`m_toolbars::create
this.Tag=""
end on

on m_-1.create
call m_genapp_frame`m_-1::create
this.Tag=""
end on

on m_exit.create
call super::create
this.ToolBarItemName=""
this.ToolBarItemSpace=1
end on

on m_help.create
call m_genapp_frame`m_help::create
this.Tag=""
end on

on m_helpindex.create
call m_genapp_frame`m_helpindex::create
this.Tag=""
end on

on m_search.create
call m_genapp_frame`m_search::create
this.Tag=""
end on

on m_-3.create
call m_genapp_frame`m_-3::create
this.Tag=""
end on

on m_aboutquickapp.create
call m_genapp_frame`m_aboutquickapp::create
this.Tag=""
end on

type m_edit from menu within m_genapp_sheet
m_undo m_undo
m_-4 m_-4
m_cut m_cut
m_copy m_copy
m_paste m_paste
m_clear m_clear
end type

on m_edit.create
this.m_undo=create m_undo
this.m_-4=create m_-4
this.m_cut=create m_cut
this.m_copy=create m_copy
this.m_paste=create m_paste
this.m_clear=create m_clear
this.Item[]={ this.m_undo,&
this.m_-4,&
this.m_cut,&
this.m_copy,&
this.m_paste,&
this.m_clear}
this.Text = "&Edit"
end on

on m_edit.destroy
destroy(this.m_undo)
destroy(this.m_-4)
destroy(this.m_cut)
destroy(this.m_copy)
destroy(this.m_paste)
destroy(this.m_clear)
end on

type m_undo from menu within m_edit
end type

on m_undo.create
this.Text = "&Undo~tCtrl+Z"
this.Microhelp = "Undo last operation"
this.ToolBarItemName = "Undo!"
this.ToolBarItemText = "Undo"
this.Enabled = false
this.Shortcut = 346
end on

event clicked;// Implement this event !!
end event

type m_-4 from menu within m_edit
end type

on m_-4.create
this.Text = "-"
end on

type m_cut from menu within m_edit
end type

on m_cut.create
this.Text = "Cu&t~tCtrl+X"
this.Microhelp = "Cut text to clipboard"
this.ToolBarItemName = "Cut!"
this.ToolBarItemText = "Cut"
this.Enabled = false
this.Shortcut = 344
end on

event clicked;// Implement this event !!
end event

type m_copy from menu within m_edit
end type

on m_copy.create
this.Text = "&Copy~tCtrl+C"
this.Microhelp = "Copy text to clipboard"
this.ToolBarItemName = "Copy!"
this.ToolBarItemText = "Copy"
this.Enabled = false
this.Shortcut = 323
end on

event clicked;// Implement this event !!
end event

type m_paste from menu within m_edit
end type

on m_paste.create
this.Text = "&Paste~tCtrl+V"
this.Microhelp = "Paste text from clipboard"
this.ToolBarItemName = "Paste!"
this.ToolBarItemText = "Paste"
this.Enabled = false
this.Shortcut = 342
end on

event clicked;// Implement this event !!
end event

type m_clear from menu within m_edit
end type

on m_clear.create
this.Text = "C&lear~tDel"
this.Microhelp = "Clear text"
this.ToolBarItemName = "Clear!"
this.ToolBarItemText = "Clear"
this.Enabled = false
this.Shortcut = 46
end on

event clicked;// Implement this event !!
end event

type m_window from menu within m_genapp_sheet
m_tilevertical m_tilevertical
m_tilehorizontal m_tilehorizontal
m_layer m_layer
m_cascade m_cascade
m_-5 m_-5
m_arrangeicons m_arrangeicons
end type

on m_window.create
this.m_tilevertical=create m_tilevertical
this.m_tilehorizontal=create m_tilehorizontal
this.m_layer=create m_layer
this.m_cascade=create m_cascade
this.m_-5=create m_-5
this.m_arrangeicons=create m_arrangeicons
this.Item[]={ this.m_tilevertical,&
this.m_tilehorizontal,&
this.m_layer,&
this.m_cascade,&
this.m_-5,&
this.m_arrangeicons}
this.Text = "&Window"
this.ToolBarItemBarIndex = 2
end on

on m_window.destroy
destroy(this.m_tilevertical)
destroy(this.m_tilehorizontal)
destroy(this.m_layer)
destroy(this.m_cascade)
destroy(this.m_-5)
destroy(this.m_arrangeicons)
end on

type m_tilevertical from menu within m_window
end type

on m_tilevertical.create
this.Text = "Tile &Vertical"
this.Microhelp = "Arrange all as vertically tiled"
this.ToolBarItemName = "Tile!"
this.ToolBarItemText = "Vertical"
this.ToolBarItemSpace = 1
end on

event clicked;/* Tile sheets vertically */
w_genapp_frame.ArrangeSheets (Tile!)
end event

type m_tilehorizontal from menu within m_window
end type

on m_tilehorizontal.create
this.Text = "Tile &Horizontal"
this.Microhelp = "Arrange all as horizontally tiled"
this.ToolBarItemName = "Horizontal!"
this.ToolBarItemText = "Horizontal"
end on

event clicked;/* Tile sheets horizontally */
w_genapp_frame.ArrangeSheets (TileHorizontal!)
end event

type m_layer from menu within m_window
end type

on m_layer.create
this.Text = "&Layer"
this.Microhelp = "Arrange all as layered"
this.ToolBarItemName = "Layer!"
this.ToolBarItemText = "Layer"
end on

event clicked;/* Layer sheets */
w_genapp_frame.ArrangeSheets (Layer!)
end event

type m_cascade from menu within m_window
end type

on m_cascade.create
this.Text = "&Cascade"
this.Microhelp = "Arrange all as cascaded"
this.ToolBarItemName = "Cascade!"
this.ToolBarItemText = "Cascade"
end on

event clicked;/* Cascade sheets */
w_genapp_frame.ArrangeSheets (Cascade!)
end event

type m_-5 from menu within m_window
end type

on m_-5.create
this.Text = "-"
end on

type m_arrangeicons from menu within m_window
end type

on m_arrangeicons.create
this.Text = "Arrange &Icons"
this.Microhelp = "Arrange all icons"
this.ToolBarItemName = "ArrangeIcons!"
this.ToolBarItemText = "Arrange"
this.ToolBarItemSpace = 1
end on

event clicked;/* Arrange iconic sheets */
w_genapp_frame.ArrangeSheets (Icons!)
end event