home *** CD-ROM | disk | FTP | other *** search
- registerObject {
- name .file
- type CustMenuBarButton
- objSpec {
- label File
- mnemonic F
- }
- }
-
- registerObject {
- name .file.menu
- type CustMenu
- visible {1 1 1 1 1}
- objSpec {
- pinnable 1
- }
- }
-
- registerObject {
- name .view
- type CustMenuBarButton
- objSpec {
- label View
- mnemonic V
- }
- }
-
- registerObject {
- name .view.menu
- type CustMenu
- visible {1 1 1 1 1}
- objSpec {
- pinnable 1
- }
- }
-
- registerObject {
- name .options
- type CustMenuBarButton
- objSpec {
- label Options
- mnemonic O
- }
- }
-
- registerObject {
- name .options.menu
- type CustMenu
- visible {1 1 1 1 1}
- objSpec {
- pinnable 1
- }
- }
-
- registerObject {
- name .help
- type CustMenuBarButton
- objSpec {
- label Help
- mnemonic H
- helpButton 1
- }
- }
-
- registerObject {
- name .help.menu
- type CustMenu
- visible {1 1 1 1 1}
- objSpec {
- pinnable 1
- }
- }
-
- registerObject {
- inToolBar 1
- inPopUpMenu 1
- name .file.menu.delete
- type CustMenuPushButton
- objSpec {
- label Delete
- hintText "Deletes the selected object."
- mnemonic D
- toolBarPixmap delete_16
- activated {busy { .main fileDelete }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canDelete]
- }
- }
- }
-
- registerObject {
- inPopUpMenu 1
- name .file.menu.reload
- type CustMenuPushButton
- objSpec {
- label Reload
- hintText "Tells the nameserver to reload the server definitions from the object servers file."
- mnemonic l
- activated {busy { .main fileReload }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canReload]
- }
- }
- }
-
- registerObject {
- name .file.menu.change
- type CustCascadeButton
- objSpec {
- label Change
- mnemonic C
- }
- }
-
- registerObject {
- name .file.menu.change.menu
- type CustMenu
- visible {1 1 1 1 1}
- }
-
- registerObject {
- inToolBar 1
- inPopUpMenu 1
- name .file.menu.change.menu.serverentry
- type CustMenuPushButton
- objSpec {
- label {Server Definition...}
- hintText "Changes the definition of the selected server."
- popUpLabel "Change server definition..."
- mnemonic S
- accelerator Ctrl+E
- toolBarPixmap rep_chdef_16
- activated {
- busy { .main fileChangeServerEntry }
- }
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canChangeServerEntry]
- }
- }
- }
-
- registerObject {
- inToolBar 1
- inPopUpMenu 1
- name .file.menu.change.menu.parameters
- type CustMenuPushButton
- objSpec {
- label Parameters...
- hintText "Changes ORB parameters of the selected object."
- popUpLabel "Change ORB parameters..."
- mnemonic P
- toolBarPixmap rep_change_16
- activated {.main fileChangeParameters}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canChangeParameters]
- }
- }
- }
-
- registerObject {
- inToolBar 1
- inPopUpMenu 1
- name .file.menu.shutdown
- type CustMenuPushButton
- objSpec {
- label Shutdown
- hintText "Gracefully shuts down the selected object."
- mnemonic S
- toolBarPixmap rep_shutdown_16
- activated {busy { .main fileShutdown }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canShutdown]
- }
- }
- }
-
- registerObject {
- inPopUpMenu 1
- name .file.menu.user_1
- type CustMenuSeparator
- objSpec {
- }
- }
-
- registerObject {
- inPopUpMenu 1
- name .file.menu.showlog
- type CustMenuPushButton
- objSpec {
- label {Show Log...}
- hintText "Shows the log of the selected broker."
- mnemonic o
- activated {busy { .main fileShowLog }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canShowLog]
- }
- }
- }
-
- registerObject {
- inPopUpMenu 1
- name .file.menu.logregistrations
- type CustMenuPushButton
- objSpec {
- label {Log Registrations}
- hintText "Logs current registrations to the broker log."
- mnemonic L
- activated {busy { .main fileLogRegistrations }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canLogRegistrations]
- }
- }
- }
-
- registerObject {
- inPopUpMenu 1
- name .file.menu.logmessage
- type CustMenuPushButton
- objSpec {
- label {Log Message...}
- hintText "Logs a message to the broker log."
- mnemonic M
- activated {busy { .main fileLogMessage }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- enableScript {
- %this sensitive [.main canLogMessage]
- }
- }
- }
-
- registerObject {
- name .file.menu.user_2
- type CustMenuSeparator
- objSpec {
- }
- }
-
- registerObject {
- name .file.menu.exit
- type CustMenuPushButton
- objSpec {
- label Exit
- hintText "Exits the tool."
- mnemonic x
- activated {busy { .main fileExit }}
- }
- }
-
- registerObject {
- inToolBar 1
- name .view.menu.refresh
- type CustMenuPushButton
- objSpec {
- label Refresh
- hintText "Refreshes the tree and information area."
- mnemonic R
- accelerator Ctrl+R
- toolBarPixmap rep_refresh_16
- activated {busy { .main viewRefresh }}
- selIsATypes {}
- }
- }
-
- registerObject {
- name .view.menu.refreshselected
- type CustMenuPushButton
- objSpec {
- label {Refresh Selected}
- hintText "Refreshes the subtree that has the selected object as root."
- mnemonic S
- accelerator Ctrl+S
- activated {busy { .main viewRefreshSelected }}
- selIsATypes {}
- selCount 1
- checkOn selectionChange
- }
- }
-
- registerObject {
- name .view.menu.user_3
- type CustMenuSeparator
- objSpec {
- }
- }
-
- registerObject {
- name .view.menu.toolbar
- type CustMenuCheckButton
- objSpec {
- hintText "Shows or hides the toolbar."
- label ToolBar
- mnemonic T
- state 1
- stateChanged {
- .main toolBarPresent [[.main menuBar].view.menu.toolbar state]
- }
- }
- }
-
- registerObject {
- name .view.menu.contextarea
- type CustMenuCheckButton
- objSpec {
- hintText "Shows or hides the context area."
- label "Context Area"
- mnemonic C
- state 1
- stateChanged {
- .main contextAreaPresent [[.main menuBar].view.menu.contextarea state]
- }
- }
- }
-
- registerObject {
- name .view.menu.messagearea
- type CustMenuCheckButton
- objSpec {
- hintText "Shows or hides the message area."
- label "Message Area"
- mnemonic M
- state 1
- stateChanged {
- .main messageAreaPresent [[.main menuBar].view.menu.messagearea state]
- }
- }
- }
-
- registerObject {
- name .options.menu.font
- type CustCascadeButton
- objSpec {
- label Font
- mnemonic C
- }
- }
-
- registerObject {
- name .options.menu.font.menu
- type CustMenu
- visible {1 1 1 1 1}
- }
-
- registerObject {
- name .options.menu.font.menu.normal
- type CustMenuPushButton
- objSpec {
- label {Normal...}
- hintText "Changes the font used in the tree and information area."
- mnemonic N
- activated {busy { .main optionsFont }}
- selIsATypes {}
- }
- }
-
- registerObject {
- name .options.menu.font.menu.brokerlog
- type CustMenuPushButton
- objSpec {
- label {Broker Log...}
- hintText "Changes the font used in the broker log."
- mnemonic B
- activated {busy { .main optionsLogFont }}
- selIsATypes {}
- }
- }
-
- registerObject {
- name .options.menu.parameterdisplaymode
- type CustMenuPushButton
- objSpec {
- label {Parameter Display Mode...}
- hintText "Changes the way ORB parameters are displayed."
- mnemonic P
- activated {busy { .main optionsParamMode }}
- selIsATypes {}
- }
- }
-
- registerObject {
- name .help.menu.whatsthis
- type CustMenuPushButton
- objSpec {
- hintText {Shows help about the selected component.}
- label "What's This?"
- mnemonic W
- activated {
- #CTGENCommandScript
- .main helpOnContext
- #CTGENEndCommandScript
- }
- }
- }
-
-
- registerObject {
- name .help.menu.helptopics
- type CustMenuPushButton
- objSpec {
- hintText {Shows help topics.}
- label {Help Topics}
- mnemonic T
- activated showHelpTopics
- }
- }
-
- registerObject {
- name .help.menu.productdocumentation
- type CustMenuPushButton
- objSpec {
- label {Product Documentation}
- hintText {Starts online documentation.}
- activated {
- #CTGENMessage
- wmtkmessage {Start online documentation ...}
- #CTGENBusyCursorOn
- .main busy TRUE
- #CTGENCommandScript
- startOnlineDoc
- #CTGENEndCommandScript
- #CTGENRemoveMessage
- wmtkmessage ""
- #CTGENBusyCursorOff
- .main busy FALSE
- }
- }
- }
-
- registerObject {
- type CustMenuPushButton
- name .help.menu.aboutrepositorytool
- objSpec {
- hintText "Shows version information."
- label "About Repository Tool"
- mnemonic A
- activated {showVersionDialog [%this label] 1}
- }
- }
-