--- a/NewLauncher.st Thu Jan 22 17:37:46 1998 +0100
+++ b/NewLauncher.st Thu Jan 22 17:45:20 1998 +0100
@@ -63,17 +63,6 @@
^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
!
-classResources
- "if not already loaded, get the classes resourcePack
- and return it"
-
- ClassResources isNil ifTrue:[
- ClassResources := ResourcePack for:self.
- ].
- ^ ClassResources
-
-!
-
current
"return the launcher running on the current screen.
(for access via addMenu/ removeMenu)"
@@ -216,6 +205,9 @@
#'labelImage:' #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')
)
#(#MenuItem
+ #'label:' '-'
+ )
+ #(#MenuItem
#'label:' 'Class Browser...'
#'translateLabel:' true
#'value:' #startClassBrowser
@@ -250,6 +242,9 @@
#'value:' #browseSenders
)
#(#MenuItem
+ #'label:' '-'
+ )
+ #(#MenuItem
#'label:' 'Special'
#'value:' #special
#'submenu:'
@@ -822,6 +817,15 @@
#'value:' #'openDemo:'
#'argument:' 'GLOctaHedronDemoView'
)
+ #(#MenuItem
+ #'label:' '-'
+ )
+ #(#MenuItem
+ #'label:' 'VRML Browser'
+ #'value:' #'openDemo:'
+ #'enabled:' #valueOfEnablingIfAvailable
+ #'argument:' 'VRMLTestCenter'
+ )
) nil
nil
)
@@ -989,17 +993,6 @@
#(
#(#MenuItem
- #'label:' 'Language...'
- #'translateLabel:' true
- #'value:' #languageSetting
- #'enabled:' #valueOfEnablingIfAvailable
- )
- #(#MenuItem
- #'label:' 'Show Keyboard Mappings...'
- #'translateLabel:' true
- #'value:' #keyboardSetting
- )
- #(#MenuItem
#'label:' 'View Style...'
#'translateLabel:' true
#'value:' #viewStyleSetting
@@ -1012,10 +1005,18 @@
#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
)
#(#MenuItem
- #'label:' 'Printer...'
+ #'label:' 'Language...'
#'translateLabel:' true
- #'value:' #printerSettings
- #'enabled:' #enableDangerousMenuItemsInRemoteLauncher
+ #'value:' #languageSetting
+ #'enabled:' #valueOfEnablingIfAvailable
+ )
+ #(#MenuItem
+ #'label:' 'Keyboard Mappings...'
+ #'translateLabel:' true
+ #'value:' #keyboardSetting
+ )
+ #(#MenuItem
+ #'label:' '-'
)
#(#MenuItem
#'label:' 'Messages...'
@@ -1030,15 +1031,24 @@
#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
)
#(#MenuItem
+ #'label:' 'Object Memory...'
+ #'translateLabel:' true
+ #'value:' #memorySettings
+ #'enabled:' #enableDangerousMenuItemsInRemoteLauncher
+ )
+ #(#MenuItem
#'label:' 'Source And Debugger...'
#'translateLabel:' true
#'value:' #sourceAndDebuggerSettings
#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
)
#(#MenuItem
- #'label:' 'Object Memory...'
+ #'label:' '-'
+ )
+ #(#MenuItem
+ #'label:' 'Printer...'
#'translateLabel:' true
- #'value:' #memorySettings
+ #'value:' #printerSettings
#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
)
#(#MenuItem
@@ -1048,10 +1058,7 @@
#'enabled:' #enableDangerousMenuItemsInRemoteLauncher
)
#(#MenuItem
- #'label:' 'Restore Settings...'
- #'translateLabel:' true
- #'value:' #restoreSettings
- #'enabled:' #enableDangerousMenuItemsInRemoteLauncher
+ #'label:' '-'
)
#(#MenuItem
#'label:' 'Misc...'
@@ -1067,6 +1074,12 @@
#'translateLabel:' true
#'value:' #saveSettings
)
+ #(#MenuItem
+ #'label:' 'Restore Settings...'
+ #'translateLabel:' true
+ #'value:' #restoreSettings
+ #'enabled:' #enableDangerousMenuItemsInRemoteLauncher
+ )
) nil
nil
)
@@ -6523,14 +6536,6 @@
!
-close
-
- Display beep.
- OpenLaunchers removeIdentical:self ifAbsent:nil.
- Project notNil ifTrue:[Project removeDependent:self].
- super close.
-!
-
closeRequest
(self confirm:(resources string:'really close %1 ?' with:self class name)) ifTrue:[
@@ -6539,6 +6544,11 @@
!
+destroy
+
+self halt.
+!
+
openInterface
"sent by my superclass to open up my interface"
@@ -6629,10 +6639,19 @@
transcript showCR:'***********************************************'.
]
+!
+
+uninitialize
+
+ super uninitialize.
+
+ Display beep.
+ OpenLaunchers removeIdentical:self ifAbsent:nil.
+ Project notNil ifTrue:[Project removeDependent:self].
! !
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.5 1998-01-22 15:55:29 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.6 1998-01-22 16:45:20 tz Exp $'
! !