NewLauncher.st
author Claus Gittinger <cg@exept.de>
Sat, 12 Feb 2000 11:59:11 +0100
changeset 2603 651c0d68cb3d
parent 2582 fa86bcea1691
child 2617 563dee064b18
permissions -rw-r--r--
shortKey
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
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
    15
AbstractLauncherApplication subclass:#NewLauncher
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
    16
	instanceVariableNames:'isMainLauncher helpIsOn'
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
    17
	classVariableNames:'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
"
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    42
    The new launcher.
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    43
    This one provides all of the Launchers functionality, 
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    44
    but has been written using the new GUI painter tools.
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    45
    (i.e. its menu and toolbar is defined by specs, which can be
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    46
     easily modified).
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    47
    Functionality which can be shared with the old launcher
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    48
    has been moved to a common superclass.
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    49
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    50
    If you want to write your own (application-)launcher, we recommend
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    51
    creating a subclass, and redefining the appropriate menu & menuToolBar
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    52
    methods there.
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    53
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    54
    [start with:]
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    55
        NewLauncher open
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    56
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    57
    [see also:]
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    58
        Launcher
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    59
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    60
    [author:]
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    61
        Thomas Zwick, eXept Software AG
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    62
        Claus Gittinger, eXept Software AG
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    63
"
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    64
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    65
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    66
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    67
!NewLauncher class methodsFor:'accessing'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    68
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    69
label
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    70
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    71
    ^'Launcher'
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    72
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    73
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    74
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    75
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    76
!NewLauncher class methodsFor:'defaults'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    77
1836
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    78
windowIcon
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    79
    ^ Icon stxIcon
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    80
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
    81
    "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
    82
    "Modified: / 17.8.1998 / 10:07:09 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    83
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    84
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    85
!NewLauncher class methodsFor:'help specs'!
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    86
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    87
helpSpec
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    88
    "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
    89
     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
    90
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    91
    "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
    92
     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
    93
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    94
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    95
     UIHelpTool openOnClass:NewLauncher    
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    96
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    97
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    98
    <resource: #help>
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    99
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   100
    ^super helpSpec addPairsFrom:#(
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   101
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   102
#about
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   103
'Info.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   104
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   105
#aboutLicenseConditions
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   106
'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
   107
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   108
#classes
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   109
'Class functions.'
1533
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
#classesClassBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   112
'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
   113
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   114
#classesClassHierarchyBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   115
'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
   116
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   117
#classesClassTreeBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   118
'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
   119
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   120
#classesFullClassBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   121
'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
   122
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   123
#classesImplementors
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   124
'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
   125
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   126
#classesRemoveAllTracePoints
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   127
'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
   128
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   129
#classesResourceMethods
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   130
'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
   131
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   132
#classesSenders
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   133
'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
   134
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   135
#classesShowTracePoints
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   136
'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
   137
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   138
#classesSpecial
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   139
'Special class functions.'
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   140
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   141
#classesSpecialReferencesToUndeclared
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   142
'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
   143
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   144
#classesSystemBrowser
2180
0ebfaf076dbf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2167
diff changeset
   145
'Open a System Browser.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   146
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   147
#classesSystemBrowserOnClass
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   148
'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
   149
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   150
#demos
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   151
'Demo programs.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   152
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   153
#demos3D
2326
8cea69558420 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   154
'3D GL graphic demos.'
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   155
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   156
#demos3DcubeSolid
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   157
'A rotating solid cube.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   158
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   159
#demos3DcubeWire
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   160
'A rotating wireframe cube.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   161
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   162
#demos3Ddoughnut
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   163
'A rotating wireframe doughnut.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   164
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   165
#demos3Dlogo
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   166
'The ST/X logo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   167
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   168
#demos3Dplane
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   169
'A rotating plane.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   170
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   171
#demos3Dplanet
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   172
'Two spheres - one rotating around the other.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   173
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   174
#demos3Drubics
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   175
'A rubics cube - with interaction.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   176
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   177
#demos3Dsphere
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   178
'A rotating wireframe sphere.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   179
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   180
#demos3Dteapot
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   181
'A teopot.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   182
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   183
#demos3Dtetra
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   184
'A rotating tetrahedron.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   185
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   186
#demosAnimations
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   187
'Simple animation demos.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   188
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   189
#demosCalculator
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   190
'Opens a calculator with decimal to hex conversion.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   191
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   192
#demosCalendar
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   193
'Opens a GUI on the cal unix program.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   194
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   195
#demosClock
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   196
'Opens an analog clock application.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   197
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   198
#demosCommander
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   199
'Opens a demo for the Commander class.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   200
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   201
#demosDigitalClock
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   202
'Opens a digital clock application'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   203
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   204
#demosFTP
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   205
'Opens a simple FTP interface demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   206
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   207
#demosFractalPatterns
2405
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   208
'Opens a view displaying fractal patterns.'
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   209
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   210
#demosFractalPlants
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   211
'Opens a view displaying fractal plants (iterated function systems).'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   212
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   213
#demosGUI
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   214
'GUI builder demos.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   215
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   216
#demosGUICalculator
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   217
'Calculator built using the GUI builder.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   218
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   219
#demosGUIWidgets
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   220
'GUI widgets usage.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   221
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   222
#demosGames
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   223
'Games.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   224
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   225
#demosGeometric
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   226
'Various demos displaying geometric designs.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   227
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   228
#demosGlobe
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   229
'Opens a rotating globe animation demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   230
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   231
#demosGoodies
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   232
'Goodies and Utilities.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   233
1777
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   234
#demosGraphicEditors
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   235
'Graphic editing demos.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   236
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   237
#demosGraphicEditorsDrawTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   238
'Object drawing demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   239
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   240
#demosGraphicEditorsLogicTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   241
'Simulating Logic demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   242
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   243
#demosGraphicEditorsPaintTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   244
'Painting demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   245
2405
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   246
#demosLSystems
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   247
'Opens a view displaying fractal patterns using Lindenmayer Systems.'
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   248
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   249
#demosMail
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   250
'Opens a simple mail viewer demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   251
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   252
#demosMandel
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   253
'Opens a view displaying the mandelbrot set.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   254
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   255
#demosMoreFractalPatterns
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   256
'Opens a view with more fractal patterns.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   257
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   258
#demosNews
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   259
'Opens a simple news reader demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   260
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   261
#demosPen
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   262
'Opens a demo for the Pen class.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   263
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   264
#demosRemoteLauncher
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   265
'Opens a launcher on a remote display.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   266
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   267
#demosTelnet
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   268
'Opens a Telnet terminal demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   269
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   270
#demosWalkingMan
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   271
'Opens a walking man animation demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   272
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   273
#fileApplicationBuilder
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   274
'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
   275
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   276
#fileFileBrowser
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   277
'Open a FileBrowser to load and edit files.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   278
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   279
#fileLibraryBuilder
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   280
'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
   281
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   282
#fileModules
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   283
'Show 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
   284
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   285
#fileSaveImage
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   286
'Save a snapshot image of ST/X into the current snapshot file.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   287
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   288
#fileSaveImageAs
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   289
'Save a snapshot image of ST/X into a file.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   290
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   291
#gamesPingPong
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   292
'Play classic PingPong against the computer.'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   293
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   294
#gamesPingPong2
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   295
'Play classic PingPong against a friend.'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   296
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
   297
#gamesReversi
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
   298
'The game of reversi (an embedded Java applet)'
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
   299
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   300
#gamesTetris
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   301
'The tetris game - written in Smalltalk.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   302
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   303
#gamesTicTacToe
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   304
'Play TicTacToe against the computer.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   305
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   306
#gamesTicTacToe2
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   307
'Play TicTacToe against a friend.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   308
1864
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   309
#helpActiveHelp
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   310
'Toggle display of active help texts in browsers.'
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   311
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   312
#helpClassDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   313
'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
   314
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   315
#helpIndex
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   316
'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
   317
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   318
#helpPrintDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   319
'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
   320
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   321
#helpSTXOnlineDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   322
'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
   323
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   324
#helpWhatsNew
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   325
'Show the latest news about the ST/X doc.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   326
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   327
#settings
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   328
'Change settings.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   329
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   330
#settingsCommunications
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   331
'Change communication settings.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   332
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   333
#settingsCompilation
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   334
'Change compiler settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   335
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   336
#settingsFonts
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   337
'Change of the font defaults.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   338
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   339
#settingsKeyboardMappings
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   340
'Show the keyboard mappings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   341
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   342
#settingsLanguage
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   343
'Change the national language.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   344
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   345
#settingsLoadSettings
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   346
'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
   347
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   348
#settingsMessages
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   349
'Change the settings for info- / error-messagess.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   350
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   351
#settingsMisc
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   352
'Misc other settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   353
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   354
#settingsObjectMemory
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   355
'Change the object memory settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   356
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   357
#settingsPrinter
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   358
'Change the printer setup.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   359
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   360
#settingsSaveSettings
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   361
'Save 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
   362
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   363
#settingsScreen
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   364
'Change the display screen settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   365
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   366
#settingsSourceAndDebugger
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   367
'Change 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
   368
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   369
#settingsTools
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   370
'Change tool settings.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   371
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   372
#settingsViewStyle
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   373
'Change the current view style.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   374
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   375
#system
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   376
'System tools.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   377
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   378
#systemEventTrace
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   379
'Select a view to toggle the event trace for it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   380
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   381
#systemEventView
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   382
'Open a view and trace its window events on the console.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   383
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   384
#systemGarbageCollect
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   385
'Reclaim unused memory.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   386
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   387
#systemGarbageCollectAndCompress
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   388
'Reclaim unused memory and minimize the amount of used memory.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   389
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   390
#systemInterruptLatency
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   391
'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
   392
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   393
#systemMemory
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   394
'Display object memory statistics.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   395
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   396
#systemMemoryUsage
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   397
'Display object memory usage by class.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   398
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   399
#systemProcesses
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   400
'Open a Process Monitor displaying ST/X processes.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   401
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   402
#systemSemaphores
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   403
'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
   404
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   405
#tools
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   406
'Tools.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   407
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   408
#toolsChangesBrowser
1924
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   409
'Open a Changes Browser.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   410
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   411
#toolsGUIPainter
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   412
'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
   413
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   414
#toolsImageEditor
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   415
'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
   416
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   417
#toolsMenuEditor
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   418
'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
   419
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   420
#toolsMisc
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   421
'Misc Tools.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   422
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   423
#toolsMiscNewChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   424
'Open a ChangesBrowser (new GUI).'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   425
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   426
#toolsMiscNewLauncher
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   427
'(Re-)open a Launcher (new GUI).'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   428
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   429
#toolsMiscOldChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   430
'Open a ChangesBrowser (old GUI).'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   431
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   432
#toolsMiscOldLauncher
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   433
'Open an OldLauncher.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   434
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   435
#toolsMiscProjects
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   436
'Project functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   437
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   438
#toolsMiscProjectsNewProject
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   439
'Create a new project.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   440
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   441
#toolsMiscProjectsSelectProject
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   442
'Select an existing project and reopen its windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   443
1924
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   444
#toolsNewChangesBrowser
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   445
'Open the new changes browser.'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   446
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   447
#toolsOldChangesBrowser
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   448
'Open the old changes browser.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   449
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   450
#toolsProjects
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   451
''
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   452
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   453
#toolsTerminal
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   454
'Open a terminal view (aka xterm)'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   455
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   456
#toolsWorkspace
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   457
'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
   458
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   459
#windows
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   460
'Window functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   461
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   462
#windowsDeiconifyAll
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   463
'Restore all minimized ST/X windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   464
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   465
#windowsFindAndDestroy
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   466
'Open a dialog for selecting an ST/X window by label and destroy it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   467
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   468
#windowsFindAndRaise
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   469
'Open dialog for selecting an ST/X window by label and raise it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   470
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   471
#windowsGrapScreen
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   472
'Grab the whole screen and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   473
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   474
#windowsGrapScreenArea
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   475
'Grab an area of the screen and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   476
2582
fa86bcea1691 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2566
diff changeset
   477
#windowsGrapWidget
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   478
'Grab a single widget and save it to a bitmap-file.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   479
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   480
#windowsGrapWindow
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   481
'Grab a window and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   482
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   483
#windowsIconifyAll
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   484
'Minimize all ST/X windows to icons.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   485
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   486
#windowsRedrawAll
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   487
'Redraw all ST/X windows.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   488
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   489
#windowsSelectAndDestroy
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   490
'Select a window and destroys it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   491
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   492
#windowsSelectAndInspect
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   493
'Select an ST/X window and opens an Inspector on it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   494
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   495
#windowsViewTree
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   496
'Select an ST/X window and display its widget hierarchyin.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   497
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   498
#windowsViewTreeAllViews
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   499
'Display the widget hierarchies of all ST/X windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   500
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   501
)
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   502
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   503
    "Modified: / 13.12.1999 / 22:23:22 / cg"
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   504
! !
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   505
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   506
!NewLauncher class methodsFor:'image specs'!
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   507
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   508
helpIcon
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   509
    "This resource specification was automatically generated
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   510
     by the ImageEditor of ST/X."
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   511
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   512
    "Do not manually edit this!! If it is corrupted,
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   513
     the ImageEditor may not be able to read the specification."
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   514
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   515
    "
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   516
     self helpIcon inspect
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   517
     ImageEditor openOnClass:self andSelector:#helpIcon
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   518
    "
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   519
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   520
    <resource: #image>
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   521
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   522
    ^Icon
2514
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   523
        constantNamed:#'NewLauncher helpIcon'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   524
        ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   525
@@@@@@E@@@@@@J*(D@@@@@***)P@@@@@@J*E@@@@K.,J(T@@@;.>8*E@@@K.:;"(T@@J;..;JE@@K; N;"!!P@C+ B;,(T@@/ @K.JE@@N,@C.2E@@B>@@.3!!
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   526
P@@@@@.8!!T@@@@@+.1P@@@@@/.1P@@@@@N.0P@@@@@N>2D@@@@@B:8!!@@@@@@;8(P@@@@@K+H@@@@@@@@BA@@@@@@J*HP@@@@@@@JD@@@@@C/"!!@@@@@@.,(
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   527
@@@@@@N>H@@@@@@@@@@@@@@a') ; 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:'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   528
@@?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@@@_
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   529
>@@@O? @@C?8@@@?<@@@O>@@@C?@@@@a') ; yourself); yourself]!
1817
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   530
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   531
helpIcon2
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   532
    "This resource specification was automatically generated
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   533
     by the ImageEditor of ST/X."
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   534
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   535
    "Do not manually edit this!! If it is corrupted,
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   536
     the ImageEditor may not be able to read the specification."
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   537
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   538
    "
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   539
     self helpIcon2 inspect
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   540
     ImageEditor openOnClass:self andSelector:#helpIcon2
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   541
    "
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   542
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   543
    <resource: #image>
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   544
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   545
    ^Icon
2024
1f70a426b939 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2023
diff changeset
   546
        constantNamed:#'NewLauncher helpIcon2'
2514
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   547
        ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@3H@@@@@@@@@@@@@@@@CL2@@@@@@@@@@@@@@@@L3L @@@@@@@@@@@@@@@3L3@@@@@@@@@@@@@BLCL3L0@@@@L3@@@@@CL0L3L3@@H3L3L@@@A@L3@3L3LBH#L3L2A@@D@3LCL3L0H"L3L3LD@@PCL0L3L3@"P3L1L0P@A@L3@3L3LBH!!L1L3A@@D@3LCL3L0H"HQL3LD@@PCL0L3L3@"H#D3L0P@A@L3@3L3LBH"D1L3A@A@H3LCL3L0H"P3LSLD@D@3L0@#L3@"P#L3D0P@PCL3L0@#LBH"L3L3A@A@L3L3H H0H"H3L3LD@D@3L3L"HB@"H#L3L0P@P@@@L2H"@BH"L3@@A@A@H"H@@"H H"H@@"HD@D@@H"H @B@ @BH"H@P@ADP@H"H"@@H"H @DQ@@@@DP@@"H"H"H@Q@@@@@@@@@Q@@BH @DP@@@@@@@@@@@AD@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 204 51 192 192 192 253 253 253 191 191 0]; 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]!
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   548
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   549
helpIcon3
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   550
    "This resource specification was automatically generated
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   551
     by the ImageEditor of ST/X."
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   552
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   553
    "Do not manually edit this!! If it is corrupted,
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   554
     the ImageEditor may not be able to read the specification."
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   555
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   556
    "
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   557
     self helpIcon3 inspect
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   558
     ImageEditor openOnClass:self andSelector:#helpIcon3
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   559
    "
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   560
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   561
    <resource: #image>
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   562
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   563
    ^Icon
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   564
        constantNamed:#'NewLauncher helpIcon3'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   565
        ifAbsentPut:[(Depth2Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   566
@@@@@@@@@@@@0@@@@@@@@E0@@@@@@@AW@@@@@@@@U\@@@@@@@EU@@@@@@CQUT@@U@@ATUU@5UP@HUEUS=UWHBEQUT?UUR@!!TUUO5UT HUEUS=UUHBEQUT?5U
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   567
R@!!TUUO=UT HUEUS?UUHH5QUT?5URBETMUO=UT !!UTMS?UUHHUU<4?5URBEU_3O=UT  @W?C?U@HH?0O<?0O2B@?<CLC?0 J ??@?<B(@B O??0(@@@@(C<B
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   568
 @@@@@J@(@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 253 253 253 191 191 0 192 192 192]; mask:((ImageMask new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   569
@X@@@@G @@@A<@@@@_ @@@G<@@@G?@\@C?9? C????A????0_???<G????A????0_???<G????A????0????<O????C????0????<O????C????0????<O??
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   570
??C????0O???8@_?? @@?? @@A?@@@@a') ; yourself); yourself]! !
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   571
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   572
!NewLauncher class methodsFor:'interface specs'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   573
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   574
windowSpec
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   575
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   576
     by the UIPainter of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   577
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   578
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   579
     the UIPainter may not be able to read the specification."
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   580
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   581
    "
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   582
     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   583
     NewLauncher new openInterface:#windowSpec
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   584
     NewLauncher open
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   585
    "
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   586
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   587
    <resource: #canvas>
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   588
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   589
    ^
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   590
     
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   591
       #(#FullSpec
1884
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   592
          #window: 
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   593
           #(#WindowSpec
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   594
              #name: 'Launcher'
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   595
              #layout: #(#LayoutFrame 407 0 353 0 697 0 554 0)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   596
              #label: 'Launcher'
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   597
              #min: #(#Point 374 44)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   598
              #max: #(#Point 1152 900)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   599
              #bounds: #(#Rectangle 407 353 698 555)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   600
              #menu: #menu
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   601
              #usePreferredExtent: false
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   602
              #icon: #windowIcon
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   603
          )
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   604
          #component: 
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   605
           #(#SpecCollection
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   606
              #collection: 
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   607
               #(
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   608
                 #(#MenuPanelSpec
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   609
                    #name: 'menuToolbarView'
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   610
                    #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   611
                    #menu: #menuToolbar
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   612
                    #style: #(#FontDescription #helvetica #medium #roman 10)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   613
                )
1985
b00a8853799b Use Workspace for Transcript window.
Stefan Vogel <sv@exept.de>
parents: 1978
diff changeset
   614
                 #(#WorkspaceSpec
1884
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   615
                    #name: 'transcriptView'
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   616
                    #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   617
                    #hasHorizontalScrollBar: true
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   618
                    #hasVerticalScrollBar: true
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   619
                    #miniScrollerHorizontal: true
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   620
                )
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   621
                 #(#UISubSpecification
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   622
                    #name: 'infoBarSubSpec'
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   623
                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   624
                    #majorKey: #ToolApplicationModel
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   625
                    #minorKey: #windowSpecForInfoBarWithClock
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   626
                )
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   627
              )
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   628
          )
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   629
      )
1836
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   630
1884
c4f9f92836f8 minExtent changed
Claus Gittinger <cg@exept.de>
parents: 1882
diff changeset
   631
    "Modified: / 10.9.1998 / 22:00:11 / cg"
1985
b00a8853799b Use Workspace for Transcript window.
Stefan Vogel <sv@exept.de>
parents: 1978
diff changeset
   632
    "Modified: / 29.1.1999 / 14:55:37 / stefan"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   633
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   634
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   635
!NewLauncher class methodsFor:'menu specs'!
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   636
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   637
menu
1515
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   638
    "This resource specification was automatically generated
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   639
     by the MenuEditor of ST/X."
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   640
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   641
    "Do not manually edit this!! If it is corrupted,
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
   642
     the MenuEditor may not be able to read the specification."
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   643
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   644
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   645
     MenuEditor new openOnClass:NewLauncher andSelector:#menu
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   646
     (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   647
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   648
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   649
    <resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   650
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   651
    ^ 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   652
     #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   653
        #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   654
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   655
            #label: 'About'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   656
            #activeHelpKey: #about
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   657
            #labelImage: #(#ResourceRetriever nil #menuIcon)
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   658
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   659
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   660
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   661
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   662
                  #label: 'About Smalltalk/X...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   663
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   664
                  #value: #openAbout
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   665
                  #activeHelpKey: #aboutSTX
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   666
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   667
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   668
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   669
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   670
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   671
                  #label: 'Licence Conditions'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   672
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   673
                  #value: #openLicenseConditions
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   674
                  #activeHelpKey: #aboutLicenseConditions
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   675
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   676
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   677
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   678
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   679
            )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   680
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   681
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   682
            #label: 'File'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   683
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   684
            #activeHelpKey: #file
2603
651c0d68cb3d shortKey
Claus Gittinger <cg@exept.de>
parents: 2582
diff changeset
   685
            #shortcutKeyCharacter: #Cmdf
651c0d68cb3d shortKey
Claus Gittinger <cg@exept.de>
parents: 2582
diff changeset
   686
            #accessCharacterPosition: 1
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   687
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   688
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   689
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   690
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   691
                  #label: 'File Browser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   692
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   693
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   694
                  #activeHelpKey: #fileFileBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   695
                  #argument: 'FileBrowser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   696
                  #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon 'File Browser')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   697
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   698
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   699
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   700
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   701
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   702
                  #label: 'Modules...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   703
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   704
                  #value: #objectModuleDialog
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   705
                  #activeHelpKey: #fileModules
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   706
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   707
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   708
               #(#MenuItem
2490
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   709
                  #label: 'Packages...'
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   710
                  #translateLabel: true
2603
651c0d68cb3d shortKey
Claus Gittinger <cg@exept.de>
parents: 2582
diff changeset
   711
                  #isVisible: #packageDialogVisible
2490
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   712
                  #value: #packageDialog
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   713
                  #activeHelpKey: #filePackages
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   714
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   715
                )
924e607d11d8 first version of a package dialog
Claus Gittinger <cg@exept.de>
parents: 2483
diff changeset
   716
               #(#MenuItem
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   717
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   718
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   719
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   720
                  #label: 'Library Builder'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   721
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   722
                  #isVisible: #libraryBuilderAvailable
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   723
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   724
                  #activeHelpKey: #fileLibraryBuilder
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   725
                  #argument: 'LibraryBuilder'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   726
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   727
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   728
                  #label: 'Application Builder'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   729
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   730
                  #isVisible: #libraryBuilderAvailable
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   731
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   732
                  #activeHelpKey: #fileApplicationBuilder
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   733
                  #argument: 'ApplicationBuilder'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   734
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   735
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   736
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   737
                  #isVisible: #libraryBuilderAvailable
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   738
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   739
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   740
                  #label: 'Save Image'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   741
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   742
                  #value: #saveImage
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   743
                  #activeHelpKey: #fileSaveImage
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   744
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   745
                )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   746
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   747
                  #label: 'Save Image As...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   748
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   749
                  #value: #saveImageAs
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   750
                  #activeHelpKey: #fileSaveImageAs
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   751
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   752
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   753
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   754
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   755
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   756
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   757
                  #label: 'Exit...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   758
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   759
                  #value: #exit
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   760
                  #activeHelpKey: #fileExit
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   761
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   762
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   763
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   764
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   765
              nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   766
            )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   767
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   768
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   769
            #label: 'Classes'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   770
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   771
            #activeHelpKey: #classes
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   772
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   773
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   774
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   775
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   776
                  #label: 'System Browser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   777
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   778
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   779
                  #activeHelpKey: #classesSystemBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   780
                  #argument: 'SystemBrowser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   781
                  #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   782
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   783
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   784
                  #label: 'System Browser On Class'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   785
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   786
                  #activeHelpKey: #classesSystemBrowserOnClass
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   787
                  #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon 'System Browser On Class')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   788
                  #submenuChannel: #menuClassHistory
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   789
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   790
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   791
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   792
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   793
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   794
                  #label: 'Class Browser...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   795
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   796
                  #value: #startClassBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   797
                  #activeHelpKey: #classesClassBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   798
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   799
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   800
                  #label: 'Full Class Browser...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   801
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   802
                  #value: #startFullClassBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   803
                  #activeHelpKey: #classesFullClassBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   804
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   805
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   806
                  #label: 'Class Hierarchy Browser...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   807
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   808
                  #value: #startClassHierarchyBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   809
                  #activeHelpKey: #classesClassHierarchyBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   810
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   811
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   812
                  #label: 'Class Tree'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   813
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   814
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   815
                  #activeHelpKey: #classesClassTreeBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   816
                  #argument: 'ClassTreeGraphView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   817
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   818
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   819
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   820
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   821
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   822
                  #label: 'Implementors...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   823
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   824
                  #value: #browseImplementors
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   825
                  #activeHelpKey: #classesImplementors
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   826
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   827
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   828
                  #label: 'Senders...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   829
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   830
                  #value: #browseSenders
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   831
                  #activeHelpKey: #classesSenders
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   832
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   833
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   834
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   835
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   836
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   837
                  #label: 'Special'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   838
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   839
                  #value: #special
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   840
                  #activeHelpKey: #classesSpecial
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   841
                  #submenu: 
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   842
                 #(#Menu
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   843
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   844
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   845
                        #label: 'References To Undeclared'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   846
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   847
                        #value: #browseUndeclared
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   848
                        #activeHelpKey: #classesSpecialReferencesToUndeclared
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   849
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   850
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   851
                        #label: 'Find Resource Methods...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   852
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   853
                        #value: #browseResources
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   854
                        #activeHelpKey: #classesResourceMethods
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   855
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   856
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   857
                        #label: 'Show All Break && Trace Points'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   858
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   859
                        #value: #browseAllBreakAndTracePoints
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   860
                        #activeHelpKey: #classesShowTracePoints
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   861
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   862
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   863
                        #label: '-'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   864
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   865
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   866
                        #label: 'Remove All Break && Trace Points'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   867
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   868
                        #value: #removeAllBreakAndTracePoints
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   869
                        #activeHelpKey: #classesRemoveAllTracePoints
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   870
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   871
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   872
                    nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   873
                    nil
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   874
                  )
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   875
                )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   876
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   877
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   878
              nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   879
            )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   880
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   881
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   882
            #label: 'Tools'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   883
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   884
            #activeHelpKey: #tools
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   885
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   886
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   887
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   888
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   889
                  #label: 'Workspace'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   890
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   891
                  #activeHelpKey: #toolsWorkspace
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   892
                  #argument: 'Workspace'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   893
                  #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon 'Workspace')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   894
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   895
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   896
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   897
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   898
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   899
                  #label: 'GUI Painter'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   900
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   901
                  #activeHelpKey: #toolsGUIPainter
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   902
                  #argument: 'UIPainter'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   903
                  #labelImage: #(#ResourceRetriever nil #startUIPainterIcon 'GUI Painter')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   904
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   905
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   906
                  #label: 'Menu Editor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   907
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   908
                  #activeHelpKey: #toolsMenuEditor
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   909
                  #argument: 'MenuEditor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   910
                  #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon 'Menu Editor')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   911
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   912
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   913
                  #label: 'Image Editor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   914
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   915
                  #activeHelpKey: #toolsImageEditor
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   916
                  #argument: 'ImageEditor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   917
                  #labelImage: #(#ResourceRetriever nil #startImageEditorIcon 'Image Editor')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   918
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   919
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   920
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   921
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   922
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   923
                  #label: 'Changes Browser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   924
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   925
                  #value: #startChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   926
                  #activeHelpKey: #toolsChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   927
                  #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   928
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   929
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   930
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   931
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   932
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   933
                  #label: 'Misc'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   934
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   935
                  #activeHelpKey: #toolsMisc
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   936
                  #submenu: 
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   937
                 #(#Menu
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   938
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   939
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   940
                        #label: 'Projects'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   941
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   942
                        #activeHelpKey: #toolsMiscProjects
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   943
                        #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   944
                       #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   945
                          #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   946
                           #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   947
                              #label: 'New Project'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   948
                              #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   949
                              #value: #newProject
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   950
                              #activeHelpKey: #toolsMiscProjectsNewProject
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   951
                            )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   952
                           #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   953
                              #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   954
                            )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   955
                           #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   956
                              #label: 'Select Project...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   957
                              #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   958
                              #value: #selectProject
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   959
                              #activeHelpKey: #toolsMiscProjectsSelectProject
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   960
                            )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   961
                           )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   962
                          nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   963
                          nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   964
                        )
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   965
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   966
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   967
                        #label: '-'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   968
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   969
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   970
                        #label: 'New Launcher'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   971
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   972
                        #value: #startNewLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   973
                        #activeHelpKey: #toolsMiscNewLauncher
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   974
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   975
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   976
                        #label: 'Old Launcher'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   977
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   978
                        #value: #startOldLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   979
                        #activeHelpKey: #toolsMiscOldLauncher
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   980
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   981
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   982
                        #label: '-'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   983
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   984
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   985
                        #label: 'New Changes Browser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   986
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   987
                        #value: #startNewChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   988
                        #activeHelpKey: #toolsMiscNewChangesBrowser
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   989
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   990
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   991
                        #label: 'Old Changes Browser'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   992
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   993
                        #value: #startOldChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   994
                        #activeHelpKey: #toolsMiscOldChangesBrowser
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   995
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   996
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   997
                        #label: '-'
2126
468fd4d21d46 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2112
diff changeset
   998
                        #isVisible: #canDoTerminal
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
   999
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1000
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1001
                        #label: 'Terminal'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1002
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1003
                        #isVisible: #canDoTerminal
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1004
                        #value: #openTerminal
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1005
                        #activeHelpKey: #toolsTerminal
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1006
                      )
2207
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1007
                     #(#MenuItem
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1008
                        #label: '-'
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1009
                        #isVisible: #canDoTerminal
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1010
                      )
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1011
                     #(#MenuItem
2211
9d7b89b3525d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2207
diff changeset
  1012
                        #label: 'Inspect Global Variables'
9d7b89b3525d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2207
diff changeset
  1013
                        #translateLabel: true
9d7b89b3525d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2207
diff changeset
  1014
                        #value: #inspectGlobalVariables
9d7b89b3525d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2207
diff changeset
  1015
                      )
9d7b89b3525d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2207
diff changeset
  1016
                     #(#MenuItem
2207
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1017
                        #label: 'Inspect Workspace Variables'
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1018
                        #translateLabel: true
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1019
                        #value: #inspectWorkspaceVariables
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1020
                      )
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1021
                     #(#MenuItem
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1022
                        #label: 'Remove All Workspace Variables'
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1023
                        #translateLabel: true
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1024
                        #value: #removeAllWorkspaceVariables
84d23e553268 support for workspace variables
Claus Gittinger <cg@exept.de>
parents: 2197
diff changeset
  1025
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1026
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1027
                    nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1028
                    nil
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1029
                  )
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1030
                )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1031
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1032
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1033
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1034
            )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1035
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1036
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1037
            #label: 'System'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1038
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1039
            #activeHelpKey: #system
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1040
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1041
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1042
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1043
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1044
                  #label: 'Memory'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1045
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1046
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1047
                  #activeHelpKey: #systemMemory
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1048
                  #argument: 'MemoryMonitor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1049
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1050
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1051
                  #label: 'Memory Usage'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1052
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1053
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1054
                  #activeHelpKey: #systemMemoryUsage
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1055
                  #argument: 'MemoryUsageView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1056
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1057
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1058
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1059
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1060
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1061
                  #label: 'Processes'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1062
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1063
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1064
                  #activeHelpKey: #systemProcesses
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1065
                  #argument: 'ProcessMonitor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1066
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1067
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1068
                  #label: 'Semaphores'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1069
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1070
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1071
                  #activeHelpKey: #systemSemaphores
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1072
                  #argument: 'SemaphoreMonitor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1073
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1074
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1075
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1076
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1077
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1078
                  #label: 'Interrupt Latency'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1079
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1080
                  #value: #startLatencyMonitor
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1081
                  #activeHelpKey: #systemInterruptLatency
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1082
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1083
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1084
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1085
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1086
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1087
                  #label: 'Event View'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1088
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1089
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1090
                  #activeHelpKey: #systemEventView
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1091
                  #argument: 'EventMonitor'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1092
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1093
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1094
                  #label: 'Event Trace'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1095
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1096
                  #value: #startStopEventTrace
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1097
                  #activeHelpKey: #systemEventTrace
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1098
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1099
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1100
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1101
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1102
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1103
                  #label: 'Collect Garbage'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1104
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1105
                  #value: #garbageCollect
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1106
                  #activeHelpKey: #systemGarbageCollect
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1107
                  #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1108
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1109
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1110
                  #label: 'Collect Garbage And Compress'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1111
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1112
                  #value: #compressingGarbageCollect
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1113
                  #activeHelpKey: #systemGarbageCollectAndCompress
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1114
                  #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage And Compress')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1115
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1116
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1117
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1118
              nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1119
            )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1120
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1121
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1122
            #label: 'Settings'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1123
            #translateLabel: true
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  1124
            #activeHelpKey: #settings
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1125
            #submenuChannel: #settingsMenu
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1126
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1127
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1128
            #label: 'Windows'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1129
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1130
            #activeHelpKey: #windows
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1131
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1132
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1133
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1134
               #(#MenuItem
2167
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1135
                  #label: 'Redraw All'
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1136
                  #translateLabel: true
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1137
                  #value: #redrawAllWindows
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1138
                  #activeHelpKey: #windowsRedrawAll
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1139
                )
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1140
               #(#MenuItem
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1141
                  #label: 'Iconify All'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1142
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1143
                  #value: #iconifyAllWindows
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1144
                  #activeHelpKey: #windowsIconifyAll
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1145
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1146
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1147
                  #label: 'De-iconify All'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1148
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1149
                  #value: #deIconifyAllWindows
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1150
                  #activeHelpKey: #windowsDeiconifyAll
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1151
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1152
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1153
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1154
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1155
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1156
                  #label: 'View Tree'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1157
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1158
                  #value: #startWindowTreeView
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1159
                  #activeHelpKey: #windowsViewTree
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1160
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1161
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1162
                  #label: 'View Tree (all windows)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1163
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1164
                  #value: #openApplication:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1165
                  #activeHelpKey: #windowsViewTreeAllViews
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1166
                  #argument: 'WindowTreeView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1167
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1168
               #(#MenuItem
2371
7ce8ba08aca1 added windowTree on all views on all screens
Claus Gittinger <cg@exept.de>
parents: 2344
diff changeset
  1169
                  #label: 'View Tree (all on all screens)'
7ce8ba08aca1 added windowTree on all views on all screens
Claus Gittinger <cg@exept.de>
parents: 2344
diff changeset
  1170
                  #translateLabel: true
7ce8ba08aca1 added windowTree on all views on all screens
Claus Gittinger <cg@exept.de>
parents: 2344
diff changeset
  1171
                  #value: #startWindowTreeViewForAll
7ce8ba08aca1 added windowTree on all views on all screens
Claus Gittinger <cg@exept.de>
parents: 2344
diff changeset
  1172
                  #activeHelpKey: #windowsViewTree
7ce8ba08aca1 added windowTree on all views on all screens
Claus Gittinger <cg@exept.de>
parents: 2344
diff changeset
  1173
                )
7ce8ba08aca1 added windowTree on all views on all screens
Claus Gittinger <cg@exept.de>
parents: 2344
diff changeset
  1174
               #(#MenuItem
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1175
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1176
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1177
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1178
                  #label: 'Select And Inspect'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1179
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1180
                  #value: #viewInspect
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1181
                  #activeHelpKey: #windowsSelectAndInspect
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1182
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1183
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1184
                  #label: 'Select And Destroy'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1185
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1186
                  #value: #viewDestroy
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1187
                  #activeHelpKey: #windowsSelectAndDestroy
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1188
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1189
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1190
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1191
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1192
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1193
                  #label: 'Find And Raise...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1194
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1195
                  #value: #findAndRaiseWindow
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1196
                  #activeHelpKey: #windowsFindAndRaise
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1197
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1198
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1199
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1200
                  #label: 'Find And Destroy...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1201
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1202
                  #value: #findAndDestroyWindow
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1203
                  #activeHelpKey: #windowsFindAndDestroy
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1204
                  #enabled: #enableDangerousMenuItemsInRemoteLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1205
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1206
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1207
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1208
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1209
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1210
                  #label: 'Grab Window...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1211
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1212
                  #value: #viewHardcopy
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1213
                  #activeHelpKey: #windowsGrapWindow
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1214
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1215
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1216
                  #label: 'Grab Widget...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1217
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1218
                  #value: #widgetHardcopy
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  1219
                  #activeHelpKey: #windowsGrapWidget
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1220
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1221
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1222
                  #label: 'Grab Screen...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1223
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1224
                  #value: #fullScreenHardcopy
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1225
                  #activeHelpKey: #windowsGrapScreen
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1226
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1227
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1228
                  #label: 'Grab Screen Area...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1229
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1230
                  #value: #screenHardcopy
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1231
                  #activeHelpKey: #windowsGrapScreenArea
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1232
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1233
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1234
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1235
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1236
            )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1237
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1238
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1239
            #label: 'Demos'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1240
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1241
            #activeHelpKey: #demos
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1242
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1243
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1244
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1245
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1246
                  #label: 'Goodies'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1247
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1248
                  #activeHelpKey: #demosGoodies
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1249
                  #submenu: 
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1250
                 #(#Menu
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1251
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1252
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1253
                        #label: 'Clock'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1254
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1255
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1256
                        #activeHelpKey: #demosClock
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1257
                        #argument: 'Clock'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1258
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1259
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1260
                        #label: 'Digital Clock'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1261
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1262
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1263
                        #activeHelpKey: #demosDigitalClock
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1264
                        #argument: 'DigitalClockView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1265
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1266
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1267
                        #label: 'Calendar'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1268
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1269
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1270
                        #activeHelpKey: #demosCalendar
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1271
                        #argument: 'Calendar'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1272
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1273
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1274
                        #label: 'Calculator'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1275
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1276
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1277
                        #activeHelpKey: #demosCalculator
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1278
                        #argument: 'CalculatorView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1279
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1280
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1281
                        #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1282
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1283
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1284
                        #label: 'Mail Tool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1285
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1286
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1287
                        #activeHelpKey: #demosMail
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1288
                        #argument: 'MailView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1289
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1290
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1291
                        #label: 'News Tool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1292
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1293
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1294
                        #activeHelpKey: #demosNews
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1295
                        #argument: 'NewsView'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1296
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1297
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1298
                        #label: 'FTP Tool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1299
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1300
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1301
                        #activeHelpKey: #demosFTP
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1302
                        #argument: 'FTPTool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1303
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1304
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1305
                        #label: 'Telnet Tool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1306
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1307
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1308
                        #activeHelpKey: #demosTelnet
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1309
                        #argument: 'TelnetTool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1310
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1311
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1312
                        #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1313
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1314
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1315
                        #label: 'Remote Launcher'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1316
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1317
                        #value: #startRemoteLauncher
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1318
                        #activeHelpKey: #demosRemoteLauncher
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1319
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1320
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1321
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1322
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1323
                  )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1324
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1325
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1326
                  #label: 'Games'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1327
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1328
                  #activeHelpKey: #demosGames
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1329
                  #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1330
                 #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1331
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1332
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1333
                        #label: 'Tetris'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1334
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1335
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1336
                        #activeHelpKey: #gamesTetris
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1337
                        #argument: 'Games::Tetris'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1338
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1339
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1340
                        #label: 'Tic Tac Toe'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1341
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1342
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1343
                        #activeHelpKey: #gamesTicTacToe
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1344
                        #argument: 'Games::TicTacToeGame'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1345
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1346
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1347
                        #label: 'Tic Tac Toe (2 players)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1348
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1349
                        #value: #startTicTacToe2
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1350
                        #activeHelpKey: #gamesTicTacToe2
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1351
                      )
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1352
                     #(#MenuItem
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1353
                        #label: 'PingPong'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1354
                        #translateLabel: true
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1355
                        #value: #openDemo:
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1356
                        #activeHelpKey: #gamesPingPong
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1357
                        #argument: 'Games::PingPongGame'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1358
                      )
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1359
                     #(#MenuItem
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1360
                        #label: 'PingPong (2 players)'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1361
                        #translateLabel: true
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1362
                        #value: #startPingPong2
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1363
                        #activeHelpKey: #gamesPingPong2
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  1364
                      )
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  1365
                     #(#MenuItem
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  1366
                        #label: 'Reversi (Java)'
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  1367
                        #translateLabel: true
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  1368
                        #value: #startReversi
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  1369
                        #activeHelpKey: #gamesReversi
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  1370
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1371
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1372
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1373
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1374
                  )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1375
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1376
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1377
                  #label: 'Geometric Designs'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1378
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1379
                  #activeHelpKey: #demosGeometric
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1380
                  #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1381
                 #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1382
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1383
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1384
                        #label: 'Pen Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1385
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1386
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1387
                        #activeHelpKey: #demosPen
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1388
                        #argument: 'PenDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1389
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1390
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1391
                        #label: 'Commander Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1392
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1393
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1394
                        #activeHelpKey: #demosCommander
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1395
                        #argument: 'CommanderDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1396
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1397
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1398
                        #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1399
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1400
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1401
                        #label: 'Mandel'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1402
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1403
                        #value: #openMandelbrotDemo
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1404
                        #activeHelpKey: #demosMandel
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1405
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1406
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1407
                        #label: 'Fractal Plants Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1408
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1409
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1410
                        #activeHelpKey: #demosFractalPlants
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1411
                        #argument: 'FractalPlantsDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1412
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1413
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1414
                        #label: 'Fractal Patterns Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1415
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1416
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1417
                        #activeHelpKey: #demosFractalPatterns
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1418
                        #argument: 'FractalPatternsDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1419
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1420
                     #(#MenuItem
2405
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1421
                        #label: 'Lindenmayer Patterns Demo'
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1422
                        #translateLabel: true
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1423
                        #value: #openDemo:
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1424
                        #activeHelpKey: #demosLSystems
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1425
                        #argument: 'LSystemsDemo'
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1426
                      )
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
  1427
                     #(#MenuItem
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1428
                        #label: 'More Fractal Patterns Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1429
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1430
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1431
                        #activeHelpKey: #demosMoreFractalPatterns
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1432
                        #argument: 'ArmchairUniverseDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1433
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1434
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1435
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1436
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1437
                  )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1438
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1439
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1440
                  #label: 'Simple Animations'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1441
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1442
                  #activeHelpKey: #demosAnimations
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1443
                  #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1444
                 #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1445
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1446
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1447
                        #label: 'Walking Man'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1448
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1449
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1450
                        #activeHelpKey: #demosWalkingMan
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1451
                        #argument: 'Animation'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1452
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1453
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1454
                        #label: 'Globe Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1455
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1456
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1457
                        #activeHelpKey: #demosGlobe
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1458
                        #argument: 'GlobeDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1459
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1460
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1461
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1462
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1463
                  )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1464
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1465
               #(#MenuItem
2326
8cea69558420 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
  1466
                  #label: '3D GL Graphics'
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1467
                  #translateLabel: true
2167
c9edf0c58d03 menu items reordered
Claus Gittinger <cg@exept.de>
parents: 2148
diff changeset
  1468
                  #isVisible: #displaySupportsGLDrawing
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1469
                  #activeHelpKey: #demos3D
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1470
                  #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1471
                 #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1472
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1473
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1474
                        #label: 'Plane'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1475
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1476
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1477
                        #activeHelpKey: #demos3Dplane
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1478
                        #argument: 'GLPlaneDemoView2'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1479
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1480
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1481
                        #label: 'Tetra'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1482
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1483
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1484
                        #activeHelpKey: #demos3Dtetra
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1485
                        #argument: 'GLTetraDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1486
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1487
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1488
                        #label: 'Cube (wireframe)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1489
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1490
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1491
                        #activeHelpKey: #demos3DcubeWire
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1492
                        #argument: 'GLWireCubeDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1493
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1494
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1495
                        #label: 'Cube (solid)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1496
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1497
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1498
                        #activeHelpKey: #demos3DcubeSolid
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1499
                        #argument: 'GLCubeDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1500
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1501
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1502
                        #label: 'Sphere (wireframe)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1503
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1504
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1505
                        #activeHelpKey: #demos3Dsphere
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1506
                        #argument: 'GLWireSphereDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1507
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1508
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1509
                        #label: 'Doughnut (wireframe)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1510
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1511
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1512
                        #activeHelpKey: #demos3Ddoughnut
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1513
                        #argument: 'GLDoughnutDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1514
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1515
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1516
                        #label: 'Planet'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1517
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1518
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1519
                        #activeHelpKey: #demos3Dplanet
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1520
                        #argument: 'GLPlanetDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1521
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1522
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1523
                        #label: 'Teapot'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1524
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1525
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1526
                        #activeHelpKey: #demos3Dteapot
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1527
                        #argument: 'GLTeapotDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1528
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1529
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1530
                        #label: 'Logo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1531
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1532
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1533
                        #activeHelpKey: #demos3Dlogo
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1534
                        #argument: 'Logo3DView1'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1535
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1536
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1537
                        #label: 'Rubics Cube'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1538
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1539
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1540
                        #activeHelpKey: #demosCommander
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1541
                        #argument: 'RubicsCubeView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1542
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1543
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1544
                        #label: 'X/Y Graph'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1545
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1546
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1547
                        #argument: 'GLXYGraph'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1548
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1549
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1550
                        #label: 'X/Y Graph Widget'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1551
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1552
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1553
                        #argument: 'CodingExamples_GUI::GLXYGraph3DDemo'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1554
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1555
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1556
                        #label: 'X/Y Graph Animated'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1557
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1558
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1559
                        #argument: 'CodingExamples_GUI::AnimatedGLXYGraph3DDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1560
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1561
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1562
                        #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1563
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1564
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1565
                        #label: 'Cube (light)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1566
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1567
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1568
                        #argument: 'GLCubeDemoView2'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1569
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1570
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1571
                        #label: 'Cube (light and texture)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1572
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1573
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1574
                        #argument: 'GLBrickCubeDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1575
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1576
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1577
                        #label: 'Sphere (light)'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1578
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1579
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1580
                        #argument: 'GLSphereDemoView2'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1581
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1582
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1583
                        #label: 'Colored Octahedron'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1584
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1585
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1586
                        #argument: 'GLOctaHedronDemoView'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1587
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1588
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1589
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1590
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1591
                  )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1592
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1593
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1594
                  #label: 'Graphic Editors'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1595
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1596
                  #activeHelpKey: #demosGraphicEditors
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1597
                  #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1598
                 #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1599
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1600
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1601
                        #label: 'Draw Tool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1602
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1603
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1604
                        #activeHelpKey: #demosGraphicEditorsDrawTool
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1605
                        #argument: 'DrawTool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1606
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1607
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1608
                        #label: 'Logic Tool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1609
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1610
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1611
                        #activeHelpKey: #demosGraphicEditorsLogicTool
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1612
                        #argument: 'LogicTool'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1613
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1614
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1615
                        #label: 'Paint Demo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1616
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1617
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1618
                        #activeHelpKey: #demosGraphicEditorsPaintTool
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1619
                        #argument: 'ColorDrawDemo3'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1620
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1621
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1622
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1623
                    nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1624
                  )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1625
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1626
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1627
                  #label: 'GUI'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1628
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1629
                  #activeHelpKey: #demosGUI
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1630
                  #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1631
                 #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1632
                    #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1633
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1634
                        #label: 'Widget Gallery'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1635
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1636
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1637
                        #activeHelpKey: #demosGUIWidgets
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1638
                        #argument: 'CodingExamples_GUI::GUIDemo'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1639
                      )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1640
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1641
                        #label: '-'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1642
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1643
                     #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1644
                        #label: 'Calculator'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1645
                        #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1646
                        #value: #openDemo:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1647
                        #activeHelpKey: #demosGUICalculator
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1648
                        #argument: 'CodingExamples_GUI::GUIDemoCalculator'
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1649
                      )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1650
                     )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1651
                    nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1652
                    nil
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1653
                  )
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1654
                )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1655
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1656
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1657
              nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1658
            )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1659
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1660
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1661
            #label: 'Help'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1662
            #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1663
            #startGroup: #right
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1664
            #activeHelpKey: #help
2603
651c0d68cb3d shortKey
Claus Gittinger <cg@exept.de>
parents: 2582
diff changeset
  1665
            #shortcutKeyCharacter: #Cmdh
651c0d68cb3d shortKey
Claus Gittinger <cg@exept.de>
parents: 2582
diff changeset
  1666
            #accessCharacterPosition: 1
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1667
            #submenu: 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1668
           #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1669
              #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1670
               #(#MenuItem
2296
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1671
                  #label: 'What''s New in the Documentation'
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1672
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1673
                  #value: #startWhatsNewDocumentation
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1674
                  #activeHelpKey: #helpWhatsNew
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1675
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1676
               #(#MenuItem
2296
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1677
                  #label: 'What''s New in ST/X'
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1678
                  #translateLabel: true
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1679
                  #value: #startWhatsNewSTX
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1680
                  #activeHelpKey: #helpReleaseNotes
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1681
                )
cb2a81a506ef checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1682
               #(#MenuItem
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1683
                  #label: 'Index'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1684
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1685
                  #value: #startDocumentationIndex
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1686
                  #activeHelpKey: #helpIndex
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1687
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1688
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1689
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1690
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1691
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1692
                  #label: 'ST/X Online Documentation'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1693
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1694
                  #value: #startDocumentationTool
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1695
                  #activeHelpKey: #helpSTXOnlineDocumentation
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1696
                  #labelImage: #(#ResourceRetriever nil #helpIcon2 'ST/X Online Documentation')
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1697
                )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1698
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1699
                  #label: 'Class Documentation'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1700
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1701
                  #value: #startClassDocumentation
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1702
                  #activeHelpKey: #helpClassDocumentation
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1703
                  #labelImage: #(#ResourceRetriever nil #helpIcon 'Class Documentation')
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1704
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1705
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1706
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1707
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1708
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1709
                  #label: 'Print Documentation...'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1710
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1711
                  #value: #showBookPrintDocument
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1712
                  #activeHelpKey: #helpPrintDocumentation
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1713
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1714
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1715
                  #label: '-'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1716
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1717
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1718
                  #label: 'Active Help'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1719
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1720
                  #isVisible: #showActiveHelpMenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1721
                  #value: #toggleActiveHelp:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1722
                  #activeHelpKey: #helpActiveHelp
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1723
                  #indication: #activeHelp
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1724
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1725
               #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1726
                  #label: 'Show Help Texts'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1727
                  #translateLabel: true
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1728
                  #activeHelpKey: #helpShowHelp
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1729
                  #indication: #showingHelp:
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1730
                )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1731
               )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1732
              nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1733
              nil
1882
6b3ca69046f1 added startRemoteLauncher to demos menu
Claus Gittinger <cg@exept.de>
parents: 1869
diff changeset
  1734
            )
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1735
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1736
         )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1737
        nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1738
        nil
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1739
      )
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1740
!
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1741
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1742
menuToolbar
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1743
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1744
     by the MenuEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1745
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1746
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1747
     the MenuEditor may not be able to read the specification."
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1748
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1749
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1750
     MenuEditor new openOnClass:NewLauncher andSelector:#menuToolbar
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1751
     (Menu new fromLiteralArrayEncoding:(NewLauncher menuToolbar)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1752
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1753
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1754
    <resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1755
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1756
    ^
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1757
     
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1758
       #(#Menu
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1759
          
1924
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1760
           #(
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1761
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1762
                #label: 'open workspace'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1763
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1764
                #value: #openApplication:
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1765
                #activeHelpKey: #toolsWorkspace
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1766
                #argument: 'Workspace'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1767
                #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1768
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1769
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1770
                #label: 'open file browser'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1771
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1772
                #value: #openApplication:
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1773
                #activeHelpKey: #fileFileBrowser
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1774
                #argument: 'FileBrowser'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1775
                #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1776
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1777
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1778
                #label: 'save image'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1779
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1780
                #value: #saveImageAs
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1781
                #activeHelpKey: #fileSaveImageAs
2041
52cd1ca19280 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2039
diff changeset
  1782
                #enabled: #enableDangerousMenuItemsInRemoteLauncher
1924
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1783
                #labelImage: #(#ResourceRetriever nil #saveImageIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1784
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1785
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1786
                #label: ''
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1787
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1788
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1789
                #label: 'open system browser'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1790
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1791
                #value: #openApplication:
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1792
                #activeHelpKey: #classesSystemBrowser
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1793
                #argument: 'SystemBrowser'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1794
                #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1795
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1796
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1797
                #label: 'System Browser On Class'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1798
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1799
                #activeHelpKey: #classesSystemBrowserOnClass
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1800
                #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1801
                #submenuChannel: #menuClassHistory
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1802
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1803
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1804
                #label: 'open changes browser'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1805
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1806
                #value: #startChangesBrowser
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1807
                #activeHelpKey: #toolsChangesBrowser
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1808
                #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1809
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1810
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1811
                #label: ''
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1812
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1813
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1814
                #label: 'open GUI Builder'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1815
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1816
                #value: #openApplication:
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1817
                #activeHelpKey: #toolsGUIPainter
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1818
                #argument: 'UIPainter'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1819
                #labelImage: #(#ResourceRetriever nil #startUIPainterIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1820
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1821
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1822
                #label: 'open menu editor'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1823
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1824
                #value: #openApplication:
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1825
                #activeHelpKey: #toolsMenuEditor
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1826
                #argument: 'MenuEditor'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1827
                #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1828
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1829
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1830
                #label: 'open image editor'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1831
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1832
                #value: #openApplication:
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1833
                #activeHelpKey: #toolsImageEditor
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1834
                #argument: 'ImageEditor'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1835
                #labelImage: #(#ResourceRetriever nil #startImageEditorIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1836
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1837
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1838
                #label: ''
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1839
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1840
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1841
                #label: 'garbage collect and compress'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1842
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1843
                #value: #compressingGarbageCollect
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1844
                #activeHelpKey: #systemGarbageCollectAndCompress
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1845
                #labelImage: #(#ResourceRetriever nil #garbageCollectIcon)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1846
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1847
             #(#MenuItem
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1848
                #label: 'help'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1849
                #translateLabel: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1850
                #isButton: true
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1851
                #startGroup: #right
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1852
                #value: #startDocumentationTool
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1853
                #activeHelpKey: #helpSTXOnlineDocumentation
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1854
                #labelImage: #(#ResourceRetriever nil #helpIcon2)
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1855
            )
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1856
          ) nil
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
  1857
          nil
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1858
      )
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1859
!
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1860
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1861
settingsMenu
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1862
    "This resource specification was automatically generated
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1863
     by the MenuEditor of ST/X."
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1864
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1865
    "Do not manually edit this!! If it is corrupted,
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1866
     the MenuEditor may not be able to read the specification."
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1867
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1868
    "
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1869
     MenuEditor new openOnClass:NewLauncher andSelector:#settingsMenu
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1870
     (Menu new fromLiteralArrayEncoding:(NewLauncher settingsMenu)) startUp
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1871
    "
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1872
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1873
    <resource: #menu>
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1874
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1875
    ^ 
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1876
     #(#Menu
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1877
        #(
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1878
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1879
            #label: 'Language...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1880
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1881
            #value: #languageSetting
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1882
            #activeHelpKey: #settingsLanguage
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1883
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1884
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1885
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1886
            #label: 'Keyboard Mappings...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1887
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1888
            #value: #keyboardSetting
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1889
            #activeHelpKey: #settingsKeyboardMappings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1890
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1891
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1892
            #label: 'View Style...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1893
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1894
            #value: #viewStyleSetting
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1895
            #activeHelpKey: #settingsViewStyle
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1896
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1897
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1898
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1899
            #label: 'Fonts...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1900
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1901
            #value: #fontSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1902
            #activeHelpKey: #settingsFonts
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1903
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1904
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1905
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1906
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1907
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1908
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1909
            #label: 'Messages...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1910
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1911
            #value: #messageSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1912
            #activeHelpKey: #settingsMessages
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1913
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1914
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1915
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1916
            #label: 'Compilation...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1917
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1918
            #value: #compilerSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1919
            #activeHelpKey: #settingsCompilation
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1920
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1921
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1922
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1923
            #label: 'Object Memory...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1924
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1925
            #value: #memorySettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1926
            #activeHelpKey: #settingsObjectMemory
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1927
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1928
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1929
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1930
            #label: 'Source And Debugger...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1931
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1932
            #value: #sourceAndDebuggerSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1933
            #activeHelpKey: #settingsSourceAndDebugger
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1934
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1935
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1936
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1937
            #label: 'Tools...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1938
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1939
            #value: #toolSettings
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  1940
            #activeHelpKey: #settingsTools
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1941
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1942
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1943
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1944
            #label: 'Java...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1945
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1946
            #isVisible: #javaSupportPresent
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1947
            #value: #javaSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1948
            #activeHelpKey: #settingsJava
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1949
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1950
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1951
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1952
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1953
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1954
            #label: 'Printer...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1955
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1956
            #value: #printerSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1957
            #activeHelpKey: #settingsPrinter
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1958
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1959
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1960
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1961
            #label: 'Screen...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1962
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1963
            #value: #displaySettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1964
            #activeHelpKey: #settingsScreen
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1965
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1966
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1967
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1968
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1969
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1970
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1971
            #label: 'Editing...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1972
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1973
            #value: #editSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1974
            #activeHelpKey: #settingsMisc
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1975
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1976
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1977
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1978
            #label: 'Misc...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1979
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1980
            #value: #miscSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1981
            #activeHelpKey: #settingsMisc
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1982
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1983
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1984
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1985
            #label: 'Communications...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1986
            #translateLabel: true
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  1987
            #activeHelpKey: #settingsCommunications
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1988
            #value: #communicationsSettings
2557
d223b3918dbd checkin from browser
ah
parents: 2523
diff changeset
  1989
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1990
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1991
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1992
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1993
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1994
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1995
            #label: 'Save Settings...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1996
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1997
            #value: #saveSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1998
            #activeHelpKey: #settingsSaveSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1999
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2000
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2001
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2002
            #label: 'Load Settings...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2003
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2004
            #value: #loadSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2005
            #activeHelpKey: #settingsLoadSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2006
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2007
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2008
         )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2009
        nil
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2010
        nil
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2011
      )
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2012
! !
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2013
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2014
!NewLauncher class methodsFor:'resources'!
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2015
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2016
garbageCollectIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2017
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2018
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2019
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2020
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2021
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2022
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2023
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2024
     ImageEditor openOnClass:self andSelector:#garbageCollectIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2025
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2026
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2027
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2028
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2029
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2030
	constantNamed:#'NewLauncher garbageCollectIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2031
	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
  2032
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2033
saveImageIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2034
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2035
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2036
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2037
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2038
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2039
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2040
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2041
     ImageEditor openOnClass:self andSelector:#saveImageIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2042
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2043
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2044
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2045
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2046
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2047
	constantNamed:#'NewLauncher saveImageIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2048
	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
  2049
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2050
startChangesBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2051
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2052
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2053
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2054
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2055
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2056
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2057
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2058
     ImageEditor openOnClass:self andSelector:#startChangesBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2059
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2060
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2061
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2062
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2063
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2064
	constantNamed:#'NewLauncher startChangesBrowserIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2065
	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
  2066
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2067
startFileBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2068
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2069
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2070
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2071
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2072
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2073
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2074
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2075
     ImageEditor openOnClass:self andSelector:#startFileBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2076
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2077
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2078
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2079
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2080
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2081
	constantNamed:#'NewLauncher startFileBrowserIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2082
	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
  2083
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2084
startImageEditorIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2085
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2086
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2087
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2088
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2089
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2090
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2091
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2092
     ImageEditor openOnClass:self andSelector:#startImageEditorIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2093
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2094
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2095
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2096
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2097
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2098
	constantNamed:#'NewLauncher startImageEditorIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2099
	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
  2100
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2101
startMenuEditorIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2102
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2103
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2104
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2105
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2106
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2107
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2108
    "
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2109
     self startMenuEditorIcon inspect
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2110
     ImageEditor openOnClass:self andSelector:#startMenuEditorIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2111
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2112
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2113
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2114
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2115
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2116
	constantNamed:#'NewLauncher startMenuEditorIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2117
	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
  2118
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2119
startSystemBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2120
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2121
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2122
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2123
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2124
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2125
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2126
    "
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2127
     self startSystemBrowserIcon inspect
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2128
     ImageEditor openOnClass:self andSelector:#startSystemBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2129
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2130
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2131
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2132
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2133
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2134
	constantNamed:#'NewLauncher startSystemBrowserIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2135
	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
  2136
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2137
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2138
startSystemBrowserOnHistoryClassIcon
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2139
    "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
  2140
     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
  2141
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2142
    "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
  2143
     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
  2144
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2145
    "
1609
839730f03809 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1608
diff changeset
  2146
     self startSystemBrowserOnHistoryClassIcon inspect
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2147
     ImageEditor openOnClass:self andSelector:#startSystemBrowserOnHistoryClassIcon
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2148
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2149
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2150
    <resource: #image>
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2151
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2152
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2153
	constantNamed:#'NewLauncher startSystemBrowserOnHistoryClassIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2154
	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
  2155
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2156
startUIPainterIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2157
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2158
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2159
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2160
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2161
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2162
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2163
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2164
     ImageEditor openOnClass:self andSelector:#startUIPainterIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2165
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2166
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2167
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2168
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2169
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2170
	constantNamed:#'NewLauncher startUIPainterIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2171
	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
  2172
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2173
startWorkspaceIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2174
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2175
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2176
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2177
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2178
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2179
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2180
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2181
     ImageEditor openOnClass:self andSelector:#startWorkspaceIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2182
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2183
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2184
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2185
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2186
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2187
	constantNamed:#'NewLauncher startWorkspaceIcon'
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2188
	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
  2189
1659
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2190
!NewLauncher methodsFor:'accessing'!
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2191
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2192
menuToolbar
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2193
    |menu item|
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2194
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2195
    menu := Menu new fromLiteralArrayEncoding:(self class menuToolbar).
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2196
    menu receiver:self.
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2197
    menu findGuiResourcesIn:self.
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2198
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2199
    ^ menu
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2200
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2201
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2202
! !
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  2203
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2204
!NewLauncher methodsFor:'aspects'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2205
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2206
canDoTerminal
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2207
    "return a 'valueHolder', which returns true if the terminal application
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2208
     is available. For now, this is true if we run under unix"
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2209
2130
9ce27a00b793 terminal works with windows
Claus Gittinger <cg@exept.de>
parents: 2126
diff changeset
  2210
    ^ OperatingSystem isUNIXlike 
9ce27a00b793 terminal works with windows
Claus Gittinger <cg@exept.de>
parents: 2126
diff changeset
  2211
      or:[OperatingSystem isMSWINDOWSlike]
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2212
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2213
    "Created: / 27.7.1998 / 12:47:54 / cg"
2130
9ce27a00b793 terminal works with windows
Claus Gittinger <cg@exept.de>
parents: 2126
diff changeset
  2214
    "Modified: / 28.4.1999 / 11:55:24 / cg"
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2215
!
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2216
2136
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2217
displaySupportsGLDrawing
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2218
    "return a 'valueHolder', which returns true if the GL support
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2219
     is available."
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2220
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2221
    ^ [Screen current supportsGLDrawing]
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2222
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2223
    "Modified: / 13.2.1998 / 14:26:31 / cg"
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2224
    "Created: / 3.5.1999 / 16:47:22 / cg"
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2225
!
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  2226
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2227
enableDangerousMenuItemsInRemoteLauncher
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2228
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2229
    |holder|
2558
8769083c1dea *** empty log message ***
ah
parents: 2557
diff changeset
  2230
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2231
    (holder := builder bindingAt:#enableDangerousMenuItemsInRemoteLauncher) isNil ifTrue:[
2558
8769083c1dea *** empty log message ***
ah
parents: 2557
diff changeset
  2232
        builder aspectAt:#enableDangerousMenuItemsInRemoteLauncher put:(holder :=  true asValue).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2233
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2234
    ^ holder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2235
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2236
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2237
javaSupportPresent
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2238
    "return a 'valueHolder', which returns true if the java support
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2239
     is available."
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2240
1914
d94b77e0ef43 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1913
diff changeset
  2241
    ^ [JavaVM notNil and:[JavaVM isBehavior and:[JavaVM isLoaded]]]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2242
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2243
    "Created: / 13.2.1998 / 14:25:59 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2244
    "Modified: / 13.2.1998 / 14:26:31 / cg"
1711
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2245
!
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2246
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2247
libraryBuilderAvailable
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2248
    ^ false
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2249
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  2250
    "Created: / 20.6.1998 / 16:54:31 / cg"
2068
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  2251
!
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  2252
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2253
packageDialogVisible
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2254
    ^ false
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2255
!
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2256
2068
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  2257
showActiveHelpMenuItem
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  2258
    ^ false
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2259
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2260
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2261
!NewLauncher methodsFor:'change & update'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2262
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2263
update:something with:aParameter from:changedObject
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2264
    "care for project changes & update my infoView"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2265
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2266
    ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2267
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2268
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2269
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2270
updateInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2271
    "update the infoView from the current project"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2272
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2273
    |project projectName projectDir packageName defNameSpace msg args projectInfo|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2274
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2275
    (Project isNil or:[(project := Project current) isNil]) ifTrue:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2276
        projectName := '* none *'.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2277
        projectDir := '.'.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2278
        packageName := '* none *'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2279
    ] ifFalse:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2280
        projectName := project name.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2281
        projectDir := project directory.
2390
e76526e09798 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2384
diff changeset
  2282
        packageName := project package.
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2283
        defNameSpace := project defaultNameSpace.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2284
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2285
    defNameSpace isNil ifTrue:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2286
        defNameSpace := Smalltalk.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2287
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2288
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2289
    msg := 'Project: ''%1'' fileOut to: ''%3'' package: ''%2'''.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2290
    defNameSpace == Smalltalk ifTrue:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2291
        args := Array 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2292
                    with:projectName
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2293
                    with:packageName 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2294
                    with:(projectDir contractTo:30).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2295
    ] ifFalse:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2296
        msg := msg , '  nameSpace: %4'.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2297
        args := Array 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2298
                        with:projectName
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2299
                        with:packageName 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2300
                        with:(projectDir contractTo:30)
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2301
                        with:defNameSpace name.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2302
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2303
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2304
    self valueOfInfoLabel value:(projectInfo := resources string:msg withArgs:args).
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2305
    ^projectInfo
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
!NewLauncher methodsFor:'help'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2309
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2310
defaultInfoLabel
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2311
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2312
    ^self updateInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2313
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2314
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2315
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2316
!NewLauncher methodsFor:'menu configuration'!
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2317
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2318
addUserTool:toolName action:actionBlock icon:iconOrNil
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2319
    "adds a menu item labeled toolName, and action and icon both to the
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2320
     sub menu 'Tools' and the tool bar.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2321
     This can be invoked by a classes #initialize method, to add an item
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2322
     for itself to the toolbar.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2323
    "
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2324
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2325
    self 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2326
        addUserTool:toolName 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2327
        action:actionBlock 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2328
        in:nil 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2329
        icon:iconOrNil 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2330
        space:true
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2331
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2332
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2333
     Transcript topView application
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2334
        addUserTool:'Foo' 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2335
        action:[Transcript showCR:'foo'] 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2336
        icon:nil
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2337
    "
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2338
!
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2339
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2340
addUserTool:toolName action:actionBlock in:what after:afterOrNil icon:icon space:space
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2341
    "adds a menu item labeled toolName, and actionBlock and icon;
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2342
     for what == #menu    menu item is added at the end of the sub menu 'Tools',
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2343
     for what == #toolbar menu item is added at the end of the tool bar,
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2344
     If space is true, some empty space is inserted.
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2345
     This can be invoked by a classes #initialize method, to add an item
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2346
     for itself to the toolbar or menu.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2347
    "
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2348
2427
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2349
    |menuPanel freeMenuIndex mainMenuPanel item subViews|
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2350
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2351
    (what isNil or: [what == #toolbar]) ifTrue:[
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2352
        menuPanel := builder namedComponents at: #menuToolbarView.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2353
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2354
        (menuPanel findFirst: [:i| i activeHelpKey = toolName or:[i label = toolName]]) == 0
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2355
        ifTrue:[
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2356
            afterOrNil isNil ifTrue:[
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2357
                freeMenuIndex := menuPanel numberOfItems + 1.
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2358
            ] ifFalse:[
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2359
                freeMenuIndex := menuPanel findFirst: [:i| i activeHelpKey = afterOrNil or:[i label = afterOrNil]].
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2360
                freeMenuIndex == 0 ifTrue:[
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2361
                    freeMenuIndex := menuPanel numberOfItems + 1.
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2362
                ]
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2363
            ].
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2364
            space ifTrue:[
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2365
                (menuPanel createAtIndex: freeMenuIndex) menuItem: (MenuItem labeled: '').
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2366
                freeMenuIndex := freeMenuIndex + 1.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2367
            ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2368
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2369
            (menuPanel createAtIndex: freeMenuIndex) menuItem:
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2370
                (MenuItem new 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2371
                    label: toolName;
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2372
                    value: actionBlock;
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2373
                    isButton: true;
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2374
                    labelImage: icon;
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2375
                    activeHelpKey: toolName)
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2376
        ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2377
    ].
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2378
    (what isNil or: [what== #menu]) ifTrue:[
2427
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2379
        mainMenuPanel := self builder menuBar.
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2380
        mainMenuPanel isNil ifTrue:[
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2381
            subViews := self builder window subViews.
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2382
            subViews notNil ifTrue:[
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2383
                mainMenuPanel := subViews at:1 ifAbsent:nil.
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2384
            ]
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2385
        ].
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2386
        mainMenuPanel isNil ifTrue:[^ self].
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2387
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2388
        item := mainMenuPanel itemAt:4.
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2389
        item isNil ifTrue:[^ self].
6b611af5eb4f fixed addUserTool if current Launcher is not the real one
ca
parents: 2415
diff changeset
  2390
        menuPanel := item submenu.
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2391
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2392
        (menuPanel findFirst: [:i| i activeHelpKey = toolName or:[i label = toolName]]) == 0
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2393
        ifTrue:[       
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2394
            afterOrNil isNil ifTrue:[
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2395
                freeMenuIndex := menuPanel numberOfItems + 1.
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2396
            ] ifFalse:[
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2397
                freeMenuIndex := menuPanel findFirst: [:i| i activeHelpKey = afterOrNil or:[i label = afterOrNil]].
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2398
                freeMenuIndex == 0 ifTrue:[
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2399
                    freeMenuIndex := menuPanel numberOfItems + 1.
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2400
                ]
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2401
            ].
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2402
            space ifTrue:[
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2403
                (menuPanel createAtIndex: freeMenuIndex) menuItem: (MenuItem labeled: '-').
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2404
                freeMenuIndex := freeMenuIndex + 1.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2405
            ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2406
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2407
            (menuPanel createAtIndex:freeMenuIndex) menuItem:
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2408
                (MenuItem new 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2409
                    label: toolName;
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2410
                    value: actionBlock;
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2411
                    labelImage: (LabelAndIcon icon: icon string: toolName);
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2412
                    activeHelpKey: toolName) 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2413
        ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2414
    ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2415
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2416
    UserAddedTools isNil ifTrue: [UserAddedTools := Dictionary new].
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2417
    UserAddedTools 
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2418
        at:toolName 
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2419
        put:(Array with:actionBlock with:what with:icon with:space with:afterOrNil)
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2420
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2421
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2422
     Transcript topView application
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2423
        addUserTool:'Foo' 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2424
        action:[Transcript showCR:'foo']
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2425
        in:#menu
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2426
        icon:nil
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2427
        space:false
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2428
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2429
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2430
     Transcript topView application
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2431
        addUserTool:'Bar' 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2432
        action:[Transcript showCR:'bar']
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2433
        in:#menu
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2434
        icon:nil
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2435
        space:false
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2436
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2437
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2438
!
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2439
2415
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2440
addUserTool:toolName action:actionBlock in:what icon:icon space:space
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2441
    "adds a menu item labeled toolName, and actionBlock and icon;
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2442
     for what == #menu    menu item is added at the end of the sub menu 'Tools',
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2443
     for what == #toolbar menu item is added at the end of the tool bar,
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2444
     If space is true, some empty space is inserted.
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2445
     This can be invoked by a classes #initialize method, to add an item
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2446
     for itself to the toolbar or menu.
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2447
    "
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2448
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2449
    ^ self
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2450
        addUserTool:toolName 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2451
        action:actionBlock 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2452
        in:what 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2453
        after:nil 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2454
        icon:icon 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2455
        space:space
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2456
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2457
    "
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2458
     Transcript topView application
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2459
        addUserTool:'Foo' 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2460
        action:[Transcript showCR:'foo']
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2461
        in:#menu
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2462
        icon:nil
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2463
        space:false
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2464
    "
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2465
    "
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2466
     Transcript topView application
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2467
        addUserTool:'Bar' 
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2468
        action:[Transcript showCR:'bar']
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2469
        in:#menu
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2470
        icon:nil
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2471
        space:false
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2472
    "
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2473
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2474
!
2fe7fb648787 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2405
diff changeset
  2475
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2476
removeUserTool:toolName
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2477
    "removes a menu item labeled toolName
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2478
     This can be invoked by a classes #deinitialize method, 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2479
     to remove its item from the toolbar or menu.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2480
    "
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2481
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2482
    |userTool space menuIndex removeInMenuBlock|
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2483
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2484
    UserAddedTools isNil ifTrue: [^nil].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2485
    userTool  := UserAddedTools at: toolName ifAbsent: [^nil].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2486
    space     := userTool at: 4.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2487
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2488
    removeInMenuBlock := 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2489
    [:menuPanel|
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2490
        (menuIndex := menuPanel findFirst: [:i| i activeHelpKey = toolName]) ~~ 0
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2491
        ifTrue:
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2492
        [              
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2493
            menuPanel remove: menuIndex.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2494
            space ifTrue: [menuPanel remove: menuIndex - 1].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2495
        ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2496
    ].
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2497
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2498
    removeInMenuBlock value: (builder namedComponents at: #menuToolbarView).
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2499
    removeInMenuBlock value: ((self builder window subViews at: 1 ifAbsent: [^self]) itemAt: 4) submenu.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2500
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2501
    UserAddedTools removeKey: toolName 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2502
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2503
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2504
     Transcript topView application
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2505
        removeUserTool:'Foo' 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2506
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2507
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2508
     Transcript topView application
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2509
        removeUserTool:'Bar' 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2510
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  2511
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2512
! !
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  2513
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2514
!NewLauncher methodsFor:'private'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2515
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2516
menuClassHistory
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2517
    "returns a sub menu on the history of the classes"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2518
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2519
    |menu history|
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2520
1576
534ad27a7b4a check the class history
tz
parents: 1549
diff changeset
  2521
    BrowserView checkClassHistory.
534ad27a7b4a check the class history
tz
parents: 1549
diff changeset
  2522
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2523
    history := BrowserView classHistory.
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2524
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2525
    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
  2526
    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
  2527
	[:histEntry|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2528
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2529
	    MenuItem new 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2530
		label: (histEntry upTo: $ ); 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2531
		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
  2532
		activeHelpKey: #classesSystemBrowserOnClass
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2533
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2534
    ).
1652
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  2535
    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
  2536
			label: 'Empty History'; 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2537
			value: [BrowserView classHistory removeAll]; 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2538
			translateLabel: true;
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2539
			enabled:(history notEmpty);
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2540
			activeHelpKey: #historyEmptyMenu).
1652
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  2541
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  2542
    menu findGuiResourcesIn:self.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2543
    ^menu
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2544
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2545
    "Modified: / 8.7.1998 / 00:59:50 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2546
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2547
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2548
!NewLauncher methodsFor:'private - settings callBacks'!
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2549
1603
6a49f338be82 need compatible reopen protocol.
Claus Gittinger <cg@exept.de>
parents: 1600
diff changeset
  2550
reopenLauncher
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2551
    "reopen a new launcher.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2552
     for now (since style & language settings currently do
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2553
     not affect living views ...)
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2554
     WARNING: bad design: Message known in LauncherDialogs"
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2555
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2556
    |newLauncher wasShowingHelp|
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2557
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2558
    wasShowingHelp := self showingHelp.
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2559
    newLauncher := super reopenLauncher.
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  2560
    newLauncher showingHelp:wasShowingHelp.
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  2561
    ^ newLauncher
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2562
! !
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2563
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2564
!NewLauncher methodsFor:'queries'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2565
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2566
preferredExtent
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2567
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2568
    ^super preferredExtent max: Screen current extent//(2.5@3.5)
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2569
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2570
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2571
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2572
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2573
!NewLauncher methodsFor:'startup / release'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2574
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2575
allButOpenInterface:anInterface
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2576
    "sent by my superclass to open up my interface"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2577
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2578
    "/ if there is already a transcript on my device,
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2579
    "/ I am a slave launcher with limited functionality.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2580
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2581
    Transcript notNil ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2582
        Transcript ~~ Stderr ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2583
            isMainLauncher := (Transcript graphicsDevice == device).
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2584
            self enableDangerousMenuItemsInRemoteLauncher value: isMainLauncher.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2585
        ] ifFalse:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2586
            isMainLauncher := true
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2587
        ]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2588
    ] ifFalse:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2589
        isMainLauncher := true
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2590
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2591
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2592
    super allButOpenInterface:anInterface.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2593
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2594
    self setupTranscript; updateInfo.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2595
    Project notNil ifTrue: [Project addDependent:self].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2596
    self class openLaunchers add: self.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2597
    ^ builder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2598
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2599
    "Created: / 5.2.1998 / 19:45:07 / cg"
1710
1b5921fd12e2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1708
diff changeset
  2600
    "Modified: / 20.6.1998 / 14:53:58 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2601
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2602
2027
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2603
postBuildWith:aBuilder
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2604
    "setup my preferred size"
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2605
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2606
    super postBuildWith:aBuilder.
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2607
    aBuilder window extent:(self preferredExtent).
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2608
!
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  2609
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2610
postOpenWith:aBuilder
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  2611
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  2612
    "/ increase my priority"
2344
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2613
"/    self windowGroup process priority:(Processor userSchedulingPriority + 1).
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2614
    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  2615
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  2616
    "/ add user tools
1772
6ab4a13490ed care for UserAdd-stuff being nonNil.
Claus Gittinger <cg@exept.de>
parents: 1767
diff changeset
  2617
    UserAddedTools notNil ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2618
        UserAddedTools associationsDo: 
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2619
        [:userTool| 
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2620
            self addUserTool: userTool key 
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2621
                action: (userTool value at: 1)  
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2622
                in:     (userTool value at: 2) 
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2623
                after:  (userTool value at: 5)
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2624
                icon:   (userTool value at: 3)
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2625
                space:  (userTool value at: 4)
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2626
        ].
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  2627
    ].
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  2628
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2629
    super postOpenWith:aBuilder.
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  2630
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  2631
    "/ set the time-block
2384
4901c54efb0a Show clock only if selected by UserPreferences
Stefan Vogel <sv@exept.de>
parents: 2371
diff changeset
  2632
    UserPreferences current showClockInLauncher ifTrue:[
4901c54efb0a Show clock only if selected by UserPreferences
Stefan Vogel <sv@exept.de>
parents: 2371
diff changeset
  2633
        self startClock
4901c54efb0a Show clock only if selected by UserPreferences
Stefan Vogel <sv@exept.de>
parents: 2371
diff changeset
  2634
    ].
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  2635
2523
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2636
    "/ change my minimum height ...
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2637
    self window minExtent:(self window minExtent x
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2638
                           @
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2639
                           (self window minExtent y
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2640
                            "/ + (builder componentAt:'infoBarSubSpec') height
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2641
                            - 12
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2642
                           )
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  2643
                          ).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2644
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2645
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2646
reOpen
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2647
    "reopen a new launcher.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2648
     for now (since style & language settings currently do
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2649
     not affect living views ...)"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2650
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2651
    self reopenLauncher "/ WARNING: bad design: Message known in LauncherDialogs
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2652
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  2653
    "Modified: / 31.7.1998 / 22:48:12 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2654
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2655
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2656
requestForWindowClose
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2657
    |answer|
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2658
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2659
    isMainLauncher ifFalse:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2660
        "/ remote launchers may not finish ST/X
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2661
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2662
        answer := Dialog 
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2663
                    confirmWithCancel:(resources string:'Really close %1 (slave)?' with:self class name)
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2664
                    labels:(resources array:#('Cancel' 'Close'))
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2665
                    default:1.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2666
        answer isNil ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2667
            "/ cancel
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2668
            ^ false
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2669
        ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2670
        ^ true
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2671
    ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2672
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2673
    ^ super requestForWindowClose
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2674
!
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2675
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2676
restarted
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2677
    "image restart - since WindowGroup recreates the process with
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2678
     the default priority, we have to raise the prio again.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2679
     Mhmh - this looks like a bug to me ...
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2680
     Also, the cursor (which was stored as a write or waitCursor) must
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2681
     be reset to normal."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2682
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2683
    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
2566
f5c27e91ff26 after restart from image, do not set preferred extent
ca
parents: 2558
diff changeset
  2684
"/    builder window extent: self preferredExtent.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2685
    super restarted
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2686
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2687
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2688
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2689
setupTranscript 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2690
    "create the transcript view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2691
2046
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  2692
    |launcher oldLauncherClass|
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2693
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2694
    "/ check if this is an additional launcher on a remote display.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2695
    "/ if so, do not close the real launcher.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2696
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2697
    (Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2698
        isMainLauncher ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2699
            launcher := Transcript topView application
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2700
        ] ifFalse:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2701
            launcher := self class current.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2702
        ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2703
2332
d1415aabd5c8 setupTranscript
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
  2704
        (launcher notNil and:[launcher ~~ self]) ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2705
            launcher window graphicsDevice == device ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2706
                OpenLaunchers notNil ifTrue:[
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  2707
                    OpenLaunchers remove:launcher ifAbsent:nil.
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2708
                ].
2046
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  2709
                ((oldLauncherClass := Smalltalk at:#Launcher) notNil 
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  2710
                and:[oldLauncherClass isLoaded]) ifTrue: [
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  2711
                    oldLauncherClass openLaunchers remove:launcher ifAbsent:nil
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2712
                ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2713
                launcher close
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2714
            ]
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2715
        ]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2716
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2717
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2718
    transcript := (builder componentAt: #transcriptView) subViews first.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2719
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2720
    isMainLauncher ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2721
        transcript beTranscript.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2722
    ] ifFalse:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2723
        transcript showCR:'**************** Notice ***********************'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2724
        transcript showCR:'**       this is NOT the Transcript          **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2725
        transcript showCR:'** The real Transcript is on the main screen **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2726
        transcript showCR:'**                                           **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2727
        transcript showCR:'** Menus affecting common state are disabled **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  2728
        transcript showCR:'***********************************************'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2729
    ]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2730
2046
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  2731
    "Modified: / 5.3.1999 / 18:00:36 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2732
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2733
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2734
uninitialize
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2735
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2736
    super uninitialize.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2737
1604
3dfdb9e54e20 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1603
diff changeset
  2738
    Screen current beep.
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  2739
    OpenLaunchers notNil ifTrue:[OpenLaunchers remove:self ifAbsent:nil].
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2740
    Project notNil ifTrue:[Project removeDependent:self]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2741
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2742
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2743
!NewLauncher methodsFor:'user actions - demos'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2744
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2745
openDemo:className
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2746
    "open a demo, given its name.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2747
     Looks in both the Smalltalk- and the Demos-Namespace
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2748
     for that class."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2749
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2750
    self openApplication:className nameSpace:Demos
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2751
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2752
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2753
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2754
openMandelbrotDemo
2096
2111773968a1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2068
diff changeset
  2755
    self openDemo:#ComplexIterationView 
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2756
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2757
    "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
  2758
!
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  2759
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2760
startPingPong2
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2761
    "opens a 2-user PingPong game"
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2762
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2763
    self openApplication:'PingPongGame' nameSpace:Games with:#open2PlayerGame
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2764
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2765
    "Modified: / 13.12.1999 / 22:24:15 / cg"
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2766
!
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  2767
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2768
startReversi
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2769
    "opens a reversi game (java)"
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2770
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2771
    self openApplication:'JavaAppletDemo3' nameSpace:CodingExamples_GUI
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2772
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2773
    "Modified: / 13.12.1999 / 22:24:15 / cg"
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2774
!
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  2775
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2776
startTicTacToe2
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2777
    "opens a 2-user ticTacToe game"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2778
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2779
    self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2780
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2781
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2782
!NewLauncher methodsFor:'user actions - file'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2783
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2784
exit
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2785
    "saves a snapshot image and exits, after asking for a fileName"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2786
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2787
    |fileName saveAndExit box|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2788
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2789
    box := EnterBox2 title:(resources string:'Save image before exiting?')
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2790
        okText:(resources string:'Save & Exit') 
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2791
        abortText:(resources string:'Cancel')
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2792
        action:[:str | fileName := str. saveAndExit := true].
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2793
    box label: (resources string:'Exiting ST/X').
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2794
    box initialText: ObjectMemory nameForSnapshot.
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2795
    box okText2:(resources string:'Exit') action2:[:str|saveAndExit := false].
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2796
    box showAtPointer.
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2797
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2798
    saveAndExit notNil ifTrue:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2799
        saveAndExit ifTrue:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2800
            self saveImageAs: fileName
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2801
        ].
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2802
        Smalltalk exit
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2803
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2804
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2805
    "Modified: / 23.4.1998 / 18:37:46 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2806
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2807
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2808
saveImage
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2809
    "save image"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2810
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2811
    self withCursor:Cursor write do:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2812
        (ObjectMemory snapShotOn:ObjectMemory nameForSnapshot) ifFalse:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2813
            self warn:(resources string:'Failed to save snapshot image (disk full or not writable)').
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  2814
        ]
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2815
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2816
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2817
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2818
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2819
saveImageAs
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2820
    "save image, after asking for a file name"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2821
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2822
    self saveImageAs: (
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2823
	FileSelectionBrowser 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2824
	    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
  2825
	    fileName: ObjectMemory nameForSnapshot
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2826
	    inDirectory: Filename currentDirectory name
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2827
	    withFileFilters: #('*.img'))
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2828
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  2829
    "Modified: / 23.4.1998 / 18:25:17 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2830
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2831
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2832
!NewLauncher methodsFor:'user actions - help'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2833
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2834
activeHelp
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2835
2344
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2836
    helpIsOn isNil ifTrue:[
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2837
        helpIsOn := false asValue
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2838
    ].
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2839
    ^ helpIsOn
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  2840
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2841
!
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2842
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2843
toggleActiveHelp:aBoolean
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2844
    "turn on/off active help"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2845
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2846
    ActiveHelp notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2847
	self activeHelp value:aBoolean.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2848
	aBoolean ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2849
	    ActiveHelp start
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2850
	] ifFalse:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2851
	    ActiveHelp stop
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2852
	]
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  2853
    ].
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  2854
1842
b4bd3ccd2f3d fixed active help (must be a value holder)
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
  2855
    "Modified: / 18.8.1998 / 16:06:27 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2856
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2857
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2858
!NewLauncher methodsFor:'user actions - system'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2859
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2860
initJavaVM
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2861
    JavaVM initializeVM
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2862
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2863
    "Created: / 9.2.1998 / 12:06:07 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2864
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2865
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2866
startLatencyMonitor
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2867
    "open an interruptLatencyMonitor view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2868
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2869
    InterruptLatencyMonitor notNil ifTrue:[
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2870
	Autoload autoloadFailedSignal catch:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2871
	    InterruptLatencyMonitor autoload.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2872
	].
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2873
	InterruptLatencyMonitor isLoaded ifTrue:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2874
	    InterruptLatencyMonitor open.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2875
	    ^ self.
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2876
	]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2877
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2878
    self warn:'Sorry - the irq latency monitor is only available
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2879
in the full commercial release'.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2880
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2881
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2882
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2883
!NewLauncher methodsFor:'user actions - windows'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  2884
1928
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2885
redrawAllWindows
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2886
    |setOfViews|
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2887
2041
52cd1ca19280 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2039
diff changeset
  2888
    setOfViews := device knownViews.
1928
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2889
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2890
    setOfViews do:[:aView |
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2891
        aView shown ifTrue:[
1935
4734195c44e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1928
diff changeset
  2892
            aView isRootView ifFalse:[
4734195c44e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1928
diff changeset
  2893
                aView clear; invalidate
4734195c44e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1928
diff changeset
  2894
            ]
1928
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2895
        ]
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2896
    ]
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2897
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2898
    "Created: / 14.10.1998 / 12:23:27 / cg"
1935
4734195c44e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1928
diff changeset
  2899
    "Modified: / 16.10.1998 / 01:08:15 / cg"
1928
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2900
!
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  2901
1847
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2902
widgetHardcopy
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2903
    "after a second (to allow redraw of views under menu ...),
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2904
     let user specify a widget and save its contents."
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2905
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2906
    Processor 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2907
	addTimedBlock:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2908
			|v|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2909
			(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
  2910
			    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
  2911
			]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2912
		      ] 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2913
	afterSeconds:1
1847
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2914
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  2915
    "Created: / 21.8.1998 / 20:44:12 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2916
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2917
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2918
!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2919
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2920
version
2603
651c0d68cb3d shortKey
Claus Gittinger <cg@exept.de>
parents: 2582
diff changeset
  2921
    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.169 2000-02-12 10:59:11 cg Exp $'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  2922
! !