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

Text File | 1997-09-30 | 7KB | 362 lines

$PBExportHeader$m_genapp_frame.srm
$PBExportComments$Generated MDI frame menu
forward
global type m_genapp_frame from menu
end type
type m_file from menu within m_genapp_frame
end type
type m_new from menu within m_file
end type
type m_open from menu within m_file
end type
type m_close from menu within m_file
end type
type m_- from menu within m_file
end type
type m_print from menu within m_file
end type
type m_printersetup from menu within m_file
end type
type m_-2 from menu within m_file
end type
type m_toolbars from menu within m_file
end type
type m_-1 from menu within m_file
end type
type m_exit from menu within m_file
end type
type m_file from menu within m_genapp_frame
m_new m_new
m_open m_open
m_close m_close
m_- m_-
m_print m_print
m_printersetup m_printersetup
m_-2 m_-2
m_toolbars m_toolbars
m_-1 m_-1
m_exit m_exit
end type
type m_help from menu within m_genapp_frame
end type
type m_helpindex from menu within m_help
end type
type m_search from menu within m_help
end type
type m_-3 from menu within m_help
end type
type m_aboutquickapp from menu within m_help
end type
type m_help from menu within m_genapp_frame
m_helpindex m_helpindex
m_search m_search
m_-3 m_-3
m_aboutquickapp m_aboutquickapp
end type
end forward

shared variables
// User defined attributes

// Non modeled user defined attributes

end variables

global type m_genapp_frame from menu
m_file m_file
m_help m_help
end type
global m_genapp_frame m_genapp_frame

type variables
// User defined attributes

// Association attributes

// Non modeled user defined attributes

// Control to class mappings
//    m_genapp_frame --> m_genapp_frame
//    m_file --> m_file
//    m_new --> m_item
//    m_open --> m_item
//    m_close --> m_item
//    m_- --> m_seperator
//    m_print --> m_item
//    m_printersetup --> m_item
//    m_-2 --> m_seperator
//    m_toolbars --> m_item
//    m_-1 --> m_seperator
//    m_exit --> m_item
//    m_help --> m_help
//    m_helpindex --> m_item
//    m_search --> m_item
//    m_-3 --> m_seperator
//    m_aboutquickapp --> m_item
end variables

on m_genapp_frame.create
m_genapp_frame=this
this.m_file=create m_file
this.m_help=create m_help
this.Item[]={ this.m_file,&
this.m_help}
this.Text = "m_genapp_frame"
end on

on m_genapp_frame.destroy
destroy(this.m_file)
destroy(this.m_help)
end on

type m_file from menu within m_genapp_frame
m_new m_new
m_open m_open
m_close m_close
m_- m_-
m_print m_print
m_printersetup m_printersetup
m_-2 m_-2
m_toolbars m_toolbars
m_-1 m_-1
m_exit m_exit
end type

on m_file.create
this.m_new=create m_new
this.m_open=create m_open
this.m_close=create m_close
this.m_-=create m_-
this.m_print=create m_print
this.m_printersetup=create m_printersetup
this.m_-2=create m_-2
this.m_toolbars=create m_toolbars
this.m_-1=create m_-1
this.m_exit=create m_exit
this.Item[]={ this.m_new,&
this.m_open,&
this.m_close,&
this.m_-,&
this.m_print,&
this.m_printersetup,&
this.m_-2,&
this.m_toolbars,&
this.m_-1,&
this.m_exit}
this.Text = "&File"
end on

on m_file.destroy
destroy(this.m_new)
destroy(this.m_open)
destroy(this.m_close)
destroy(this.m_-)
destroy(this.m_print)
destroy(this.m_printersetup)
destroy(this.m_-2)
destroy(this.m_toolbars)
destroy(this.m_-1)
destroy(this.m_exit)
end on

type m_new from menu within m_file
end type

on m_new.create
this.Text = "&New~tCtrl+N"
this.Microhelp = "Create new sheet"
this.ToolBarItemName = "Window!"
this.ToolBarItemText = "New"
this.Shortcut = 334
end on

event clicked;/* Create a new sheet */
w_genapp_frame.wf_newsheet ()
end event

type m_open from menu within m_file
end type

on m_open.create
this.Text = "&Open...~tCtrl+O"
this.Microhelp = "Open existing sheet"
this.Enabled = false
this.Shortcut = 335
end on

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

type m_close from menu within m_file
end type

on m_close.create
this.Text = "&Close"
this.Microhelp = "Close active sheet"
end on

event clicked;/* Close active sheet */
w_genapp_frame.wf_closesheet ()
end event

type m_- from menu within m_file
end type

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

type m_print from menu within m_file
end type

on m_print.create
this.Text = "&Print~tCtrl+P"
this.Microhelp = "Print active sheet"
this.ToolBarItemName = "Print!"
this.ToolBarItemText = "Print"
this.Enabled = false
this.Shortcut = 336
end on

event clicked;long        l_Job
window    lw_Sheet

    /* Print active sheet */
    lw_Sheet = w_genapp_frame.GetActiveSheet ()
    if IsValid (lw_Sheet) then
        w_genapp_frame.SetMicroHelp ("Printing active sheet...")
        l_Job = PrintOpen ()
        lw_Sheet.Print (l_Job, 1, 1)
        PrintClose (l_Job)
        w_genapp_frame.SetMicroHelp ("")
    end if
end event

type m_printersetup from menu within m_file
end type

on m_printersetup.create
this.Text = "Print &Setup..."
this.Microhelp = "Setup printer"
end on

event clicked;/* Do printer setup */
PrintSetup ()
end event

type m_-2 from menu within m_file
end type

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

type m_toolbars from menu within m_file
end type

on m_toolbars.create
this.Text = "&Toolbars..."
this.Microhelp = "Configure toolbars"
end on

event clicked;/* Configure toolbars */
OpenWithParm (w_genapp_toolbars, w_genapp_frame)
end event

type m_-1 from menu within m_file
end type

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

type m_exit from menu within m_file
end type

on m_exit.create
this.Text = "E&xit"
this.Microhelp = "Exit program"
this.ToolBarItemName = "Exit!"
this.ToolBarItemText = "Exit"
this.MenuItemType = MenuItemTypeExit!
this.ToolBarItemSpace = 2
end on

event clicked;Close (w_genapp_frame)
end event

type m_help from menu within m_genapp_frame
m_helpindex m_helpindex
m_search m_search
m_-3 m_-3
m_aboutquickapp m_aboutquickapp
end type

on m_help.create
this.m_helpindex=create m_helpindex
this.m_search=create m_search
this.m_-3=create m_-3
this.m_aboutquickapp=create m_aboutquickapp
this.Item[]={ this.m_helpindex,&
this.m_search,&
this.m_-3,&
this.m_aboutquickapp}
this.Text = "&Help"
this.ShiftToRight = true
end on

on m_help.destroy
destroy(this.m_helpindex)
destroy(this.m_search)
destroy(this.m_-3)
destroy(this.m_aboutquickapp)
end on

type m_helpindex from menu within m_help
end type

on m_helpindex.create
this.Text = "Help &Index~tF1"
this.Microhelp = "Display Help index"
this.Enabled = false
this.Shortcut = 112
end on

event clicked;/* Display help contents */
/* ShowHelp ("myapp.hlp", Index!) */
end event

type m_search from menu within m_help
end type

on m_search.create
this.Text = "&Search for Help on..."
this.Microhelp = "Search for Help topic"
this.Enabled = false
end on

event clicked;/* Search for Help topic */
/* ShowHelp ("myapp.hlp", Keyword!, "") */
end event

type m_-3 from menu within m_help
end type

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

type m_aboutquickapp from menu within m_help
end type

on m_aboutquickapp.create
this.Text = "&About..."
this.Microhelp = "Display ~"About~" window"
this.MenuItemType = MenuItemTypeAbout!
end on

event clicked;/* Invoke copyright response window */
Open (w_genapp_about)
end event