NewLauncher.st
author Claus Gittinger <cg@exept.de>
Tue, 08 Sep 1998 12:25:13 +0200
changeset 1869 f975e008bcbc
parent 1864 0aabc720d197
child 1882 6b3ca69046f1
permissions -rw-r--r--
ask if launcher close or smalltalk exit is wanted when launcher is closed.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     1
"
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
     2
 COPYRIGHT (c) 1997-1998 by eXept Software AG
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
     3
	      All Rights Reserved
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     4
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     5
 This software is furnished under a license and may be used
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     7
 inclusion of the above copyright notice. This software may not
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
     9
 other person. No title to or ownership of the software is
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    10
 hereby transferred.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    11
"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    12
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    13
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    14
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    15
ToolApplicationModel subclass:#NewLauncher
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    16
	instanceVariableNames:'transcript isMainLauncher helpIsOn'
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
    17
	classVariableNames:'OpenLaunchers NotifyingEmergencyHandler UserAddedTools'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    18
	poolDictionaries:''
1469
415d35e62db6 class category changed
tz
parents: 1467
diff changeset
    19
	category:'Interface-Smalltalk'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    20
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    21
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    22
!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    23
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    24
copyright
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    25
"
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    26
 COPYRIGHT (c) 1997-1998 by eXept Software AG
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    27
	      All Rights Reserved
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    28
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    29
 This software is furnished under a license and may be used
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    30
 only in accordance with the terms of that license and with the
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    31
 inclusion of the above copyright notice. This software may not
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    32
 be provided or otherwise made available to, or used by, any
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    33
 other person. No title to or ownership of the software is
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    34
 hereby transferred.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    35
"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    36
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    37
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    38
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    39
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    40
documentation
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    41
"
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    42
    The future launcher.
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    43
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    44
    [start with:]
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    45
	NewLauncher open
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    46
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    47
    [see also:]
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    48
	Launcher
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    49
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    50
    [author:]
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    51
	Thomas Zwick, eXept Software AG
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    52
"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    53
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    54
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    55
!NewLauncher class methodsFor:'accessing'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    56
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    57
current
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    58
    "return the launcher running on the current screen.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    59
     (for access via addMenu/ removeMenu)"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    60
1434
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    61
    OpenLaunchers notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    62
	OpenLaunchers do:[:aLauncher |
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    63
	    aLauncher window graphicsDevice == Screen current ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    64
		^ aLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    65
	    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
    66
	].
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    67
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    68
    ^ nil
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    69
1434
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    70
    "Modified: / 29.1.1998 / 22:08:12 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    71
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    72
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    73
label
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    74
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    75
    ^'Launcher'
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    76
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    77
1434
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    78
!
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    79
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    80
openLaunchers
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    81
8746ba3896d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1433
diff changeset
    82
    ^OpenLaunchers ? (OpenLaunchers := OrderedCollection new)
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    83
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    84
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    85
!NewLauncher class methodsFor:'defaults'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    86
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    87
notifyingEmergencyHandler
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    88
    "return a block (used as an emergency handler
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    89
     for exceptions), which does errorNotification before going
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    90
     into the debugger."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    91
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    92
    "Remember the handlerBlock, to be able to determine if the current
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    93
     handler is the notifying one."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    94
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    95
    ^ NotifyingEmergencyHandler ? (NotifyingEmergencyHandler := Exception notifyingEmergencyHandler)
1836
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    96
!
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    97
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    98
windowIcon
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    99
    ^ Icon stxIcon
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   100
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   101
    "Created: / 16.8.1998 / 13:11:58 / cg"
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   102
    "Modified: / 17.8.1998 / 10:07:09 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   103
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   104
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   105
!NewLauncher class methodsFor:'help specs'!
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   106
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   107
helpSpec
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   108
    "This resource specification was automatically generated
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   109
     by the UIHelpTool of ST/X."
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   110
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   111
    "Do not manually edit this!! If it is corrupted,
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   112
     the UIHelpTool may not be able to read the specification."
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   113
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   114
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   115
     UIHelpTool openOnClass:NewLauncher    
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   116
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   117
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   118
    <resource: #help>
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   119
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   120
    ^super helpSpec addPairsFrom:#(
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   121
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   122
#aboutLicenseConditions
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   123
'Show the license conditions of ST/X.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   124
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   125
#classes
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   126
'Class functions.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   127
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   128
#classesClassBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   129
'Open a dialog for defining and opening a Class Browser on a class.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   130
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   131
#classesClassHierarchyBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   132
'Open a dialog for defining and opening a Class Hierarchy Browser on a class.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   133
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   134
#classesClassTreeBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   135
'Open a Class Tree on the classes of ST/X.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   136
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   137
#classesFullClassBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   138
'Open a dialog for defining and opening a Full Class Browser on a class.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   139
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   140
#classesImplementors
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   141
'Find all methods which implement a particular message'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   142
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   143
#classesRemoveAllTracePoints
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   144
'Remove all trace- and break-points.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   145
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   146
#classesResourceMethods
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   147
'Open a dialog for searching resource methods.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   148
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   149
#classesSenders
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   150
'Find all methods which send a particular message.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   151
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   152
#classesShowTracePoints
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   153
'Open a list showing all trace- and break-points on methods.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   154
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   155
#classesSpecial
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   156
'Special class functions.'
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   157
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   158
#classesSpecialReferencesToUndeclared
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   159
'Open a list of methods refering to undeclared variables.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   160
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   161
#classesSystemBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   162
'Open a System Browser for editing sources of the classes.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   163
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   164
#classesSystemBrowserOnClass
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   165
'Open a System Browser on a previously modified class.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   166
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   167
#demos
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   168
'Demo functions.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   169
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   170
#demos3D
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   171
'3D graphic demos.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   172
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   173
#demos3DcubeSolid
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   174
'A rotating solid cube.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   175
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   176
#demos3DcubeWire
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   177
'A rotating wireframe cube.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   178
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   179
#demos3Ddoughnut
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   180
'A rotating wireframe doughnut.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   181
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   182
#demos3Dlogo
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   183
'The ST/X logo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   184
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   185
#demos3Dplane
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   186
'A rotating plane.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   187
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   188
#demos3Dplanet
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   189
'Two spheres - one rotating around the other.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   190
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   191
#demos3Drubics
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   192
'A rubics cube - with interaction.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   193
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   194
#demos3Dsphere
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   195
'A rotating wireframe sphere.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   196
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   197
#demos3Dteapot
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   198
'A teopot.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   199
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   200
#demos3Dtetra
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   201
'A rotating tetrahedron.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   202
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   203
#demosAnimations
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   204
'Simple animation demos.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   205
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   206
#demosCalculator
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   207
'Opens a calculator with decimal to hex conversion.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   208
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   209
#demosCalendar
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   210
'Opens a GUI on the cal unix program.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   211
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   212
#demosClock
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   213
'Opens an analog clock application.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   214
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   215
#demosCommander
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   216
'Opens a demo for the Commander class.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   217
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   218
#demosDigitalClock
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   219
'Opens a digital clock application'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   220
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   221
#demosFTP
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   222
'Opens a simple FTP interface demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   223
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   224
#demosFractalPatterns
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   225
'Opens a view displaying fractals patterns.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   226
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   227
#demosFractalPlants
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   228
'Opens a view displaying fractal plants (iterated function systems).'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   229
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   230
#demosGUI
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   231
'GUI builder demos.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   232
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   233
#demosGUICalculator
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   234
'Calculator built using the GUI builder.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   235
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   236
#demosGUIWidgets
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   237
'GUI widgets usage.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   238
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   239
#demosGames
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   240
'Games.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   241
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   242
#demosGeometric
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   243
'Various demos displaying geometric designs.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   244
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   245
#demosGlobe
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   246
'Opens a rotating globe animation demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   247
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   248
#demosGoodies
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   249
'Goodies and Utilities.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   250
1777
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   251
#demosGraphicEditors
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   252
'Graphic editing demos.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   253
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   254
#demosGraphicEditorsDrawTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   255
'Object drawing demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   256
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   257
#demosGraphicEditorsLogicTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   258
'Simulating Logic demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   259
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   260
#demosGraphicEditorsPaintTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   261
'Painting demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   262
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   263
#demosMail
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   264
'Opens a simple mail viewer demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   265
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   266
#demosMandel
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   267
'Opens a view displaying the mandelbrot set.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   268
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   269
#demosMoreFractalPatterns
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   270
'Opens a view with more fractal patterns.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   271
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   272
#demosNews
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   273
'Opens a simple news reader demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   274
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   275
#demosPen
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   276
'Opens a demo for the Pen class.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   277
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   278
#demosTelnet
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   279
'Opens a Telnet terminal demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   280
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   281
#demosWalkingMan
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   282
'Opens a walking man animation demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   283
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   284
#fileApplicationBuilder
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   285
'Open an Application Builder for building stand alone ST/X-applications.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   286
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   287
#fileFileBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   288
'Open a File Browser for loading, saving, and editing source files, etc.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   289
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   290
#fileLibraryBuilder
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   291
'Open a Library Builder for building binary class libraries.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   292
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   293
#fileModules
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   294
'Open a dialog for showing (and unloading) class libraries and other modules.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   295
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   296
#fileSaveImage
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   297
'Save the current snapshot image of ST/X.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   298
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   299
#fileSaveImageAs
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   300
'Open a file dialog to save the current snapshot image of ST/X.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   301
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   302
#gamesTetris
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   303
'The tetris game - written in Smalltalk.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   304
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   305
#gamesTicTacToe
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   306
'Play TicTacToe against the computer.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   307
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   308
#gamesTicTacToe2
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   309
'Play TicTacToe against a friend.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   310
1864
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   311
#helpActiveHelp
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   312
'Toggle display of active help texts in browsers.'
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   313
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   314
#helpClassDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   315
'Show the smalltalk class documentation.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   316
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   317
#helpIndex
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   318
'Show the index of the online documentation.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   319
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   320
#helpPrintDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   321
'Print various parts of the ST/X documentation.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   322
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   323
#helpSTXOnlineDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   324
'Show the ST/X online documentation.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   325
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   326
#helpWhatsNew
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   327
'Showing the latest news about ST/X.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   328
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   329
#settingsCompilation
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   330
'Open a dialog for changing compiler settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   331
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   332
#settingsFonts
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   333
'Open a dialog for changing of the font defaults.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   334
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   335
#settingsKeyboardMappings
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   336
'Open a dialog for inspecting the mappings of the keyboard.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   337
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   338
#settingsLanguage
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   339
'Open a dialog for changing the national language.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   340
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   341
#settingsLoadSettings
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   342
'Open a dialog to restore the settings from a file.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   343
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   344
#settingsMessages
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   345
'Open a dialog for changing the settings for reporting infos/errors.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   346
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   347
#settingsMisc
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   348
'Open a dialog for changing other settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   349
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   350
#settingsObjectMemory
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   351
'Open a dialog for changing the object memory settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   352
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   353
#settingsPrinter
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   354
'Open a dialog for changing the printer settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   355
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   356
#settingsSaveSettings
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   357
'Open a dialog for saving the current settings to a file.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   358
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   359
#settingsScreen
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   360
'Open a dialog for changing the display screen settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   361
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   362
#settingsSourceAndDebugger
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   363
'Open a dialog for changing the settings of the source code management.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   364
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   365
#settingsViewStyle
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   366
'Open a dialog for changing the current view style.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   367
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   368
#system
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   369
'System functions.'
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   370
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   371
#systemEventTrace
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   372
'Select a view to toggle the event trace for it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   373
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   374
#systemEventView
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   375
'Open a view and trace its window events on the console.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   376
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   377
#systemGarbageCollect
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   378
'Reclaim unused memory.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   379
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   380
#systemGarbageCollectAndCompress
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   381
'Reclaim unused memory and minimize the amount of used memory.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   382
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   383
#systemInterruptLatency
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   384
'Open an Interrupt Latency Monitor displaying methods which block interrupts for longer than a given time goal.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   385
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   386
#systemMemory
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   387
'Display object memory statistics.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   388
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   389
#systemMemoryUsage
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   390
'Display object memory usage by class.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   391
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   392
#systemProcesses
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   393
'Open a Process Monitor displaying ST/X processes.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   394
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   395
#systemSemaphores
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   396
'Open a Semaphore Monitor displaying ST/X semaphores.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   397
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   398
#tools
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   399
'Tool functions.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   400
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   401
#toolsChangesBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   402
'Open a Changes Browser on changes made to the current smalltalk environment.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   403
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   404
#toolsGUIPainter
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   405
'Open a GUI Painter for graphical user interface construction.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   406
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   407
#toolsImageEditor
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   408
'Open a Bitmap Image Editor.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   409
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   410
#toolsMenuEditor
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   411
'Open a Menu Editor for building menu bars, popup menus, and tool bars.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   412
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   413
#toolsMisc
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   414
'Misc Tool functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   415
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   416
#toolsMiscNewLauncher
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   417
'(Re-)open a new launcher.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   418
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   419
#toolsMiscOldLauncher
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   420
'Open an old launcher.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   421
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   422
#toolsMiscProjects
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   423
'Project functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   424
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   425
#toolsMiscProjectsNewProject
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   426
'Create a new project.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   427
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   428
#toolsMiscProjectsSelectProject
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   429
'Select an existing project and reopen its windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   430
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   431
#toolsOldChangesBrowser
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   432
'Open the old changes browser.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   433
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   434
#toolsProjects
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   435
''
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   436
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   437
#toolsTerminal
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   438
'Open a terminal view (aka xterm)'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   439
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   440
#toolsWorkspace
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   441
'Open a Workspace for evaluating smalltalk expressions.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   442
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   443
#windows
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   444
'Window functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   445
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   446
#windowsDeiconifyAll
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   447
'Restore all minimized ST/X windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   448
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   449
#windowsFindAndDestroy
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   450
'Open a dialog for selecting an ST/X window by label and destroy it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   451
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   452
#windowsFindAndRaise
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   453
'Open dialog for selecting an ST/X window by label and raise it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   454
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   455
#windowsGrapScreen
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   456
'Grab the whole screen and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   457
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   458
#windowsGrapScreenArea
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   459
'Grab an area of the screen and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   460
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   461
#windowsGrapWindow
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   462
'Grab a window and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   463
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   464
#windowsIconifyAll
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   465
'Minimize all ST/X windows to icons.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   466
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   467
#windowsSelectAndDestroy
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   468
'Select a window and destroys it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   469
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   470
#windowsSelectAndInspect
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   471
'Select an ST/X window and opens an Inspector on it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   472
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   473
#windowsViewTree
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   474
'Select an ST/X window and display its widget hierarchyin.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   475
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   476
#windowsViewTreeAllViews
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   477
'Display the widget hierarchies of all ST/X windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   478
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   479
)
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   480
! !
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   481
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   482
!NewLauncher class methodsFor:'image specs'!
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   483
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   484
helpIcon
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   485
    "This resource specification was automatically generated
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   486
     by the ImageEditor of ST/X."
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   487
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   488
    "Do not manually edit this!! If it is corrupted,
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   489
     the ImageEditor may not be able to read the specification."
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   490
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   491
    "
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   492
     self helpIcon inspect
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   493
     ImageEditor openOnClass:self andSelector:#helpIcon
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   494
    "
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   495
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   496
    <resource: #image>
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   497
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   498
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   499
	constantNamed:#'NewLauncher helpIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   500
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@Q@@@@@@@@@@@@@"H"H @P@@@@@@@@@@H"H"H"H!!D@@@@@@@@@@@@@@"H"@Q@@@@@@@@@#H2H0@"H DP@@@@@@L#H2L2L H"@Q@@@@@@@#H2L"L#HBH DP@@@@@"L#H2H2L#@"@Q@@@@@#L#H@@2L#HBHAD@@@@CH#H@@BL#H0H DP@@@@H3H@@@@#H2@"@Q@@@@@2H0@@@CH2LB@Q@@@@@BL2@@@@H2LCHAD@@@@@@@@@@@H2L HADP@@@@@@@@@@H#H2LAD@@@@@@@@@@@H3H2LAD@@@@@@@@@@@@2H2L@D@@@@@@@@@@@@2L2LB@P@@@@@@@@@@@BL"L HA@@@@@@@@@@@@L#L H D@@@@@@@@@@@@#H#@ @@@@@@@@@@@@@@@@@B@A@@@@@@@@@@@@@"H"@ D@@@@@@@@@@@@@@@@"@P@@@@@@@@@@@CH3HBHA@@@@@@@@@@@@H2H0H @@@@@@@@@@@@@2L2@ @@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 63 79 96 255 255 0 255 255 255]; mask:((ImageMask new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@?8@@@??@@@_?8@@O??@@G??8@C??>@@???0@_??<@O???@C>O?0@?C?<@O0?>@C<O? @?C?8@@C?8@@A?<@@@_>@@@O? @@C?8@@@?>@@@O>@@@C?8@@@_>@@@O? @@C?8@@@?<@@@O>@@@C?@@@@a') ; yourself); yourself]
1814
08d0ce7e6b9b smaller helpImage
Claus Gittinger <cg@exept.de>
parents: 1813
diff changeset
   501
08d0ce7e6b9b smaller helpImage
Claus Gittinger <cg@exept.de>
parents: 1813
diff changeset
   502
    "Modified: / 7.8.1998 / 12:34:56 / cg"
1817
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   503
!
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   504
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   505
helpIcon2
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   506
    "This resource specification was automatically generated
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   507
     by the ImageEditor of ST/X."
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   508
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   509
    "Do not manually edit this!! If it is corrupted,
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   510
     the ImageEditor may not be able to read the specification."
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   511
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   512
    "
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   513
     self helpIcon2 inspect
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   514
     ImageEditor openOnClass:self andSelector:#helpIcon2
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   515
    "
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   516
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   517
    <resource: #image>
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   518
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   519
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   520
	constantNamed:#'NewLauncher helpIcon2'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   521
	ifAbsentPut:[(Depth8Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@PDA@PDA@@@A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@P@@0@@A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@@DA@0@DA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@@A@PDC@@PDA@PDA@PDA@PDA@PDA@PDA@PDA@P@@PDA@PL@A@PDA@PDA@PDA@PDA@PDA@PDA@@@@@DA@PDA@@PDA@PDA@P@@@@DA@PDA@PDA@@C@P@A@PDA@PD@A@P@@@@@@PDA@@PDA@PD@@@A@PD@@PDA@PDA@@@@@0DA@PDA@P@@@@@D@@H@@PDA@@DA@PDA@P@C@0LA@PDA@PDC@@H@A@@B@@DA@P@A@PDA@PD@@0LC@PDA@PDA@P@B@@P@@ @A@PD@@PDA@PDA@@LC@ DA@PDE@PD@@ @D@@H@@PDA@@DA@PDA@P@C@0LE@PDE@PDA@@H@A@@B@@DA@P@A@PDA@PD@@0LC@0TE@PDA@P@B@@P@@ @A@PD@@PDA@PDA@@LC@0LAAPDA@PD@@ @D@@H@@PDA@@DA@PDA@P@C@0LCAPDE@PDA@@H@@@H@@0DA@P@A@PDA@PD@@0LC@ DA@PTA@P@B@@@B@@DA@PD@@@LA@PDA@@LC@ LA@PDAAPD@@ @@@ @A@PDA@PD@@@LA@P@C@0LC@PDA@PDA@@H@@@H@@PDA@PDA@0L@@0D@@0LC@0DA@PDA@P@B@@@B@@DA@PDA@PLC@0@C@@LC@0LA@PDA@PD@@ @@@ @@@@@@@PDC@0LC@@@C@0LC@PDA@@@@@@H@@@H@@0LC@0@@@@LC@0L@@0LC@0@@@@LC@0@B@@@B@@@@@0LC@0L@@@@C@@L@@@@C@0LC@0@@@ @@@@HB@ @@@0LC@0LC@@@@@0LC@0L@@@@B@ H@A@P@@@@B@ @@@@LC@0LC@0LC@0@@@ H@@@@@A@PDA@PD@@@@@ H@@@@C@0L@@@@B@ @@A@PDA@PDA@PDA@PDA@@@@@HB@@@@@ H@@@@DA@PDA@PDA@PDA@PDA@PDA@P@@@@@@@@@A@PDA@PDA@PDA@@a') ; colorMapFromArray:#[0 0 0 253 253 253 191 191 0 192 192 192 0 0 0 0 204 51]; mask:((ImageMask new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@X@@@@G @@@A<@@@@_ @@@G<@@@G?@\@C?9? C????A????0_???<G????A????0_???<G????A????0????<O????C????0????<O????C????0????<O????C????0O???8@_?? @@?? @@A?@@@@a') ; yourself); yourself]
1817
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   522
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   523
    "Created: / 7.8.1998 / 19:40:08 / cg"
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   524
! !
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   525
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   526
!NewLauncher class methodsFor:'interface specs'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   527
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   528
windowSpec
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   529
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   530
     by the UIPainter of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   531
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   532
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   533
     the UIPainter may not be able to read the specification."
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   534
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   535
    "
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   536
     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   537
     NewLauncher new openInterface:#windowSpec
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   538
     NewLauncher open
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   539
    "
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   540
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   541
    <resource: #canvas>
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   542
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   543
    ^
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   544
     
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   545
       #(#FullSpec
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   546
	  #window: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   547
	   #(#WindowSpec
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   548
	      #name: 'Launcher'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   549
	      #layout: #(#LayoutFrame 407 0 353 0 697 0 554 0)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   550
	      #label: 'Launcher'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   551
	      #min: #(#Point 374 240)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   552
	      #max: #(#Point 1152 900)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   553
	      #bounds: #(#Rectangle 407 353 698 555)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   554
	      #menu: #menu
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   555
	      #usePreferredExtent: false
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   556
	      #icon: #windowIcon
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   557
	  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   558
	  #component: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   559
	   #(#SpecCollection
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   560
	      #collection: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   561
	       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   562
		 #(#MenuPanelSpec
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   563
		    #name: 'menuToolbarView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   564
		    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   565
		    #menu: #menuToolbar
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   566
		    #style: #(#FontDescription #helvetica #medium #roman 10)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   567
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   568
		 #(#ArbitraryComponentSpec
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   569
		    #name: 'transcriptView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   570
		    #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   571
		    #hasHorizontalScrollBar: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   572
		    #hasVerticalScrollBar: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   573
		    #miniScrollerHorizontal: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   574
		    #component: #TextCollector
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   575
		    #hasBorder: false
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   576
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   577
		 #(#UISubSpecification
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   578
		    #name: 'infoBarSubSpec'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   579
		    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   580
		    #majorKey: #ToolApplicationModel
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   581
		    #minorKey: #windowSpecForInfoBarWithClock
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   582
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   583
	      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   584
	  )
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   585
      )
1836
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   586
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   587
    "Modified: / 17.8.1998 / 10:07:08 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   588
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   589
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   590
!NewLauncher class methodsFor:'menu specs'!
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   591
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   592
menu
1515
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   593
    "This resource specification was automatically generated
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   594
     by the MenuEditor of ST/X."
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   595
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   596
    "Do not manually edit this!! If it is corrupted,
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   597
     the MenuEditor may not be able to read the specification."
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   598
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   599
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   600
     MenuEditor new openOnClass:NewLauncher andSelector:#menu
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   601
     (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   602
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   603
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   604
    <resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   605
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   606
    ^
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   607
     
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   608
       #(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   609
          
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   610
	   #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   611
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   612
		#label: 'About'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   613
		#activeHelpKey: #about
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   614
		#labelImage: #(#ResourceRetriever nil #menuIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   615
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   616
		 #(#Menu
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   617
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   618
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   619
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   620
			  #label: 'About Smalltalk/X...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   621
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   622
			  #value: #openAbout
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   623
			  #activeHelpKey: #aboutSTX
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   624
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   625
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   626
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   627
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   628
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   629
			  #label: 'Licence Conditions'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   630
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   631
			  #value: #openLicenseConditions
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   632
			  #activeHelpKey: #aboutLicenseConditions
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   633
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   634
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   635
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   636
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   637
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   638
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   639
		#label: 'File'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   640
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   641
		#activeHelpKey: #file
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   642
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   643
		 #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   644
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   645
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   646
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   647
			  #label: 'File Browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   648
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   649
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   650
			  #activeHelpKey: #fileFileBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   651
			  #argument: 'FileBrowser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   652
			  #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon 'File Browser')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   653
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   654
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   655
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   656
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   657
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   658
			  #label: 'Modules...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   659
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   660
			  #value: #objectModuleDialog
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   661
			  #activeHelpKey: #fileModules
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   662
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   663
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   664
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   665
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   666
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   667
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   668
			  #label: 'Library Builder'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   669
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   670
			  #isVisible: #libraryBuilderAvailable
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   671
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   672
			  #activeHelpKey: #fileLibraryBuilder
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   673
			  #argument: 'LibraryBuilder'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   674
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   675
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   676
			  #label: 'Application Builder'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   677
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   678
			  #isVisible: #libraryBuilderAvailable
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   679
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   680
			  #activeHelpKey: #fileApplicationBuilder
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   681
			  #argument: 'ApplicationBuilder'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   682
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   683
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   684
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   685
			  #isVisible: #libraryBuilderAvailable
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   686
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   687
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   688
			  #label: 'Save Image'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   689
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   690
			  #value: #saveImage
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   691
			  #activeHelpKey: #fileSaveImage
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   692
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   693
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   694
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   695
			  #label: 'Save Image As...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   696
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   697
			  #value: #saveImageAs
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   698
			  #activeHelpKey: #fileSaveImageAs
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   699
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   700
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   701
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   702
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   703
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   704
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   705
			  #label: 'Exit...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   706
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   707
			  #value: #exit
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   708
			  #activeHelpKey: #fileExit
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   709
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   710
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   711
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   712
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   713
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   714
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   715
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   716
		#label: 'Classes'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   717
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   718
		#activeHelpKey: #classes
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   719
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   720
		 #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   721
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   722
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   723
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   724
			  #label: 'System Browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   725
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   726
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   727
			  #activeHelpKey: #classesSystemBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   728
			  #argument: 'SystemBrowser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   729
			  #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   730
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   731
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   732
			  #label: 'System Browser On Class'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   733
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   734
			  #activeHelpKey: #classesSystemBrowserOnClass
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   735
			  #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon 'System Browser On Class')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   736
			  #submenuChannel: #menuClassHistory
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   737
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   738
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   739
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   740
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   741
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   742
			  #label: 'Class Browser...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   743
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   744
			  #value: #startClassBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   745
			  #activeHelpKey: #classesClassBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   746
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   747
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   748
			  #label: 'Full Class Browser...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   749
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   750
			  #value: #startFullClassBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   751
			  #activeHelpKey: #classesFullClassBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   752
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   753
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   754
			  #label: 'Class Hierarchy Browser...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   755
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   756
			  #value: #startClassHierarchyBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   757
			  #activeHelpKey: #classesClassHierarchyBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   758
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   759
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   760
			  #label: 'Class Tree'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   761
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   762
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   763
			  #activeHelpKey: #classesClassTreeBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   764
			  #argument: 'ClassTreeGraphView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   765
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   766
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   767
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   768
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   769
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   770
			  #label: 'Implementors...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   771
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   772
			  #value: #browseImplementors
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   773
			  #activeHelpKey: #classesImplementors
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   774
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   775
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   776
			  #label: 'Senders...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   777
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   778
			  #value: #browseSenders
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   779
			  #activeHelpKey: #classesSenders
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   780
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   781
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   782
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   783
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   784
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   785
			  #label: 'Special'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   786
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   787
			  #value: #special
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   788
			  #activeHelpKey: #classesSpecial
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   789
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   790
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   791
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   792
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   793
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   794
				    #label: 'References To Undeclared'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   795
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   796
				    #value: #browseUndeclared
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   797
				    #activeHelpKey: #classesSpecialReferencesToUndeclared
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   798
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   799
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   800
				    #label: 'Find Resource Methods...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   801
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   802
				    #value: #browseResources
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   803
				    #activeHelpKey: #classesResourceMethods
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   804
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   805
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   806
				    #label: 'Show All Break  Trace Points'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   807
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   808
				    #value: #browseAllBreakAndTracePoints
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   809
				    #activeHelpKey: #classesShowTracePoints
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   810
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   811
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   812
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   813
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   814
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   815
				    #label: 'Remove All Break  Trace Points'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   816
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   817
				    #value: #removeAllBreakAndTracePoints
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   818
				    #activeHelpKey: #classesRemoveAllTracePoints
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   819
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   820
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   821
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   822
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   823
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   824
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   825
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   826
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   827
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   828
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   829
		#label: 'Tools'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   830
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   831
		#activeHelpKey: #tools
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   832
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   833
		 #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   834
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   835
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   836
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   837
			  #label: 'Workspace'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   838
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   839
			  #activeHelpKey: #toolsWorkspace
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   840
			  #argument: 'Workspace'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   841
			  #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon 'Workspace')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   842
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   843
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   844
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   845
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   846
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   847
			  #label: 'GUI Painter'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   848
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   849
			  #activeHelpKey: #toolsGUIPainter
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   850
			  #argument: 'UIPainter'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   851
			  #labelImage: #(#ResourceRetriever nil #startUIPainterIcon 'GUI Painter')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   852
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   853
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   854
			  #label: 'Menu Editor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   855
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   856
			  #activeHelpKey: #toolsMenuEditor
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   857
			  #argument: 'MenuEditor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   858
			  #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon 'Menu Editor')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   859
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   860
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   861
			  #label: 'Image Editor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   862
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   863
			  #activeHelpKey: #toolsImageEditor
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   864
			  #argument: 'ImageEditor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   865
			  #labelImage: #(#ResourceRetriever nil #startImageEditorIcon 'Image Editor')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   866
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   867
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   868
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   869
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   870
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   871
			  #label: 'Changes Browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   872
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   873
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   874
			  #activeHelpKey: #toolsChangesBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   875
			  #argument: 'NewChangesBrowser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   876
			  #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   877
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   878
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   879
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   880
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   881
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   882
			  #label: 'Misc'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   883
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   884
			  #activeHelpKey: #toolsMisc
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   885
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   886
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   887
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   888
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   889
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   890
				    #label: 'Projects'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   891
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   892
				    #activeHelpKey: #toolsMiscProjects
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   893
				    #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   894
				     #(#Menu
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   895
                                        
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   896
					 #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   897
					   #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   898
					      #label: 'New Project'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   899
					      #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   900
					      #value: #newProject
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   901
					      #activeHelpKey: #toolsMiscProjectsNewProject
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   902
					  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   903
					   #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   904
					      #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   905
					  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   906
					   #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   907
					      #label: 'Select Project...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   908
					      #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   909
					      #value: #selectProject
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   910
					      #activeHelpKey: #toolsMiscProjectsSelectProject
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   911
					  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   912
					) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   913
					nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   914
				    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   915
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   916
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   917
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   918
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   919
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   920
				    #label: 'New Launcher'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   921
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   922
				    #value: #startNewLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   923
				    #activeHelpKey: #toolsMiscNewLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   924
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   925
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   926
				    #label: 'Old Launcher'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   927
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   928
				    #value: #startOldLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   929
				    #activeHelpKey: #toolsMiscOldLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   930
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   931
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   932
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   933
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   934
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   935
				    #label: 'Old Changes Browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   936
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   937
				    #value: #startOldChangesBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   938
				    #activeHelpKey: #toolsOldChangesBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   939
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   940
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   941
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   942
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   943
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   944
				    #label: 'Terminal'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   945
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   946
				    #isVisible: #canDoTerminal
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   947
				    #value: #openTerminal
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   948
				    #activeHelpKey: #toolsTerminal
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   949
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   950
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   951
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   952
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   953
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   954
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   955
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   956
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   957
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   958
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   959
		#label: 'System'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   960
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   961
		#activeHelpKey: #system
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   962
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   963
		 #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   964
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   965
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   966
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   967
			  #label: 'Memory'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   968
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   969
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   970
			  #activeHelpKey: #systemMemory
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   971
			  #argument: 'MemoryMonitor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   972
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   973
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   974
			  #label: 'Memory Usage'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   975
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   976
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   977
			  #activeHelpKey: #systemMemoryUsage
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   978
			  #argument: 'MemoryUsageView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   979
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   980
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   981
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   982
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   983
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   984
			  #label: 'Processes'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   985
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   986
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   987
			  #activeHelpKey: #systemProcesses
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   988
			  #argument: 'ProcessMonitor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   989
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   990
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   991
			  #label: 'Semaphores'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   992
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   993
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   994
			  #activeHelpKey: #systemSemaphores
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   995
			  #argument: 'SemaphoreMonitor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   996
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   997
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   998
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
   999
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1000
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1001
			  #label: 'Interrupt Latency'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1002
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1003
			  #value: #startLatencyMonitor
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1004
			  #activeHelpKey: #systemInterruptLatency
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1005
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1006
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1007
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1008
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1009
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1010
			  #label: 'Event View'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1011
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1012
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1013
			  #activeHelpKey: #systemEventView
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1014
			  #argument: 'EventMonitor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1015
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1016
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1017
			  #label: 'Event Trace'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1018
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1019
			  #value: #startStopEventTrace
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1020
			  #activeHelpKey: #systemEventTrace
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1021
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1022
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1023
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1024
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1025
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1026
			  #label: 'Collect Garbage'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1027
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1028
			  #value: #garbageCollect
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1029
			  #activeHelpKey: #systemGarbageCollect
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1030
			  #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1031
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1032
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1033
			  #label: 'Collect Garbage And Compress'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1034
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1035
			  #value: #compressingGarbageCollect
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1036
			  #activeHelpKey: #systemGarbageCollectAndCompress
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1037
			  #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage And Compress')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1038
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1039
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1040
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1041
			  #isVisible: #javaSupportPresent
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1042
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1043
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1044
			  #label: 'Reinit Java VM'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1045
			  #isVisible: #javaSupportPresent
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1046
			  #value: #initJavaVM
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1047
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1048
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1049
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1050
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1051
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1052
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1053
		#label: 'Settings'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1054
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1055
		#activeHelpKey: #settings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1056
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1057
		 #(#Menu
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1058
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1059
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1060
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1061
			  #label: 'Language...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1062
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1063
			  #value: #languageSetting
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1064
			  #activeHelpKey: #settingsLanguage
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1065
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1066
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1067
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1068
			  #label: 'Keyboard Mappings...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1069
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1070
			  #value: #keyboardSetting
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1071
			  #activeHelpKey: #settingsKeyboardMappings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1072
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1073
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1074
			  #label: 'View Style...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1075
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1076
			  #value: #viewStyleSetting
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1077
			  #activeHelpKey: #settingsViewStyle
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1078
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1079
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1080
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1081
			  #label: 'Fonts...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1082
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1083
			  #value: #fontSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1084
			  #activeHelpKey: #settingsFonts
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1085
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1086
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1087
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1088
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1089
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1090
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1091
			  #label: 'Messages...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1092
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1093
			  #value: #messageSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1094
			  #activeHelpKey: #settingsMessages
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1095
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1096
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1097
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1098
			  #label: 'Compilation...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1099
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1100
			  #value: #compilerSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1101
			  #activeHelpKey: #settingsCompilation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1102
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1103
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1104
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1105
			  #label: 'Object Memory...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1106
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1107
			  #value: #memorySettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1108
			  #activeHelpKey: #settingsObjectMemory
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1109
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1110
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1111
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1112
			  #label: 'Source And Debugger...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1113
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1114
			  #value: #sourceAndDebuggerSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1115
			  #activeHelpKey: #settingsSourceAndDebugger
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1116
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1117
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1118
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1119
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1120
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1121
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1122
			  #label: 'Printer...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1123
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1124
			  #value: #printerSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1125
			  #activeHelpKey: #settingsPrinter
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1126
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1127
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1128
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1129
			  #label: 'Screen...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1130
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1131
			  #value: #displaySettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1132
			  #activeHelpKey: #settingsScreen
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1133
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1134
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1135
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1136
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1137
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1138
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1139
			  #label: 'Misc...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1140
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1141
			  #value: #miscSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1142
			  #activeHelpKey: #settingsMisc
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1143
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1144
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1145
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1146
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1147
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1148
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1149
			  #label: 'Save Settings...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1150
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1151
			  #value: #saveSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1152
			  #activeHelpKey: #settingsSaveSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1153
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1154
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1155
			  #label: 'Load Settings...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1156
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1157
			  #value: #loadSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1158
			  #activeHelpKey: #settingsLoadSettings
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1159
			  #enabled: #enableDangerousMenuItemsInRemoteLauncher
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1160
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1161
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1162
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1163
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1164
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1165
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1166
		#label: 'Windows'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1167
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1168
		#activeHelpKey: #windows
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1169
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1170
		 #(#Menu
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  1171
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1172
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1173
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1174
			  #label: 'Iconify All'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1175
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1176
			  #value: #iconifyAllWindows
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1177
			  #activeHelpKey: #windowsIconifyAll
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1178
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1179
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1180
			  #label: 'De-iconify All'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1181
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1182
			  #value: #deIconifyAllWindows
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1183
			  #activeHelpKey: #windowsDeiconifyAll
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1184
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1185
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1186
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1187
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1188
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1189
			  #label: 'View Tree'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1190
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1191
			  #value: #startWindowTreeView
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1192
			  #activeHelpKey: #windowsViewTree
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1193
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1194
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1195
			  #label: 'View Tree (all windows)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1196
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1197
			  #value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1198
			  #activeHelpKey: #windowsViewTreeAllViews
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1199
			  #argument: 'WindowTreeView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1200
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1201
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1202
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1203
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1204
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1205
			  #label: 'Select And Inspect'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1206
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1207
			  #value: #viewInspect
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1208
			  #activeHelpKey: #windowsSelectAndInspect
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1209
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1210
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1211
			  #label: 'Select And Destroy'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1212
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1213
			  #value: #viewDestroy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1214
			  #activeHelpKey: #windowsSelectAndDestroy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1215
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1216
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1217
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1218
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1219
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1220
			  #label: 'Find And Raise...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1221
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1222
			  #value: #findAndRaiseWindow
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1223
			  #activeHelpKey: #windowsFindAndRaise
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1224
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1225
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1226
			  #label: 'Find And Destroy...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1227
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1228
			  #value: #findAndDestroyWindow
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1229
			  #activeHelpKey: #windowsFindAndDestroy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1230
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1231
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1232
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1233
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1234
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1235
			  #label: 'Grab Window...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1236
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1237
			  #value: #viewHardcopy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1238
			  #activeHelpKey: #windowsGrapWindow
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1239
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1240
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1241
			  #label: 'Grab Widget...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1242
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1243
			  #value: #widgetHardcopy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1244
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1245
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1246
			  #label: 'Grab Screen...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1247
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1248
			  #value: #fullScreenHardcopy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1249
			  #activeHelpKey: #windowsGrapScreen
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1250
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1251
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1252
			  #label: 'Grab Screen Area...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1253
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1254
			  #value: #screenHardcopy
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1255
			  #activeHelpKey: #windowsGrapScreenArea
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1256
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1257
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1258
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1259
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1260
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1261
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1262
		#label: 'Demos'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1263
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1264
		#activeHelpKey: #demos
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1265
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1266
		 #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1267
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1268
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1269
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1270
			  #label: 'Goodies'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1271
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1272
			  #activeHelpKey: #demosGoodies
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1273
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1274
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1275
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1276
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1277
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1278
				    #label: 'Clock'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1279
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1280
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1281
				    #activeHelpKey: #demosClock
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1282
				    #argument: 'Clock'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1283
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1284
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1285
				    #label: 'Digital Clock'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1286
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1287
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1288
				    #activeHelpKey: #demosDigitalClock
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1289
				    #argument: 'DigitalClockView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1290
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1291
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1292
				    #label: 'Calendar'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1293
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1294
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1295
				    #activeHelpKey: #demosCalendar
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1296
				    #argument: 'Calendar'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1297
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1298
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1299
				    #label: 'Calculator'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1300
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1301
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1302
				    #activeHelpKey: #demosCalculator
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1303
				    #argument: 'CalculatorView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1304
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1305
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1306
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1307
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1308
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1309
				    #label: 'Mail Tool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1310
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1311
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1312
				    #activeHelpKey: #demosMail
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1313
				    #argument: 'MailView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1314
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1315
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1316
				    #label: 'News Tool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1317
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1318
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1319
				    #activeHelpKey: #demosNews
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1320
				    #argument: 'NewsView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1321
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1322
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1323
				    #label: 'FTP Tool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1324
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1325
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1326
				    #activeHelpKey: #demosFTP
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1327
				    #argument: 'FTPTool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1328
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1329
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1330
				    #label: 'Telnet Tool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1331
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1332
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1333
				    #activeHelpKey: #demosTelnet
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1334
				    #argument: 'TelnetTool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1335
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1336
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1337
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1338
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1339
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1340
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1341
			  #label: 'Games'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1342
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1343
			  #activeHelpKey: #demosGames
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1344
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1345
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1346
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1347
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1348
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1349
				    #label: 'Tetris'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1350
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1351
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1352
				    #activeHelpKey: #gamesTetris
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1353
				    #argument: 'Games::Tetris'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1354
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1355
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1356
				    #label: 'Tic Tac Toe'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1357
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1358
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1359
				    #activeHelpKey: #gamesTicTacToe
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1360
				    #argument: 'Games::TicTacToeGame'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1361
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1362
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1363
				    #label: 'Tic Tac Toe (2 players)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1364
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1365
				    #value: #startTicTacToe2
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1366
				    #activeHelpKey: #gamesTicTacToe2
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1367
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1368
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1369
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1370
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1371
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1372
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1373
			  #label: 'Geometric Designs'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1374
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1375
			  #activeHelpKey: #demosGeometric
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1376
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1377
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1378
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1379
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1380
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1381
				    #label: 'Pen Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1382
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1383
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1384
				    #activeHelpKey: #demosPen
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1385
				    #argument: 'PenDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1386
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1387
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1388
				    #label: 'Commander Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1389
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1390
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1391
				    #activeHelpKey: #demosCommander
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1392
				    #argument: 'CommanderDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1393
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1394
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1395
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1396
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1397
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1398
				    #label: 'Mandel'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1399
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1400
				    #value: #openMandelbrotDemo
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1401
				    #activeHelpKey: #demosMandel
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1402
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1403
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1404
				    #label: 'Fractal Plants Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1405
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1406
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1407
				    #activeHelpKey: #demosFractalPlants
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1408
				    #argument: 'FractalPlantsDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1409
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1410
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1411
				    #label: 'Fractal Patterns Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1412
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1413
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1414
				    #activeHelpKey: #demosFractalPatterns
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1415
				    #argument: 'FractalPatternsDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1416
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1417
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1418
				    #label: 'More Fractal Patterns Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1419
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1420
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1421
				    #activeHelpKey: #demosMoreFractalPatterns
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1422
				    #argument: 'ArmchairUniverseDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1423
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1424
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1425
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1426
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1427
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1428
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1429
			  #label: 'Simple Animations'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1430
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1431
			  #activeHelpKey: #demosAnimations
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1432
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1433
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1434
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1435
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1436
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1437
				    #label: 'Walking Man'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1438
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1439
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1440
				    #activeHelpKey: #demosWalkingMan
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1441
				    #argument: 'Animation'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1442
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1443
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1444
				    #label: 'Globe Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1445
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1446
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1447
				    #activeHelpKey: #demosGlobe
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1448
				    #argument: 'GlobeDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1449
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1450
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1451
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1452
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1453
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1454
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1455
			  #label: '3D Graphics'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1456
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1457
			  #activeHelpKey: #demos3D
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1458
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1459
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1460
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1461
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1462
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1463
				    #label: 'Plane'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1464
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1465
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1466
				    #activeHelpKey: #demos3Dplane
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1467
				    #argument: 'GLPlaneDemoView2'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1468
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1469
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1470
				    #label: 'Tetra'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1471
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1472
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1473
				    #activeHelpKey: #demos3Dtetra
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1474
				    #argument: 'GLTetraDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1475
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1476
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1477
				    #label: 'Cube (wireframe)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1478
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1479
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1480
				    #activeHelpKey: #demos3DcubeWire
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1481
				    #argument: 'GLWireCubeDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1482
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1483
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1484
				    #label: 'Cube (solid)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1485
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1486
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1487
				    #activeHelpKey: #demos3DcubeSolid
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1488
				    #argument: 'GLCubeDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1489
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1490
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1491
				    #label: 'Sphere (wireframe)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1492
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1493
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1494
				    #activeHelpKey: #demos3Dsphere
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1495
				    #argument: 'GLWireSphereDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1496
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1497
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1498
				    #label: 'Doughnut (wireframe)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1499
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1500
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1501
				    #activeHelpKey: #demos3Ddoughnut
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1502
				    #argument: 'GLDoughnutDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1503
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1504
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1505
				    #label: 'Planet'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1506
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1507
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1508
				    #activeHelpKey: #demos3Dplanet
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1509
				    #argument: 'GLPlanetDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1510
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1511
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1512
				    #label: 'Teapot'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1513
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1514
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1515
				    #activeHelpKey: #demos3Dteapot
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1516
				    #argument: 'GLTeapotDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1517
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1518
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1519
				    #label: 'Logo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1520
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1521
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1522
				    #activeHelpKey: #demos3Dlogo
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1523
				    #argument: 'Logo3DView1'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1524
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1525
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1526
				    #label: 'Rubics Cube'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1527
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1528
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1529
				    #activeHelpKey: #demosCommander
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1530
				    #argument: 'RubicsCubeView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1531
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1532
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1533
				    #label: 'X/Y Graph'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1534
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1535
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1536
				    #argument: 'GLXYGraph'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1537
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1538
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1539
				    #label: 'X/Y Graph Widget'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1540
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1541
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1542
				    #argument: 'CodingExamples_GUI::GLXYGraph3DDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1543
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1544
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1545
				    #label: 'X/Y Graph Animated'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1546
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1547
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1548
				    #argument: 'CodingExamples_GUI::AnimatedGLXYGraph3DDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1549
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1550
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1551
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1552
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1553
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1554
				    #label: 'Cube (light)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1555
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1556
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1557
				    #argument: 'GLCubeDemoView2'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1558
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1559
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1560
				    #label: 'Cube (light and texture)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1561
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1562
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1563
				    #argument: 'GLBrickCubeDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1564
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1565
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1566
				    #label: 'Sphere (light)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1567
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1568
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1569
				    #argument: 'GLSphereDemoView2'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1570
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1571
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1572
				    #label: 'Colored Octahedron'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1573
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1574
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1575
				    #argument: 'GLOctaHedronDemoView'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1576
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1577
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1578
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1579
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1580
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1581
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1582
			  #label: 'Graphic Editors'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1583
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1584
			  #activeHelpKey: #demosGraphicEditors
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1585
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1586
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1587
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1588
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1589
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1590
				    #label: 'Draw Tool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1591
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1592
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1593
				    #activeHelpKey: #demosGraphicEditorsDrawTool
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1594
				    #argument: 'DrawTool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1595
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1596
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1597
				    #label: 'Logic Tool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1598
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1599
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1600
				    #activeHelpKey: #demosGraphicEditorsLogicTool
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1601
				    #argument: 'LogicTool'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1602
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1603
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1604
				    #label: 'Paint Demo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1605
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1606
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1607
				    #activeHelpKey: #demosGraphicEditorsPaintTool
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1608
				    #argument: 'ColorDrawDemo3'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1609
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1610
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1611
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1612
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1613
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1614
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1615
			  #label: 'GUI'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1616
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1617
			  #activeHelpKey: #demosGUI
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1618
			  #submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1619
			   #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1620
                              
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1621
			       #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1622
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1623
				    #label: 'Widget Gallery'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1624
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1625
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1626
				    #activeHelpKey: #demosGUIWidgets
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1627
				    #argument: 'CodingExamples_GUI::GUIDemo'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1628
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1629
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1630
				    #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1631
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1632
				 #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1633
				    #label: 'Calculator'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1634
				    #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1635
				    #value: #openDemo:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1636
				    #activeHelpKey: #demosGUICalculator
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1637
				    #argument: 'CodingExamples_GUI::GUIDemoCalculator'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1638
				)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1639
			      ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1640
			      nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1641
			  )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1642
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1643
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1644
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1645
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1646
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1647
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1648
		#label: 'Help'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1649
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1650
		#startGroup: #right
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1651
		#activeHelpKey: #help
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1652
		#submenu: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1653
		 #(#Menu
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1654
                    
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1655
		     #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1656
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1657
			  #label: 'What''s New'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1658
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1659
			  #value: #startWhatsNewDocumentation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1660
			  #activeHelpKey: #helpWhatsNew
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1661
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1662
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1663
			  #label: 'Index'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1664
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1665
			  #value: #startDocumentationIndex
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1666
			  #activeHelpKey: #helpIndex
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1667
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1668
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1669
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1670
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1671
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1672
			  #label: 'ST/X Online Documentation'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1673
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1674
			  #value: #startDocumentationTool
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1675
			  #activeHelpKey: #helpSTXOnlineDocumentation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1676
			  #labelImage: #(#ResourceRetriever nil #helpIcon2 'ST/X Online Documentation')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1677
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1678
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1679
			  #label: 'Class Documentation'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1680
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1681
			  #value: #startClassDocumentation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1682
			  #activeHelpKey: #helpClassDocumentation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1683
			  #labelImage: #(#ResourceRetriever nil #helpIcon 'Class Documentation')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1684
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1685
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1686
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1687
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1688
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1689
			  #label: 'Print Documentation...'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1690
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1691
			  #value: #showBookPrintDocument
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1692
			  #activeHelpKey: #helpPrintDocumentation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1693
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1694
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1695
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1696
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1697
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1698
			  #label: 'Active Help'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1699
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1700
			  #value: #toggleActiveHelp:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1701
			  #activeHelpKey: #helpActiveHelp
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1702
			  #indication: #activeHelp
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1703
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1704
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1705
			  #label: '-'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1706
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1707
		       #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1708
			  #label: 'Show Help Texts'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1709
			  #translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1710
			  #activeHelpKey: #helpShowHelp
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1711
			  #indication: #showingHelp:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1712
		      )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1713
		    ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1714
		    nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1715
		)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1716
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1717
	  ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1718
	  nil
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1719
      )
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1720
!
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1721
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1722
menuToolbar
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1723
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1724
     by the MenuEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1725
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1726
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1727
     the MenuEditor may not be able to read the specification."
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1728
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1729
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1730
     MenuEditor new openOnClass:NewLauncher andSelector:#menuToolbar
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1731
     (Menu new fromLiteralArrayEncoding:(NewLauncher menuToolbar)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1732
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1733
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1734
    <resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1735
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1736
    ^
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1737
     
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1738
       #(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1739
          
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1740
	   #(
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1741
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1742
		#label: 'open workspace'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1743
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1744
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1745
		#activeHelpKey: #toolsWorkspace
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1746
		#argument: 'Workspace'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1747
		#labelImage: #(#ResourceRetriever nil #startWorkspaceIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1748
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1749
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1750
		#label: 'open file browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1751
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1752
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1753
		#activeHelpKey: #fileFileBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1754
		#argument: 'FileBrowser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1755
		#labelImage: #(#ResourceRetriever nil #startFileBrowserIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1756
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1757
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1758
		#label: 'save image'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1759
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1760
		#value: #saveImageAs
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1761
		#activeHelpKey: #fileSaveImageAs
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1762
		#labelImage: #(#ResourceRetriever nil #saveImageIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1763
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1764
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1765
		#label: ''
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1766
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1767
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1768
		#label: 'open system browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1769
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1770
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1771
		#activeHelpKey: #classesSystemBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1772
		#argument: 'SystemBrowser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1773
		#labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1774
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1775
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1776
		#label: 'System Browser On Class'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1777
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1778
		#activeHelpKey: #classesSystemBrowserOnClass
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1779
		#labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1780
		#submenuChannel: #menuClassHistory
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1781
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1782
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1783
		#label: 'open changes browser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1784
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1785
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1786
		#activeHelpKey: #toolsChangesBrowser
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1787
		#argument: 'NewChangesBrowser'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1788
		#labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1789
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1790
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1791
		#label: ''
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1792
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1793
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1794
		#label: 'open GUI Builder'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1795
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1796
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1797
		#activeHelpKey: #toolsGUIPainter
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1798
		#argument: 'UIPainter'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1799
		#labelImage: #(#ResourceRetriever nil #startUIPainterIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1800
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1801
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1802
		#label: 'open menu editor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1803
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1804
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1805
		#activeHelpKey: #toolsMenuEditor
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1806
		#argument: 'MenuEditor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1807
		#labelImage: #(#ResourceRetriever nil #startMenuEditorIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1808
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1809
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1810
		#label: 'open image editor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1811
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1812
		#value: #openApplication:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1813
		#activeHelpKey: #toolsImageEditor
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1814
		#argument: 'ImageEditor'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1815
		#labelImage: #(#ResourceRetriever nil #startImageEditorIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1816
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1817
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1818
		#label: ''
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1819
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1820
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1821
		#label: 'garbage collect and compress'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1822
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1823
		#value: #compressingGarbageCollect
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1824
		#activeHelpKey: #systemGarbageCollectAndCompress
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1825
		#labelImage: #(#ResourceRetriever nil #garbageCollectIcon)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1826
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1827
	     #(#MenuItem
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1828
		#label: 'help'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1829
		#translateLabel: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1830
		#isButton: true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1831
		#startGroup: #right
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1832
		#value: #startDocumentationTool
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1833
		#activeHelpKey: #helpSTXOnlineDocumentation
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1834
		#labelImage: #(#ResourceRetriever nil #helpIcon2)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1835
	    )
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1836
	  ) nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1837
	  nil
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1838
      )
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
  1839
1817
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
  1840
    "Modified: / 7.8.1998 / 19:40:36 / cg"
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1841
! !
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1842
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1843
!NewLauncher class methodsFor:'resources'!
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1844
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1845
garbageCollectIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1846
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1847
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1848
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1849
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1850
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1851
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1852
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1853
     ImageEditor openOnClass:self andSelector:#garbageCollectIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1854
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1855
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1856
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1857
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1858
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1859
	constantNamed:#'NewLauncher garbageCollectIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1860
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'DQD@@@.;.1D[DQDQD@@QDP@@.;.;,[,@@ADP@ADQ@@.;@@.;.1@@@A@@DQD@B;@@@[.;DCH@D@@QDP@K,@@K.;,Q@2@P@ADQ@K.;@@DQDQDPL @@DQDKB;B0@QDQ@@@C@@@QD[B0B0,ADP@"H"@@@ADQ@@@@@@DQ@P@@@0@@DQ@@@@C 8@@ADQL3@@@Q@@@@;.;.@@DCL0H@@@@@@@@NC @@@PLC@ @@@@@@C.;.8@@A@0LB@@@@@@@@8N@@@@DC@0H@@@@@B (@@AD@@PLC@ @@@@****@LG@@A@0LB@@@@@JB CL3L0@DC@0H@@@B***(@0L@Q@SLCL @@@@(J@L3L3AD@L"H @@@@@QDQC@0QDQD@@@DP@@@ADQD@@@@QD@@@@@@@@ @B@ @B@@HB@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@H@@@H@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@G1@@@C>0@@A1=0@@XO^@@FG30@C0@^@AZ@? @)P?8@@@O>@@B#? @C<?8@@TO>@@_#? @B ?8@E@O>@G9S? @)>?8@?JO>@EO3? @APO @@@@@@]7]7\DUUUDAEUUQ@U7]5\EUUUTAUUUU@]U]W\@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1861
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1862
saveImageIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1863
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1864
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1865
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1866
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1867
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1868
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1869
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1870
     ImageEditor openOnClass:self andSelector:#saveImageIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1871
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1872
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1873
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1874
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1875
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1876
	constantNamed:#'NewLauncher saveImageIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1877
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UPSL3L0A@ET7L3L0?PAUML3L3OT@US\3L3C5@ET43L3L?PAUM3L3LO4@USSL3L3=@ET7L3L0?PAUML3L3O4@US\3L3C=@ET43L3L?PAUM@@@@O4@US?????=@ET?UUUU?PAUO7??6?4@US=T?=+=@ET?ZO?Z?PAUO4C?6/4@U]U**)WU@ET@@@@@@@AUUUUUUUUU%Y%UUUTE%%UUUUTU)UEUUUUEUUUUUUVYUUTEUTUUUUDUAUUUUUUQUPUUVUUUUUTU%P@a') ; colorMapFromArray:#[255 255 255 0 0 0 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C???@@???0@O??<@C??>@@@@@@@@@@@@;*9R<H*(W)BJ*E:@S.9R,B)HT)@*REJP:$9R<@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1878
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1879
startChangesBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1880
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1881
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1882
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1883
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1884
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1885
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1886
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1887
     ImageEditor openOnClass:self andSelector:#startChangesBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1888
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1889
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1890
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1891
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1892
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1893
	constantNamed:#'NewLauncher startChangesBrowserIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1894
	ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@B****@@@@@@@@@ @@@B****H@@@@@@@@"@@@C????H @@@@@@@2H@@C????L"@@@@@@@3H@@AUUUUL2@@@@@@@SL@@AUUUUD3@@@_=UUQL@@@EUUUTS@@@A]7UUD@@@@U7]5Q@@@@E7]5T@@@@AUUUU@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH@@@@@@@@LB@L@@@@@@@@@@@@@@@@J@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@??8@@O?>@@O?? @C??8@C??>@@??? @???8@O??>@O??? C??? C???8@???8@O??>@C??>@@??? @O?? @C??8@@??8@@O?>@@@@@@@@@@@@@Z.$7LH+-YDBJ+TQ@#.=WHH*+UABJ*5PPZ*$7X@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1895
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1896
startFileBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1897
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1898
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1899
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1900
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1901
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1902
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1903
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1904
     ImageEditor openOnClass:self andSelector:#startFileBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1905
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1906
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1907
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1908
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1909
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1910
	constantNamed:#'NewLauncher startFileBrowserIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1911
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@CLA&Y&Y&Y&X@@@@@@@@L0F@@@@@@A @@@@@@@@3@XN;.;.8F@@@@@@@@CLA ;.@@@@@@@@@@@@@L0FC.8O[6=/[0@@@@@@3@X@; [6=/[6@@@@@@CLA DNC6<@@F<@@@@@@L0F@A@F= [0= @@@@@@3@X@@P=/[6=/@@@@@@CLA @@A/[6=/X@@@@@@L0FC0@O[6=/[0@@@@@@3@XF<@@@@@@@@@@@@@CLA = @@@@@@@@@@@@@L0FA/[6=/A @@@@@@@@3@XO[6=/XF@@@@@@@@CLA @@@@@@X@@@@@@@@L0FY&Y&Y&Y @@@@@@@@C@Y&Y&Y&Y&@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??<@@_??@@G??0@A??<@@_??8@G??>@A??? @_??8@G??>@A??? @_??8@G??>@A??? @_??@@G??0@A??<@@_??@@G??0@@??<@@G??@@@@@@@G.P=0AADHP@PQBD@GDP8 AADHD@PQBA@DN^=0@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1912
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1913
startImageEditorIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1914
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1915
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1916
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1917
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1918
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1919
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1920
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1921
     ImageEditor openOnClass:self andSelector:#startImageEditorIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1922
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1923
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1924
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1925
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1926
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1927
	constantNamed:#'NewLauncher startImageEditorIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1928
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@M7]7]7]7]7]7]@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"HDQEUVY @@@@@BH"H3L QDUUY&@@@@@@HA@#L2ADQUU&X@@@@@@"H"H"HH"I&W]0@@@@@BL3L3L "H&Y]7@@@@@@H"H"H"BH"Y%7\@@@@@@#L3L3HDQEUVY @@@@@BH"H"H QDUUY&@@@@@@H3L3L2ADQUU&X@@@@@@"H"H"HH"I&W]0@@@@@BL#L3L "H&Y]7@@@@@@H2L3L2BH"Y%7\@@@@@@"H"H"HBH"H"H @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@0@0@0L@L@@@@@@@@@@0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''0???90O??>TC???  ???8HO??>AC??? P???8@O??>@C??? @???8@@@@@@@@@@@@;[7/@D>%J@AJ)P @RK5.@D"%J@AH)R @:JW/@@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1929
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1930
startMenuEditorIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1931
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1932
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1933
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1934
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1935
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1936
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1937
    "
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  1938
     self startMenuEditorIcon inspect
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1939
     ImageEditor openOnClass:self andSelector:#startMenuEditorIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1940
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1941
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1942
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1943
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1944
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1945
	constantNamed:#'NewLauncher startMenuEditorIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1946
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@DQDQDQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@QH"H DQHQD"H @@@@@ATBH"@RHBH H"@@@@@@H@H"HAT%UUUUT@@@@@@%H"H D%IRT%IP@@@@@BUQIU@UIRT%IR@@@@@@IRHBHAIRT%IRT@@@@@@%H"H ERT%IRT @@@@@BUQIU@RT%IRT%@@@@@@IRHBHAT%IRT%H@@@@@@%H"H D%IRT%IP@@@@@BUQIU@UIRT%IR@@@@@@H"HBHAIRT%IRT@@@@@@"H"H IRT%IRT @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@APT@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@T@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 255 0 0 127 127 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 127 0 0 0 127 127 127 0 127 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''0???90O??>TC???  ???8HO??>AC??? P???8@O??>@C??? @???8@@@@@@@@@@@@6=D$@O(YI@B*GRP@"9T$@H(WI@BJD2P@"=D<@@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1947
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1948
startSystemBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1949
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1950
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1951
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1952
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1953
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1954
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1955
    "
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  1956
     self startSystemBrowserIcon inspect
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1957
     ImageEditor openOnClass:self andSelector:#startSystemBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1958
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1959
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1960
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1961
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1962
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1963
	constantNamed:#'NewLauncher startSystemBrowserIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1964
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@ADQDQDQG0@@@@@@@@@@D"H"H"H.@@@@@@@@@@@RH"H"H"8@@@@@@@@@@O;.;.;.; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQDQDQG0@@@@@P;.;.@SL3L3L>@@@@@@@@@@@O;.;.;.8@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQDQDQG0@@@@@P;.;.@VY&Y&Y.@@@@@@@@@@@O;.;.;.8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@N@NC @@8@@@C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@8@C @@@@8b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??0@@O?<@@C??@@@??0@@O?<@@C??@@@@ @@@@H@@@@B@?? A0O?8@_??>@G@?? @ O?8@H@@@@B@?? A0O?8@_??>@G@?? @@O?8@@@@@@@@@@@9O\7\IRTQDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a') ; yourself); yourself]
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  1965
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1966
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1967
startSystemBrowserOnHistoryClassIcon
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1968
    "This resource specification was automatically generated
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1969
     by the ImageEditor of ST/X."
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1970
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1971
    "Do not manually edit this!! If it is corrupted,
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1972
     the ImageEditor may not be able to read the specification."
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1973
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1974
    "
1609
839730f03809 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1608
diff changeset
  1975
     self startSystemBrowserOnHistoryClassIcon inspect
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1976
     ImageEditor openOnClass:self andSelector:#startSystemBrowserOnHistoryClassIcon
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1977
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1978
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1979
    <resource: #image>
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1980
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1981
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1982
	constantNamed:#'NewLauncher startSystemBrowserOnHistoryClassIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1983
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@ADQDQDQG0@@@@@@@@@@D"H"H"H.@@@@@@@@@@@RH"H"H"8@@@@@@@@@@O;.;.;.; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQ@@@QG0@@@@@P;.;.@SL@@CL>@@@@@@@@@@@O; @@;.8@@@@@8@@@@@@@@@@@@@@@@@C @@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@DQ@@@QG0@@@@@P;.;.@VX@@FY.@@@@@@@@@@@O8@@@C.8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C @@@@8@8@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8@@@8@8@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??0^@O?<O0C??FF@??1!! O?<XXC??CF@@ @C@@H@A @B@>7 A0O[8@_?6>@G@=/ @ O[8@H@@@@B@<O A0O[8@_??>@G@;7 @@NY8@@@@@@@@@@@%]7/TITIJUBUBR%P=H$/TIQIJRBTRR$ %\'')P@@a') ; yourself); yourself]!
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  1984
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1985
startUIPainterIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1986
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1987
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1988
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1989
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1990
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1991
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1992
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1993
     ImageEditor openOnClass:self andSelector:#startUIPainterIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1994
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1995
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1996
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1997
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  1998
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  1999
	constantNamed:#'NewLauncher startUIPainterIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2000
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@DQDQDQDQDQDQD@@@@@@@@@@@@@@@@@@@@@@@@@3H"H DQHQD"H @@@@@CLBH"@RHBH H"@@@@@@H@H"HAT%UUUUT@@@@@@%H"H D%IRT%IP@@@@@BUSMU@UIRT%IR@@@@@@IRLBHAIRT%IRT@@@@@@%H"H ERT%IRT @@@@@BUSMU@RT%IRT%@@@@@@IRLBHAT%IRT%H@@@@@@%H"H D%IRT%IP@@@@@BUSMU@UIRT%IR@@@@@@H"LBHAIRT%IRT@@@@@@"H"H IRT%IRT @@@@@@@@@@@@@@@@@@@@@@@@H"H"H"H"H"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@AP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@AP@E@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 255 255 0 0 127 127 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 0 255 127 0 0 0 127 0 0 0 127 127 127 0 127 0 0]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???8@O??>@C??? @???8@O??>PC???&@???90O??>^C???''8???90O??>TC???  ???8HO??>A#??? X???8@O??>@C??? @???8@@@@@@@@@@@@>QN@@H$Q@@BADP@@.QD@@H$Q@@BIDP@@>_N@@@@a') ; yourself); yourself]!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2001
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2002
startWorkspaceIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2003
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2004
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2005
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2006
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2007
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2008
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2009
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2010
     ImageEditor openOnClass:self andSelector:#startWorkspaceIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2011
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2012
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2013
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2014
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2015
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2016
	constantNamed:#'NewLauncher startWorkspaceIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2017
	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@M7]7]7]7]7]7]7]@@@@@@@@@@@@@@@@@@@@@@@QDQDQDQDQDQDQ@0@@@AUPUUUUAUAQDQDB@@@@EUAUUUTE@@DQDPH@@@@P@E@@UPUPTQDQ@ @@@AAPTEAUAUAQDQDB@@@@D@AP@ETET@DQDPH@@@@QDQDQDQDQEADQ@ @@@ADQDQDQDQDTPQDB@@@@DQDQDQDQDQQDDPH@@@@QDQDQDQDQEDDQ@ @@@ADQDQDQDQDQEADB@@@@DQDQDQDQDQDTDPH@@@@QDQDQDQDQDQDQ@0@@@@@@@@@@@@@@@@@@@@@@L"H"H"H"H"H"H0L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@L@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C@@L@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 170 170 170 127 127 127 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@O???0C???<@????@@@@@@@@@@@@ //R@HJJT BB"%P@$(/X@IJJU@BR"%H@[O)R@@@a') ; yourself); yourself]! !
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2018
1659
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2019
!NewLauncher methodsFor:'accessing'!
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2020
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2021
menuToolbar
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2022
    |menu item|
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2023
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2024
    menu := Menu new fromLiteralArrayEncoding:(self class menuToolbar).
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2025
    menu receiver:self.
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2026
    menu findGuiResourcesIn:self.
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2027
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2028
    ^ menu
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2029
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2030
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2031
! !
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2032
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2033
!NewLauncher methodsFor:'aspects'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2034
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2035
canDoTerminal
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2036
    ^ [OperatingSystem isUNIXlike]
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2037
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2038
    "Created: / 27.7.1998 / 12:47:54 / cg"
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2039
!
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2040
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2041
enableDangerousMenuItemsInRemoteLauncher
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2042
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2043
    |holder|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2044
    (holder := builder bindingAt:#enableDangerousMenuItemsInRemoteLauncher) isNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2045
	builder aspectAt:#enableDangerousMenuItemsInRemoteLauncher put:(holder :=  true asValue).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2046
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2047
    ^ holder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2048
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2049
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2050
javaSupportPresent
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2051
    ^ (JavaVM notNil and:[JavaVM isBehavior and:[JavaVM isLoaded]]) asValue
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2052
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2053
    "Created: / 13.2.1998 / 14:25:59 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2054
    "Modified: / 13.2.1998 / 14:26:31 / cg"
1711
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2055
!
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2056
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2057
libraryBuilderAvailable
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2058
    ^ false
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2059
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2060
    "Created: / 20.6.1998 / 16:54:31 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2061
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2062
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2063
!NewLauncher methodsFor:'change & update'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2064
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2065
update:something with:aParameter from:changedObject
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2066
    "care for project changes & update my infoView"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2067
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2068
    ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2069
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2070
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2071
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2072
updateInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2073
    "update the infoView from the current project"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2074
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2075
    |project projectName projectDir packageName defNameSpace msg args projectInfo|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2076
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2077
    (Project isNil or:[(project := Project current) isNil]) ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2078
	projectName := '* none *'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2079
	projectDir := '.'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2080
	packageName := '* none *'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2081
    ] ifFalse:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2082
	projectName := project name.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2083
	projectDir := project directory.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2084
	packageName := project packageName.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2085
	defNameSpace := project defaultNameSpace.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2086
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2087
    defNameSpace isNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2088
	defNameSpace := Smalltalk.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2089
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2090
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2091
    defNameSpace == Smalltalk ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2092
	msg := 'Project: ''%1'' fileOut to: ''%3'' package: ''%2'''.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2093
	args := Array 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2094
		    with:projectName
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2095
		    with:packageName 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2096
		    with:(projectDir contractTo:30).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2097
    ] ifFalse:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2098
	msg := 'Project: ''%1'' fileOut to: ''%3'' package: ''%2''  nameSpace: %4'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2099
	args := Array 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2100
			with:projectName
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2101
			with:packageName 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2102
			with:(projectDir contractTo:30)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2103
			with:defNameSpace name.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2104
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2105
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2106
    self valueOfInfoLabel value:(projectInfo := resources string:msg withArgs:args).
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2107
    ^projectInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2108
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2109
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2110
!NewLauncher methodsFor:'help'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2111
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2112
defaultInfoLabel
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2113
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2114
    ^self updateInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2115
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2116
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2117
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2118
!NewLauncher methodsFor:'private'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2119
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2120
findWindow:title
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2121
    "a helper for find & destroy and find & raise operations;
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2122
     let user choose a view and return it; return nil on cancel"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2123
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2124
    |knownTopViews nameList box|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2125
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2126
    knownTopViews := IdentitySet new.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2127
    Screen allScreens do:[:aScreen |
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2128
	aScreen knownViews do:[:aView |
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2129
	    |top showIt wg|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2130
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2131
	    aView notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2132
		top := aView topView.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2133
		(top isKindOf:DebugView) ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2134
		    "/ although modal, show it.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2135
		    showIt := top realized
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2136
		] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2137
		    wg := top windowGroup.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2138
		    showIt := (wg notNil and:[wg isModal not]).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2139
		].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2140
		showIt ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2141
		    knownTopViews add:top
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2142
		]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2143
	    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2144
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2145
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2146
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2147
    knownTopViews := knownTopViews asOrderedCollection.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2148
    knownTopViews sort:[:v1 :v2 | |l1 l2|
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2149
				l1 := v1 label ? 'aView'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2150
				l2 := v2 label ? 'aView'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2151
				l1 < l2
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2152
		       ].
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2153
    nameList := knownTopViews collect:[:v | 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2154
					|isDead wg p l|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2155
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2156
					l := v label ? 'aView'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2157
					((wg := v windowGroup) notNil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2158
					and:[(p := wg process) notNil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2159
					and:[p state ~~ #dead]]) ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2160
					    l  
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2161
					] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2162
					    l , ' (dead ?)'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2163
					]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2164
				      ].
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2165
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2166
    box := ListSelectionBox new.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2167
    box noEnterField.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2168
    box list:nameList.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2169
    box label:(resources string:'view selection').
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2170
    box title:(resources string:title) withCRs.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2171
    box action:[:selection |
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2172
	|v|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2173
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2174
	v := knownTopViews at:box selectionIndex.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2175
	box destroy.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2176
	^ v
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2177
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2178
    box extent:400@300.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2179
    box showAtPointer.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2180
    ^ nil
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2181
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2182
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2183
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2184
menuClassHistory
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2185
    "returns a sub menu on the history of the classes"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2186
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2187
    |menu history|
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2188
1576
534ad27a7b4a check the class history
tz
parents: 1549
diff changeset
  2189
    BrowserView checkClassHistory.
534ad27a7b4a check the class history
tz
parents: 1549
diff changeset
  2190
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2191
    history := BrowserView classHistory.
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2192
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2193
    menu := Menu new receiver: self.
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2194
    menu addItemGroup: (history collect:
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2195
	[:histEntry|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2196
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2197
	    MenuItem new 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2198
		label: (histEntry upTo: $ ); 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2199
		value: [SystemBrowser open loadFromMessage: histEntry]; 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2200
		activeHelpKey: #classesSystemBrowserOnClass
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2201
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2202
    ).
1652
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  2203
    menu addItem: (MenuItem new 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2204
			label: 'Empty History'; 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2205
			value: [BrowserView classHistory removeAll]; 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2206
			translateLabel: true;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2207
			enabled:(history notEmpty);
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2208
			activeHelpKey: #historyEmptyMenu).
1652
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  2209
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  2210
    menu findGuiResourcesIn:self.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2211
    ^menu
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2212
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2213
    "Modified: / 8.7.1998 / 00:59:50 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2214
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2215
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2216
openApplication: className
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2217
     "open an application, given by the classe name."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2218
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2219
    self openApplication:className nameSpace:nil
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2220
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2221
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2222
openApplication:className nameSpace:aNameSpace
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2223
    "open some application, given the classes name.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2224
     Look for it in Smalltalk and the given nameSpace"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2225
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2226
    self openApplication:className nameSpace:aNameSpace with:#open
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2227
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2228
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2229
openApplication:className nameSpace:aNameSpace with:aSelector
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2230
    "open some application, given the classes name.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2231
     Look for it in Smalltalk and the given nameSpace"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2232
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2233
    |cls|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2234
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2235
    cls := Smalltalk at:className asSymbol.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2236
    cls isNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2237
	"/ look if its in the nameSpace
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2238
	aNameSpace notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2239
	    cls := aNameSpace at:className asSymbol
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2240
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2241
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2242
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2243
    cls isNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2244
	self warn:(resources string:'Sorry, the %1 class is not available.' with:className).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2245
    ] ifFalse:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2246
	Autoload autoloadFailedSignal handle:[:ex |
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2247
	    self warn:(resources string:'Sorry, the %1 class seems to be not available.' with:className)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2248
	] do:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2249
	    self withWaitCursorDo:[cls perform:aSelector]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2250
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2251
    ]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2252
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2253
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2254
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2255
saveAllViews
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2256
    "tell each topview that we are going to terminate and give it chance
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2257
     to save its contents."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2258
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2259
    ObjectMemory changed:#aboutToExit
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2260
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2261
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2262
saveScreenImage:anImage defaultName:defaultName
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2263
    "save an image into a file 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2264
     - ask user for filename using a fileSelectionBox."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2265
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2266
    |fileName|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2267
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2268
    fileName := Dialog
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2269
		    requestFileName:(resources string:'save image in:')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2270
		    default:(defaultName , '.tiff')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2271
		    ok:(resources string:'save')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2272
		    abort:(resources string:'cancel')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2273
		    pattern:'*.tiff'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2274
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2275
    fileName notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2276
	anImage saveOn:fileName
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2277
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2278
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2279
    "Modified: / 21.2.1996 / 13:09:28 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2280
    "Created: / 29.1.1998 / 23:20:36 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2281
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2282
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2283
showDocumentation:aRelativeDocFilePath
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2284
    "open an HTML browser on some document"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2285
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2286
    "
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2287
     although that one is not yet finished,
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2288
     its better than nothing ...
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2289
    "
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2290
    HTMLDocumentView notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2291
	self withWaitCursorDo:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2292
	    "
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2293
	     temporary kludge;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2294
	     not all machines can autoload binaries;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2295
	     however, on my SGI (which can) we want it
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2296
	     to load automatically.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2297
	    "
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2298
	    HTMLDocumentView isLoaded ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2299
		ErrorSignal catch:[HTMLDocumentView autoload]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2300
	    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2301
	    HTMLDocumentView isLoaded ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2302
		HTMLDocumentView openFullOnDocumentationFile:aRelativeDocFilePath. 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2303
		^ self
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2304
	    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2305
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2306
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2307
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2308
    self warn:'Sorry, the ST/X HTML reader is not
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2309
included in this release.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2310
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2311
Please use Mosaic, netscape, chimera or any
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2312
other HTML viewer to see the documentation.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2313
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2314
The documentation is found in the ''doc/online'' directory.'.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2315
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2316
    "Modified: / 25.2.1998 / 21:24:20 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2317
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2318
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2319
!NewLauncher methodsFor:'private - settings callBacks'!
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2320
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2321
changeViewStyleTo:newStyle
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2322
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2323
    newStyle notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2324
	self withWaitCursorDo:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2325
	    transcript showCR:'change style to ' , newStyle , ' ...'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2326
	    View defaultStyle:newStyle asSymbol.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2327
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2328
	self reOpen
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2329
    ]
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2330
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2331
!
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2332
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2333
fontBoxForEncoding:encodingMatch
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2334
    "open a fontBox, showing fonts which match some encoding
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2335
     (used when changing to japanese ...)"
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2336
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2337
    |box y b
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2338
     labelDef buttonDef listDef menuDef textDef
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2339
     models labels allOfThem filter|
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2340
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2341
    encodingMatch notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2342
	filter := [:f | f encoding notNil 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2343
			and:[encodingMatch match:f encoding]].
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2344
    ].
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2345
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2346
    models := OrderedCollection new.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2347
    labels := OrderedCollection new.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2348
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2349
    models add:(allOfThem := nil asValue).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2350
    models add:(labelDef := Label defaultFont asValue).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2351
    models add:(buttonDef := Button defaultFont asValue).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2352
    models add:(listDef := SelectionInListView defaultFont asValue).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2353
    models add:(menuDef := MenuView defaultFont asValue).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2354
    models add:(textDef := TextView defaultFont asValue).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2355
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2356
    box := Dialog new.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2357
    box label:(resources string:'Font settings').
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2358
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2359
    models
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2360
    with:(resources array:#('all' 'labels' 'buttons' 'lists' 'menus' 'edit text'))
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2361
    do:[:model :title |
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2362
	|y2 lbl f i|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2363
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2364
	f := model value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2365
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2366
	(box addTextLabel:title) adjust:#left.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2367
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2368
	y := box yPosition.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2369
	b := box addComponent:(Button label:(resources string:'change ...')) tabable:true.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2370
	b relativeExtent:nil; extent:(b preferredExtent).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2371
	y2 := box yPosition.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2372
	box yPosition:y.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2373
	i := box leftIndent.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2374
	box leftIndent:(b widthIncludingBorder + View viewSpacing).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2375
	(lbl := box addTextLabel:'')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2376
	    adjust:#left;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2377
	    font:(model value);
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2378
	    labelChannel:(BlockValue 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2379
			    with:[:v | |f|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2380
				f := v value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2381
				f isNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2382
				    ''
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2383
				] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2384
				    f userFriendlyName
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2385
				]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2386
			    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2387
			    argument:model).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2388
	labels add:lbl.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2389
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2390
	box leftIndent:i.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2391
	box yPosition:(box yPosition max:y2).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2392
	box addVerticalSpace.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2393
	box addHorizontalLine.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2394
	box addVerticalSpace.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2395
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2396
	b action:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2397
	    |f|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2398
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2399
	    f := FontPanel 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2400
		fontFromUserInitial:(model value) 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2401
			      title:(resources string:'font for %1' with:title)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2402
			     filter:filter.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2403
	    f notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2404
		model == allOfThem ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2405
		    models do:[:m | m value:f].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2406
		    labels do:[:l | l font:f]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2407
		] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2408
		    model value:f.  
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2409
		    lbl font:f.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2410
		].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2411
	    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2412
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2413
	model == allOfThem ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2414
	    box addVerticalSpace
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2415
	]
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2416
    ].
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2417
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2418
    box addAbortButton; addOkButton.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2419
    (box addButton:(Button label:(resources string:'defaults')) before:nil)
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2420
	action:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2421
	    "/ fetch defaults
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2422
	    View updateAllStyleCaches.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2423
	    labelDef value: Label defaultFont.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2424
	    buttonDef value: Button defaultFont.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2425
	    listDef value: SelectionInListView defaultFont.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2426
	    menuDef value: MenuView defaultFont.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2427
	    textDef value: TextView defaultFont.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2428
	].
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2429
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2430
    box open.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2431
    box accepted ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2432
	Label defaultFont:labelDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2433
	Button defaultFont:buttonDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2434
	Toggle defaultFont:buttonDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2435
	SelectionInListView defaultFont:listDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2436
	MenuView defaultFont:menuDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2437
	PullDownMenu defaultFont:menuDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2438
	TextView defaultFont:textDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2439
	EditTextView defaultFont:textDef value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2440
	CodeView defaultFont:textDef value.
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2441
    ].
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2442
    box destroy.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2443
    ^ box accepted
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2444
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2445
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2446
!
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2447
1603
6a49f338be82 need compatible reopen protocol.
Claus Gittinger <cg@exept.de>
parents: 1600
diff changeset
  2448
reopenLauncher
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2449
    "reopen a new launcher.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2450
     for now (since style & language settings currently do
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2451
     not affect living views ...)
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2452
     WARNING: bad design: Message known in LauncherDialogs"
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2453
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2454
    |contents builder newLauncher wasShowingHelp|
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2455
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2456
    wasShowingHelp := self showingHelp.
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2457
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2458
    contents := transcript endEntry; list.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2459
    builder := self class openAt:(self window origin).
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2460
    builder window waitUntilVisible.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2461
    newLauncher := builder application.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2462
    newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor.
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2463
    newLauncher showingHelp:wasShowingHelp.
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2464
    DebugView newDebugger.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2465
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2466
    "Modified: / 4.8.1998 / 17:08:33 / cg"
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2467
! !
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2468
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2469
!NewLauncher methodsFor:'queries'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2470
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2471
preferredExtent
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2472
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2473
    ^super preferredExtent max: Screen current extent//(2.5@3.5)
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2474
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2475
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2476
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2477
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2478
processName
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2479
    "for monitors only - my name"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2480
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2481
    ^ 'ST/X Launcher'
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2482
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2483
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2484
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2485
transcript
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2486
    "my transcript"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2487
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2488
    ^ transcript
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2489
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2490
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2491
!NewLauncher methodsFor:'startup / release'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2492
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2493
addTopViewsToCurrentProject
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2494
    "ignored here - the launcher is always global (i.e. not project private)."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2495
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2496
    ^ self
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2497
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2498
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2499
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2500
allButOpenInterface:anInterface
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2501
    "sent by my superclass to open up my interface"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2502
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2503
    "/ if there is already a transcript on my device,
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2504
    "/ I am a slave launcher with limited functionality.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2505
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2506
    Transcript notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2507
	Transcript ~~ Stderr ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2508
	    isMainLauncher := (Transcript graphicsDevice == device).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2509
	    self enableDangerousMenuItemsInRemoteLauncher value: isMainLauncher.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2510
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2511
	    isMainLauncher := true
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2512
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2513
    ] ifFalse:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2514
	isMainLauncher := true
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2515
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2516
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2517
    super allButOpenInterface:anInterface.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2518
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2519
    self setupTranscript; updateInfo.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2520
    Project notNil ifTrue: [Project addDependent:self].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2521
    self class openLaunchers add: self.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2522
    ^ builder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2523
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2524
    "Created: / 5.2.1998 / 19:45:07 / cg"
1710
1b5921fd12e2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1708
diff changeset
  2525
    "Modified: / 20.6.1998 / 14:53:58 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2526
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2527
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2528
closeRequest
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2529
    "close request from windowing system (window close);
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2530
     confirm and ask if closing of launcher only or
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2531
     a smalltalk-exit is wanted"
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2532
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2533
    |answer|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2534
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2535
    answer := Dialog 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2536
		confirmWithCancel:(resources string:'Close %1 only or exit Smalltalk (close all)?' with:self class name)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2537
		labels:(resources array:#('Cancel' 'Exit' 'Close'))
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2538
		default:3.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2539
    answer isNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2540
	"/ cancel
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2541
	^self
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2542
    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2543
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2544
    answer == true ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2545
	super closeRequest
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2546
    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2547
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2548
    self exit
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2549
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2550
    "Modified: / 5.9.1998 / 16:40:11 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2551
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2552
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2553
postOpenWith:aBuilder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2554
    "increase my priority"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2555
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2556
    self builder window windowGroup process priority:(Processor userSchedulingPriority + 1).
1772
6ab4a13490ed care for UserAdd-stuff being nonNil.
Claus Gittinger <cg@exept.de>
parents: 1767
diff changeset
  2557
    UserAddedTools notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2558
	UserAddedTools associationsDo: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2559
	[:userTool| 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2560
	    self addUserTool: userTool key 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2561
		action: (userTool value at: 1)  
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2562
		in:     (userTool value at: 2) 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2563
		icon:   (userTool value at: 3)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2564
		space:  (userTool value at: 4)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2565
	].
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  2566
    ].
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2567
    super postOpenWith:aBuilder.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2568
    self startClockOnTimedBlock: 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2569
    [
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2570
	|now hours minutes suffix|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2571
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2572
	now := Time now.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2573
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2574
	hours := now hours.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2575
	minutes := now minutes printString.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2576
	suffix := ''.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2577
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2578
	(resources at:'TIME_FORMAT' ifAbsent:12) == 12 ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2579
	    suffix := ' am '.  
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2580
	    hours > 12 ifTrue: [hours := hours - 12. suffix := ' pm '].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2581
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2582
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2583
	minutes size = 1 ifTrue: [minutes := '0', minutes].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2584
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2585
	self valueOfTimeLabel value: hours printString, ':', minutes, suffix.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2586
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2587
	Processor removeTimedBlock: timeBlock.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2588
	Processor addTimedBlock: timeBlock afterSeconds: 1
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2589
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2590
1772
6ab4a13490ed care for UserAdd-stuff being nonNil.
Claus Gittinger <cg@exept.de>
parents: 1767
diff changeset
  2591
    "Modified: / 30.7.1998 / 21:46:43 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2592
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2593
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2594
reOpen
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2595
    "reopen a new launcher.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2596
     for now (since style & language settings currently do
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2597
     not affect living views ...)"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2598
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2599
    self reopenLauncher "/ WARNING: bad design: Message known in LauncherDialogs
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2600
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2601
    "Modified: / 31.7.1998 / 22:48:12 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2602
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2603
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2604
restarted
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2605
    "image restart - since WindowGroup recreates the process with
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2606
     the default priority, we have to raise the prio again.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2607
     Mhmh - this looks like a bug to me ...
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2608
     Also, the cursor (which was stored as a write or waitCursor) must
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2609
     be reset to normal."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2610
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2611
    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2612
    builder window extent: self preferredExtent.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2613
    super restarted
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2614
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2615
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2616
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2617
saveAndTerminateRequest
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2618
    "some windowManagers can send this, to shutDown an application
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2619
     but let it save its state before, for later restart. 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2620
     Although I have not yet encountered such a windowManager,
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2621
     we are already prepared for this ;-)"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2622
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2623
    self snapshot.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2624
    super saveAndTerminateRequest
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2625
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2626
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2627
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2628
setupTranscript 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2629
    "create the transcript view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2630
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2631
    |launcher oldLauncher|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2632
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2633
    "/ check if this is an additional launcher on a remote display.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2634
    "/ if so, do not close the real launcher.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2635
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2636
    (Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2637
	isMainLauncher ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2638
	    launcher := Transcript topView application
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2639
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2640
	    launcher := self class current.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2641
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2642
	launcher notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2643
	    launcher window graphicsDevice == device ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2644
		OpenLaunchers notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2645
		    OpenLaunchers removeIdentical:launcher ifAbsent:nil.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2646
		].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2647
		(oldLauncher := Smalltalk at: #Launcher) notNil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2648
		    ifTrue: [oldLauncher openLaunchers removeIdentical:launcher ifAbsent:nil].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2649
		launcher close
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2650
	    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2651
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2652
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2653
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2654
    transcript := (builder componentAt: #transcriptView) subViews first.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2655
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2656
    isMainLauncher ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2657
	transcript beTranscript.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2658
    ] ifFalse:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2659
	transcript showCR:'**************** Notice ***********************'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2660
	transcript showCR:'**       this is NOT the Transcript          **'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2661
	transcript showCR:'** The real Transcript is on the main screen **'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2662
	transcript showCR:'**                                           **'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2663
	transcript showCR:'** Menus affecting common state are disabled **'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2664
	transcript showCR:'***********************************************'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2665
    ]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2666
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2667
    "Modified: / 29.1.1998 / 22:06:03 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2668
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2669
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2670
uninitialize
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2671
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2672
    super uninitialize.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2673
1604
3dfdb9e54e20 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1603
diff changeset
  2674
    Screen current beep.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2675
    OpenLaunchers notNil ifTrue:[OpenLaunchers removeIdentical:self ifAbsent:nil].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2676
    Project notNil ifTrue:[Project removeDependent:self]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2677
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2678
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2679
!NewLauncher methodsFor:'user actions - about'!
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2680
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2681
openLicenseConditions
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2682
    "open an HTML browser on the 'LICENCE' document"
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2683
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2684
    self withWaitCursorDo:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2685
	|lang doc|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2686
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2687
	Smalltalk releaseIdentification = 'ST/X_free_demo_vsn' ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2688
	    doc := 'english/LICENCE_DEMO_STX.html'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2689
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2690
	    ((lang := Smalltalk language) = 'de'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2691
	    or:[lang = 'german']) ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2692
		doc := 'german/LICENCE_STX.html'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2693
	    ] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2694
		doc := 'english/LICENCE_STX.html'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2695
	    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2696
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2697
	doc := resources at:'LICENCEFILE' default:doc.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2698
	self showDocumentation:('../' , doc)
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2699
    ]
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2700
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2701
    "Created: / 5.2.1998 / 21:43:19 / cg"
1580
3ad279fc384b care for DEMO-licence text
Claus Gittinger <cg@exept.de>
parents: 1576
diff changeset
  2702
    "Modified: / 23.4.1998 / 11:45:53 / cg"
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2703
! !
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2704
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2705
!NewLauncher methodsFor:'user actions - classes'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2706
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2707
browseAllBreakAndTracePoints
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2708
    "open a browser showing all breakPointed/traced methods
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2709
     (but, to get rid of them, there is also a menu itme to remove them all)"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2710
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2711
    SystemBrowser browseMethods: WrappedMethod allInstances title:'all breakPointed/traced methods'
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2712
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2713
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2714
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2715
browseImplementors
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2716
    "open an implementors- browser after asking for a selector"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2717
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2718
    |enterBox selector|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2719
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2720
    enterBox := EnterBox 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2721
		    title:(resources at:'Browse implementors of:') withCRs
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2722
		    okText:(resources at:'browse')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2723
		    action:[:acceptedString | selector := acceptedString].
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2724
    enterBox showAtPointer.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2725
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2726
    selector notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2727
	self withWaitCursorDo:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2728
	    SystemBrowser browseImplementorsOf:selector
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2729
	]  
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2730
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2731
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2732
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2733
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2734
browseResources
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2735
    "open a resource- browser after asking for a resource string"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2736
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2737
    |box resourceHolder valueHolder component rsrc value t anyString|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2738
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2739
    anyString := resources string:'* any *'.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2740
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2741
    resourceHolder := ValueHolder newString.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2742
    valueHolder := '*' asValue.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2743
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2744
    box := DialogBox new.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2745
    box label:(resources at:'Resource search:').
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2746
    component := box addTextLabel:(resources at:'Search for methods which contain a\particular resource specification') withCRs.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2747
    component adjust:#left.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2748
    box addVerticalSpace:10.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2749
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2750
    component := box addTextLabel:(resources at:'Resource symbol (empty for any; no matchPattern allowed):') withCRs.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2751
    component adjust:#left.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2752
    component :=  box addComboBoxOn:resourceHolder tabable:true.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2753
    component list:((Array with:anyString) , #('canvas' 'menu' 'keyboard' 'style' 'image' 'programMenu' nil 'needsFix')).
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2754
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2755
    component := box addTextLabel:(resources at:'Resource value (* for any; matchPattern is allowed):') withCRs.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2756
    component adjust:#left.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2757
    box addInputFieldOn:valueHolder tabable:true.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2758
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2759
    box addVerticalSpace:10.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2760
    box addHelpButtonFor:'programming/language.html#RESOURCEDEFS'.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2761
    box addAbortButton; addOkButton.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2762
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2763
    box showAtPointer.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2764
    box destroy.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2765
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2766
    box accepted ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2767
	rsrc := resourceHolder value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2768
	value := valueHolder value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2769
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2770
	(rsrc isNil or:[rsrc isEmpty or:[rsrc = '*' or:[rsrc = anyString]]]) ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2771
	    t := 'methods with any resource'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2772
	    rsrc := nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2773
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2774
	    t := 'methods with #' , rsrc , '-resource'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2775
	    rsrc := rsrc withoutSeparators asSymbol
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2776
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2777
	(value isNil or:[value isEmpty or:[value = '*']]) ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2778
	    t := t , ' and any value'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2779
	    value := nil
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2780
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2781
	    t := t , ' and value ' , value.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2782
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2783
	self withWaitCursorDo:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2784
	    SystemBrowser browseForResource:rsrc
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2785
			  containing:value
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2786
			  in:(Smalltalk allClasses)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2787
			  title:t
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2788
	]  
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2789
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2790
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2791
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2792
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2793
browseSenders
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2794
    "open a senders- browser after asking for a selector"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2795
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2796
    |enterBox selector|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2797
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2798
    enterBox := EnterBox 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2799
		    title:(resources at:'Browse senders of:') withCRs
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2800
		    okText:(resources at:'browse')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2801
		    action:[:acceptedString | selector := acceptedString].
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2802
    enterBox showAtPointer.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2803
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2804
    selector notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2805
	self withWaitCursorDo:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2806
	    SystemBrowser browseAllCallsOn:selector
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2807
	]  
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2808
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2809
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2810
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2811
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2812
browseUndeclared
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2813
    "open a browser on methods refering to undeclared variables"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2814
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2815
    self withWaitCursorDo:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2816
	SystemBrowser 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2817
	    browseReferendsOf:(Smalltalk underclaredPrefix , '*')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2818
	    title:(resources string:'references to undeclared variables')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2819
	    warnIfNone:true
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2820
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2821
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2822
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2823
1467
59bf087a0423 missing call added + using own extent calc routine for opening
tz
parents: 1466
diff changeset
  2824
removeAllBreakAndTracePoints
59bf087a0423 missing call added + using own extent calc routine for opening
tz
parents: 1466
diff changeset
  2825
    "remove all break- and trace points"
59bf087a0423 missing call added + using own extent calc routine for opening
tz
parents: 1466
diff changeset
  2826
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2827
    self withCursor:Cursor execute do:[ MessageTracer cleanup]
1467
59bf087a0423 missing call added + using own extent calc routine for opening
tz
parents: 1466
diff changeset
  2828
59bf087a0423 missing call added + using own extent calc routine for opening
tz
parents: 1466
diff changeset
  2829
!
59bf087a0423 missing call added + using own extent calc routine for opening
tz
parents: 1466
diff changeset
  2830
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2831
startClassBrowser
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2832
    "open a classBrowser; asks for class"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2833
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2834
    SystemBrowser askThenBrowseClass
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2835
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2836
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2837
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2838
startClassHierarchyBrowser
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2839
    "open a classHierarchyBrowser; asks for class"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2840
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2841
    SystemBrowser askThenBrowseClassHierarchy
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2842
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2843
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2844
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2845
startFullClassBrowser
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2846
    "open a fullClass systemBrowser; asks for class"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2847
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2848
    SystemBrowser askThenBrowseFullClassProtocol
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2849
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2850
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2851
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2852
!NewLauncher methodsFor:'user actions - demos'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2853
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2854
openDemo:className
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2855
    "open a demo, given its name.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2856
     Looks in both the Smalltalk- and the Demos-Namespace
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2857
     for that class."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2858
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2859
    self openApplication:className nameSpace:Demos
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2860
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2861
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2862
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2863
openMandelbrotDemo
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2864
    Demos::ComplexIterationView new open
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2865
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2866
    "Created: / 8.7.1998 / 20:36:37 / cg"
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2867
!
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2868
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2869
startTicTacToe2
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2870
    "opens a 2-user ticTacToe game"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2871
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2872
    self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2873
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2874
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2875
!NewLauncher methodsFor:'user actions - file'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2876
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2877
exit
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2878
    "saves a snapshot image and exits, after asking for a fileName"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2879
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2880
    |fileName saveAndExit box|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2881
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2882
    box := EnterBox2 title:(resources string:'Save image before exiting?')
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2883
	okText:(resources string:'Save & Exit') 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2884
	abortText:(resources string:'Cancel')
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2885
	action:[:str|fileName := str. saveAndExit := true].
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2886
    box label: (resources string:'Exiting ST/X').
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2887
    box initialText: ObjectMemory nameForSnapshot.
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2888
    box okText2:(resources string:'Exit') action2:[:str|saveAndExit := false]; showAtPointer.
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2889
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2890
    saveAndExit notNil
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2891
    ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2892
	saveAndExit
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2893
	ifTrue:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2894
	[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2895
	    self saveImageAs: fileName
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2896
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2897
	Smalltalk exit
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2898
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2899
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2900
    "Modified: / 23.4.1998 / 18:37:46 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2901
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2902
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2903
objectModuleDialog
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2904
    "opens a moduleInfo dialog"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2905
1780
1d3d4644f3c4 use objectModuleDialog from Launcher.
Claus Gittinger <cg@exept.de>
parents: 1777
diff changeset
  2906
    ^ Launcher::LauncherDialogs objectModuleDialogFor:self
1d3d4644f3c4 use objectModuleDialog from Launcher.
Claus Gittinger <cg@exept.de>
parents: 1777
diff changeset
  2907
1d3d4644f3c4 use objectModuleDialog from Launcher.
Claus Gittinger <cg@exept.de>
parents: 1777
diff changeset
  2908
    "Modified: / 31.7.1998 / 17:33:24 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2909
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2910
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2911
saveImage
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2912
    "save image"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2913
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2914
    self showCursor:Cursor write.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2915
    [
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2916
	(ObjectMemory snapShotOn:ObjectMemory nameForSnapshot) ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2917
	    self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2918
	]
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2919
    ] valueNowOrOnUnwindDo:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2920
	self restoreCursors.
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2921
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2922
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2923
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2924
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2925
saveImageAs
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2926
    "save image, after asking for a file name"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2927
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2928
    self saveImageAs: (
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2929
	FileSelectionBrowser 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2930
	    request: (resources string:'Save Image As') 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2931
	    fileName: ObjectMemory nameForSnapshot
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2932
	    inDirectory: Filename currentDirectory name
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2933
	    withFileFilters: #('*.img'))
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2934
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2935
    "Modified: / 23.4.1998 / 18:25:17 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2936
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2937
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2938
saveImageAs: aFileName
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2939
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2940
    aFileName notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2941
	self showCursor:Cursor write.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2942
	[       
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2943
	    (ObjectMemory snapShotOn:aFileName) ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2944
		self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2945
	    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2946
	] valueNowOrOnUnwindDo:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2947
	    self restoreCursors.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2948
	].
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2949
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2950
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2951
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2952
!NewLauncher methodsFor:'user actions - help'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2953
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2954
activeHelp
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2955
1842
b4bd3ccd2f3d fixed active help (must be a value holder)
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
  2956
    ^ helpIsOn ? (helpIsOn := false asValue)
b4bd3ccd2f3d fixed active help (must be a value holder)
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
  2957
b4bd3ccd2f3d fixed active help (must be a value holder)
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
  2958
    "Modified: / 18.8.1998 / 16:05:40 / cg"
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2959
!
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2960
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2961
showBookPrintDocument
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2962
    "open an HTML browser on the 'book'-printing document"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2963
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2964
    self showDocumentation:'BOOK.html'
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2965
!
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2966
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2967
startClassDocumentation
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2968
    "open an HTML browser on the 'classDoc/TOP' document"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2969
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2970
    self showDocumentation:'classDoc/TOP.html'
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2971
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2972
!
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2973
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2974
startDocumentationIndex
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2975
    "open an HTML browser on the 'index' document"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2976
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2977
    self showDocumentation:'index.html'
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2978
!
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2979
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2980
startDocumentationTool
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2981
    "open an HTML browser on the 'TOP' document"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2982
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2983
    self showDocumentation:'TOP.html'
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2984
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2985
!
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2986
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2987
startWhatsNewDocumentation
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2988
    "open an HTML browser on the 'whatsNew.html' document"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2989
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2990
    self showDocumentation:'whatsNew.html'
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2991
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2992
!
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2993
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2994
toggleActiveHelp:aBoolean
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2995
    "turn on/off active help"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2996
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2997
    ActiveHelp notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2998
	self activeHelp value:aBoolean.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2999
	aBoolean ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3000
	    ActiveHelp start
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3001
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3002
	    ActiveHelp stop
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3003
	]
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  3004
    ].
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  3005
1842
b4bd3ccd2f3d fixed active help (must be a value holder)
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
  3006
    "Modified: / 18.8.1998 / 16:06:27 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3007
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3008
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3009
!NewLauncher methodsFor:'user actions - settings'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3010
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3011
compilerSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3012
    "open a dialog on compiler related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3013
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3014
    Launcher::LauncherDialogs compilerSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3015
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3016
    "Modified: / 31.7.1998 / 22:45:16 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3017
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3018
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3019
displaySettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3020
    "open a dialog on display related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3021
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3022
    Launcher::LauncherDialogs displaySettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3023
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3024
    "Modified: / 31.7.1998 / 22:45:38 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3025
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3026
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3027
fontSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3028
    "open a dialog on font related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3029
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3030
    Launcher::LauncherDialogs fontSettingsFor:self
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3031
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3032
    "Modified: / 31.7.1998 / 22:45:44 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3033
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3034
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3035
keyboardSetting 
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3036
    "open a dialog on keyboard related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3037
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3038
    Launcher::LauncherDialogs keyboardSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3039
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3040
    "Modified: / 31.7.1998 / 22:45:56 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3041
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3042
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3043
languageSetting 
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3044
    "open a dialog on language related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3045
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3046
    Launcher::LauncherDialogs languageSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3047
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3048
    "Modified: / 31.7.1998 / 22:46:13 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3049
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3050
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3051
loadSettings
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3052
    "restore settings from a settings-file."
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3053
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3054
    "a temporary kludge - we need a central systemSettings object for this,
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3055
     which can be saved/restored with a single store/read."
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3056
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3057
    |fileName|
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3058
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3059
    fileName := Dialog 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3060
	requestFileName:(resources string:'load settings from:') 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3061
	default:'settings.stx'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3062
	ok:(resources string:'load') 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3063
	abort:(resources string:'cancel') 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3064
	pattern:'*.stx'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3065
	fromDirectory:nil.
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3066
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3067
    (fileName isNil or:[fileName isEmpty]) ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3068
	"/ canceled
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3069
	^ self
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3070
    ].
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3071
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3072
    self withWaitCursorDo:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3073
	Smalltalk fileIn:fileName.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3074
	self reOpen
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3075
    ].
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3076
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3077
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3078
!
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3079
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3080
memorySettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3081
    "open a dialog on objectMemory related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3082
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3083
    Launcher::LauncherDialogs memorySettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3084
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3085
    "Modified: / 31.7.1998 / 22:46:33 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3086
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3087
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3088
messageSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3089
    "open a dialog on infoMessage related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3090
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3091
    Launcher::LauncherDialogs messageSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3092
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3093
    "Modified: / 31.7.1998 / 22:46:45 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3094
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3095
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3096
miscSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3097
    "open a dialog on misc other settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3098
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3099
    Launcher::LauncherDialogs miscSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3100
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3101
    "Modified: / 31.7.1998 / 22:46:56 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3102
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3103
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3104
printerSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3105
    "open a dialog on printer related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3106
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3107
    Launcher::LauncherDialogs printerSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3108
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3109
    "Modified: / 31.7.1998 / 22:47:05 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3110
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3111
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3112
saveSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3113
    "save settings to a settings-file."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3114
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3115
    Launcher::LauncherDialogs saveSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3116
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3117
    "Modified: / 31.7.1998 / 22:48:38 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3118
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3119
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3120
sourceAndDebuggerSettings
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3121
    "open a dialog on misc other settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3122
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3123
    Launcher::LauncherDialogs sourceAndDebuggerSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3124
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3125
    "Modified: / 31.7.1998 / 22:47:21 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3126
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3127
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3128
viewStyleSetting 
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3129
    "open a dialog on viewStyle related settings"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3130
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3131
    Launcher::LauncherDialogs viewStyleSettingsFor:self.
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3132
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3133
    "Modified: / 31.7.1998 / 22:47:33 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3134
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3135
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3136
!NewLauncher methodsFor:'user actions - system'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3137
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3138
compressingGarbageCollect
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3139
    "perform a compressing garbageCollect"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3140
1608
7f7ed00bbd4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1604
diff changeset
  3141
    self withWaitCursorDo:[ObjectMemory verboseGarbageCollect]
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3142
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3143
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3144
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3145
garbageCollect
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3146
    "perform a non-compressing garbageCollect"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3147
1608
7f7ed00bbd4f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1604
diff changeset
  3148
    self withWaitCursorDo:[ObjectMemory reclaimSymbols]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3149
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3150
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3151
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3152
initJavaVM
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3153
    JavaVM initializeVM
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3154
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3155
    "Created: / 9.2.1998 / 12:06:07 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3156
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3157
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3158
startLatencyMonitor
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3159
    "open an interruptLatencyMonitor view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3160
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3161
    InterruptLatencyMonitor notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3162
	Autoload autoloadFailedSignal catch:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3163
	    InterruptLatencyMonitor autoload.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3164
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3165
	InterruptLatencyMonitor isLoaded ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3166
	    InterruptLatencyMonitor open.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3167
	    ^ self.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3168
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3169
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3170
    self warn:'Sorry - the irq latency monitor is only available
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3171
in the full commercial release'.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3172
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3173
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3174
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3175
startStopEventTrace
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3176
    "start/stop event tracing for a particular view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3177
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3178
    |v wg|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3179
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3180
    v := Screen current viewFromUser.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3181
    v notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3182
	v := v topView.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3183
	wg := v windowGroup.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3184
	wg notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3185
	    "/
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3186
	    "/ toggle eventTrace in its windowGroup
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3187
	    "/
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3188
	    wg traceEvents:(wg preEventHook isNil)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3189
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3190
    ]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3191
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3192
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3193
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3194
!NewLauncher methodsFor:'user actions - tools'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3195
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3196
addUserTool: toolName action: action icon: icon
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3197
    "adds a menu item labeled toolName, and action and icon both to the
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3198
     sub menu 'Tools' and the tool bar.
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3199
    "
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3200
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3201
    self addUserTool: toolName action: action in: nil icon: icon space: true
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3202
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3203
!
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3204
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3205
addUserTool: toolName action: action in: what icon: icon space: space
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3206
    "adds a menu item labeled toolName, and action and icon;
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3207
     for what == #menu    menu item is added at the end of the sub menu 'Tools',
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3208
     for what == #toolbar menu item is added at the end of the tool bar,
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3209
    "
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3210
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3211
    |menuPanel freeMenuIndex|
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3212
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3213
    (what isNil or: [what == #toolbar])
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3214
    ifTrue:
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3215
    [
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3216
	menuPanel := builder namedComponents at: #menuToolbarView.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3217
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3218
	(menuPanel findFirst: [:i| i activeHelpKey = toolName]) == 0
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3219
	ifTrue:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3220
	[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3221
	    freeMenuIndex := menuPanel numberOfItems + 1.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3222
	    space 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3223
	    ifTrue: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3224
	    [
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3225
		(menuPanel createAtIndex: freeMenuIndex) menuItem: (MenuItem labeled: '').
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3226
		freeMenuIndex := freeMenuIndex + 1.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3227
	    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3228
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3229
	    (menuPanel createAtIndex: freeMenuIndex) menuItem:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3230
		(MenuItem new 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3231
		    label: toolName;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3232
		    value: action;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3233
		    isButton: true;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3234
		    labelImage: icon;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3235
		    activeHelpKey: toolName)
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3236
	].
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3237
    ].
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3238
    (what isNil or: [what== #menu])
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3239
    ifTrue:
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3240
    [
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3241
	menuPanel := ((self builder window subViews at: 1 ifAbsent: [^self]) itemAt: 4) submenu.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3242
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3243
	(menuPanel findFirst: [:i| i activeHelpKey = toolName]) == 0
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3244
	ifTrue:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3245
	[       
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3246
	    freeMenuIndex := menuPanel numberOfItems + 1.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3247
	    space 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3248
	    ifTrue: 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3249
	    [
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3250
		(menuPanel createAtIndex: freeMenuIndex) menuItem: (MenuItem labeled: '-').
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3251
		freeMenuIndex := freeMenuIndex + 1.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3252
	    ].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3253
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3254
	    (menuPanel createAtIndex: freeMenuIndex) menuItem:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3255
		(MenuItem new 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3256
		    label: toolName;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3257
		    value: action;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3258
		    labelImage: (LabelAndIcon icon: icon string: toolName);
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3259
		    activeHelpKey: toolName) 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3260
	].
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3261
    ].
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3262
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3263
    UserAddedTools isNil ifTrue: [UserAddedTools := Dictionary new].
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3264
    UserAddedTools at: toolName put: (Array with: action with: what with: icon with: space)
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3265
!
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3266
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3267
newProject 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3268
    "creates a new project & opens a projectView for it"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3269
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3270
    Project notNil ifTrue: [(ProjectView for: Project new) open]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3271
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3272
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3273
openTerminal
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3274
    VT100TerminalView open
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3275
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3276
    "Created: / 27.7.1998 / 12:48:30 / cg"
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3277
!
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3278
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3279
removeUserTool: toolName
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3280
    "removes a menu item labeled toolName
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3281
    "
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3282
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3283
    |userTool space menuIndex removeInMenuBlock|
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3284
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3285
    UserAddedTools isNil ifTrue: [^nil].
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3286
    userTool  := UserAddedTools at: toolName ifAbsent: [^nil].
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3287
    space     := userTool at: 4.
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3288
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3289
    removeInMenuBlock := 
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3290
    [:menuPanel|
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3291
	(menuIndex := menuPanel findFirst: [:i| i activeHelpKey = toolName]) ~~ 0
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3292
	ifTrue:
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3293
	[              
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3294
	    menuPanel remove: menuIndex.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3295
	    space ifTrue: [menuPanel remove: menuIndex - 1].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3296
	].
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3297
    ].
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3298
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3299
    removeInMenuBlock value: (builder namedComponents at: #menuToolbarView).
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3300
    removeInMenuBlock value: ((self builder window subViews at: 1 ifAbsent: [^self]) itemAt: 4) submenu.
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3301
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3302
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3303
    UserAddedTools removeKey: toolName 
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3304
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3305
!
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3306
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3307
selectProject
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3308
    "asks for and switch to another project"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3309
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3310
    |list box|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3311
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3312
    Project notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3313
	list := Project allInstances.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3314
	box := ListSelectionBox new.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3315
	box list:(list collect:[:p | p name]).
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3316
	box title:(resources string:'select a project').
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3317
	box action:[:selection |
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3318
	    |project|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3319
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3320
	    project := list detect:[:p | p name = selection] ifNone:[nil].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3321
	    project isNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3322
		transcript showCR:'no such project.'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3323
	    ] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3324
		project showViews.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3325
		Project current:project
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3326
	    ]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3327
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3328
	box showAtPointer.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3329
	box destroy
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3330
    ]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3331
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3332
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3333
startNewLauncher
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3334
    "opens the new launcher"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3335
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3336
    NewLauncher openAt:(self window origin)
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3337
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3338
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3339
1680
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3340
startOldChangesBrowser
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3341
    "opens the old changeBrowser"
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3342
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3343
    ChangesBrowser open
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3344
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3345
    "Created: / 6.6.1998 / 19:47:26 / cg"
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3346
!
b1156fe1df3b added start-old changesBrowser item
Claus Gittinger <cg@exept.de>
parents: 1679
diff changeset
  3347
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3348
startOldLauncher
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3349
    "opens the old launcher"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3350
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3351
    Launcher openAt:(self window origin)
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3352
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3353
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3354
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3355
!NewLauncher methodsFor:'user actions - windows'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3356
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3357
deIconifyAllWindows
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3358
    |setOfViews|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3359
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3360
    setOfViews := Project current views asIdentitySet.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3361
    setOfViews addAll:(Project defaultProject views).
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3362
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3363
    setOfViews do:[:aTopView |
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3364
	aTopView device == Screen current ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3365
	    aTopView expand
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3366
	].
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3367
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3368
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3369
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3370
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3371
findAndDestroyWindow
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3372
    "find a window (by name) and destroy it"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3373
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3374
    |v|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3375
    v := self findWindow:'select view to close:'.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3376
    v notNil ifTrue:[v destroy]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3377
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3378
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3379
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3380
findAndRaiseWindow
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3381
    "find a window (by name) and raise it"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3382
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3383
    |v|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3384
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3385
    v := self findWindow:'select view to raise deiconified:'.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3386
    v notNil ifTrue:[v raiseDeiconified]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3387
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3388
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3389
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3390
fullScreenHardcopy
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3391
    "after a second (to allow redraw of views under menu ...),
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3392
     save the contents of the whole screen."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3393
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3394
    Processor 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3395
	addTimedBlock:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3396
			self 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3397
			    saveScreenImage:(Image fromScreen) 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3398
			    defaultName:'screen'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3399
		      ] 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3400
	afterSeconds:1
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3401
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3402
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3403
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3404
iconifyAllWindows
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3405
    |setOfViews|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3407
    setOfViews := Project current views asIdentitySet.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3408
    setOfViews addAll:(Project defaultProject views).
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3409
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3410
    setOfViews do:[:aTopView |
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3411
	aTopView device == Screen current ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3412
	    aTopView collapse
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3413
	]
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3414
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3415
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3416
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3417
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3418
pickAView
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3419
    "let user pick a view and return it"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3420
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3421
    |v|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3422
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3423
    (Delay forSeconds:1) wait.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3424
    v := Screen current viewFromUser.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3425
    v isNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3426
	self warn:'Sorry, this is not a smalltalk view'.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3427
	^ nil
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3428
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3429
    ^ v
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3430
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3431
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3432
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3433
screenHardcopy
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3434
    "after a second (to allow redraw of views under menu ...),
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3435
     let user specify a rectangular area on the screen
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3436
     and save its contents."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3437
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3438
    |area|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3439
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3440
    Processor 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3441
	addTimedBlock:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3442
			[Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3443
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3444
			area := Rectangle fromUser.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3445
			(area width > 0 and:[area height > 0]) ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3446
			    self saveScreenImage:(Image fromScreen:area) defaultName:'hardcopy'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3447
			]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3448
		      ] 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3449
	afterSeconds:1
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3450
1841
952d20d44c1b replaced yields by a delay
Claus Gittinger <cg@exept.de>
parents: 1836
diff changeset
  3451
    "Modified: / 18.8.1998 / 15:00:42 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3452
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3453
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3454
startWindowTreeView
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3455
    "open a windowTree view (on a topView)"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3456
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3457
    |v|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3458
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3459
    v := self pickAView.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3460
    v notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3461
	WindowTreeView openOn:v topView
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3462
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3463
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3464
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3465
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3466
viewDestroy
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3467
    "let user pick a view and destroy it.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3468
     Even allow destroying non-smalltalk views
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3469
     (also for views which I forgot due to some error)"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3470
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3471
    |device v id i c|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3472
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3473
    (Delay forSeconds:1) wait.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3474
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3475
    device := Screen current.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3476
    i := Image fromFile:'bitmaps/xpmBitmaps/cursors/cross2.xpm'.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3477
    i isNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3478
	c := Cursor crossHair
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3479
    ] ifFalse:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3480
	c := Cursor fromImage:i
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3481
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3482
    id := device viewIdFromPoint:(device pointFromUserShowing:c).
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3483
    (v := device viewFromId:id) notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3484
	v topView destroy.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3485
	^ self
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3486
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3487
    id = device rootView id ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3488
	^ self
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3489
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3490
    (Dialog confirm:'mhmh, this may not a be smalltalk view\(Or I somehow forgot about it).\Destroy anyway ?' withCRs)
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3491
    ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3492
	device destroyView:nil withId:id
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3493
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3494
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3495
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3496
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3497
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3498
viewHardcopy
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3499
    "after a second (to allow redraw of views under menu ...),
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3500
     let user specify a view and save its contents."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3501
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3502
    Processor 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3503
	addTimedBlock:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3504
			|v|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3505
			(v := Screen current viewFromUser) notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3506
			    self saveScreenImage:(Image fromView:(v topView)) defaultName:'hardcopy'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3507
			]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3508
		      ] 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3509
	afterSeconds:1
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3510
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3511
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3512
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3513
viewInspect
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3514
    "let user pick a view and inspect it. Only smalltalk views are allowed"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3515
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3516
    |v|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3517
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3518
    (v := self pickAView) notNil 
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3519
    ifTrue:
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3520
    [
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3521
	v inspect
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3522
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3523
1847
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3524
!
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3525
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3526
widgetHardcopy
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3527
    "after a second (to allow redraw of views under menu ...),
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3528
     let user specify a widget and save its contents."
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3529
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3530
    Processor 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3531
	addTimedBlock:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3532
			|v|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3533
			(v := Screen current viewFromUser) notNil ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3534
			    self saveScreenImage:(Image fromView:v) defaultName:'hardcopy'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3535
			]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3536
		      ] 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3537
	afterSeconds:1
1847
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3538
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  3539
    "Created: / 21.8.1998 / 20:44:12 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3540
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3541
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3542
!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3543
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3544
version
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3545
    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.104 1998-09-08 10:25:13 cg Exp $'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3546
! !