NewLauncher.st
author Claus Gittinger <cg@exept.de>
Tue, 26 Mar 2002 15:19:16 +0100
changeset 3622 5c2142171a06
parent 3611 db07b5b9f504
child 3626 abf84bdbfdb2
permissions -rw-r--r--
remove seldom needed buttons (cls-history and garbage collect)
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
2659
4ea7b3748c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2638
diff changeset
    15
"{ Package: 'stx:libtool' }"
4ea7b3748c57 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2638
diff changeset
    16
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
    17
AbstractLauncherApplication subclass:#NewLauncher
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
    18
	instanceVariableNames:'isMainLauncher helpIsOn'
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    19
	classVariableNames:'UserAddedMenuItems UserAddedToolBarItems'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    20
	poolDictionaries:''
1469
415d35e62db6 class category changed
tz
parents: 1467
diff changeset
    21
	category:'Interface-Smalltalk'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    22
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    23
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    24
Object subclass:#AddedToolInfo
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
    25
	instanceVariableNames:'item where positionSpec space before menuWithNewItem'
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    26
	classVariableNames:''
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    27
	poolDictionaries:''
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    28
	privateIn:NewLauncher
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    29
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    30
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    31
!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    32
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    33
copyright
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    34
"
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
    35
 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
    36
	      All Rights Reserved
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    37
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    38
 This software is furnished under a license and may be used
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    39
 only in accordance with the terms of that license and with the
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    40
 inclusion of the above copyright notice. This software may not
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    41
 be provided or otherwise made available to, or used by, any
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    42
 other person. No title to or ownership of the software is
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    43
 hereby transferred.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    44
"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    45
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    46
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    47
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    48
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    49
documentation
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    50
"
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    51
    The new launcher.
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    52
    This one provides all of the Launchers functionality, 
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    53
    but has been written using the new GUI painter tools.
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    54
    (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
    55
     easily modified).
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    56
    Functionality which can be shared with the old launcher
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    57
    has been moved to a common superclass.
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    58
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    59
    If you want to write your own (application-)launcher, we recommend
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    60
    creating a subclass, and redefining the appropriate menu & menuToolBar
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    61
    methods there.
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    62
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    63
    [start with:]
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    64
        NewLauncher open
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    65
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    66
    [see also:]
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    67
        Launcher
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    68
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
    69
    [author:]
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    70
        Thomas Zwick, eXept Software AG
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    71
        Claus Gittinger, eXept Software AG
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
    72
"
2011
00bb94e76d44 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2010
diff changeset
    73
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    74
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    75
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    76
examples
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    77
"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    78
    reopening a standard launcher (without any added tools)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    79
                                                                        [exBegin]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    80
     NewLauncher removeAllUserAddedTools.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    81
     NewLauncher open.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    82
                                                                        [exEnd]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    83
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    84
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    85
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    86
    adding your own menu items (for user-applications)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    87
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    88
    an additional item in the tools menu:
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    89
                                                                        [exBegin]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    90
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    91
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    92
                        label: 'Foo';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    93
                        value: [Transcript showCR:'foo invoked'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    94
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    95
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    96
                        nameKey: #foo;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    97
                        activeHelpKey: #Foo)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    98
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
    99
        position:(#before #workspace)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   100
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   101
                                                                        [exEnd]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   102
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   103
    an additional item in the tools menu:
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   104
                                                                        [exBegin]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   105
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   106
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   107
                        label: 'Foo';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   108
                        value: [Transcript showCR:'foo invoked'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   109
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   110
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   111
                        activeHelpKey: #Foo)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   112
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   113
        position:(#after #guiPainter)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   114
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   115
                                                                        [exEnd]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   116
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   117
    an additional item in one of the tools sub menus:
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   118
                                                                        [exBegin]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   119
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   120
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   121
                        label: 'Foo';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   122
                        value: [Transcript showCR:'foo invoked'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   123
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   124
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   125
                        activeHelpKey: #Foo)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   126
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   127
        position:'Workspace'
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   128
        before:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   129
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   130
                                                                        [exEnd]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   131
"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
   132
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   133
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   134
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   135
!NewLauncher class methodsFor:'accessing'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   136
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   137
label
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   138
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   139
    ^'ST/X Launcher'
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   140
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   141
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   142
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   143
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   144
!NewLauncher class methodsFor:'defaults'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   145
1836
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   146
windowIcon
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   147
    ^ Icon stxIcon
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   148
5f36df45604f added #windowIcon - which can be redefined in a subclass.
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   149
    "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
   150
    "Modified: / 17.8.1998 / 10:07:09 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   151
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   152
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   153
!NewLauncher class methodsFor:'help specs'!
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   154
3489
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   155
flyByHelpSpec
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   156
    <resource: #help>
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   157
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   158
    ^super flyByHelpSpec addPairsFrom:#(
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   159
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   160
#fileFileBrowser
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   161
'FileBrowser'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   162
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   163
#fileSaveImage
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   164
'Save Image'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   165
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   166
#fileSaveImageAs
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   167
'Save Image'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   168
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   169
#helpSTXOnlineDocumentation
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   170
'Online Manual'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   171
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   172
#classesSystemBrowserOnClass
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   173
'Browser history'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   174
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   175
#classesSystemBrowser
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   176
'SystemBrowser (old GUI)'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   177
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   178
#newSystemBrowser
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   179
'SystemBrowser (new GUI)'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   180
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   181
#systemGarbageCollect
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   182
'GarbageCollect'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   183
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   184
#systemGarbageCollectAndCompress
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   185
'GarbageCollect'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   186
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   187
#toolsGUIPainter
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   188
'GUIPainter'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   189
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   190
#toolsImageEditor
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   191
'BitmapEditor'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   192
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   193
#toolsMenuEditor
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   194
'MenuEditor'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   195
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   196
#toolsChangesBrowser
3493
eeb200f703d5 flyByHelp;
Claus Gittinger <cg@exept.de>
parents: 3492
diff changeset
   197
'Changes Browser'
3489
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   198
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   199
#toolsMiscProjectsNewProject
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   200
'New Project'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   201
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   202
#toolsNewChangesBrowser
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   203
'ChangesBrowser (new GUI)'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   204
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   205
#toolsOldChangesBrowser
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   206
'ChangesBrowser (old GUI)'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   207
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   208
#toolsWorkspace
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   209
'Workspace'
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   210
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   211
)
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   212
!
ee0a0cfe990d flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   213
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   214
helpSpec
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   215
    "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
   216
     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
   217
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   218
    "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
   219
     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
   220
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   221
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   222
     UIHelpTool openOnClass:NewLauncher    
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   223
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   224
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   225
    <resource: #help>
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   226
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   227
    ^super helpSpec addPairsFrom:#(
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   228
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   229
#aboutLicenseConditions
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   230
'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
   231
2698
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
   232
#chickenFun
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
   233
'Watch your views'
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
   234
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   235
#classes
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   236
'Class functions.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   237
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   238
#classesClassBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   239
'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
   240
3372
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
   241
#startChangeSetBrowser
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
   242
'Open a Browser on recent changes (the ChangeSet)'
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
   243
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   244
#classesClassBrowserOnChanges
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   245
'Open a Browser on changed classes'
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   246
3098
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
   247
#'classBrowserOnChangedClasses'
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
   248
'Open a Browser on changed classes'
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
   249
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
   250
#'classBrowserOnChangedMethods'
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
   251
'Open a Browser on changed methods'
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
   252
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   253
#classesClassHierarchyBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   254
'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
   255
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   256
#classesClassTreeBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   257
'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
   258
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   259
#classesFullClassBrowser
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   260
'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
   261
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   262
#classesImplementors
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   263
'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
   264
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   265
#classesRemoveAllTracePoints
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   266
'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
   267
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   268
#classesResourceMethods
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   269
'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
   270
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   271
#classesSenders
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   272
'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
   273
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   274
#classesShowTracePoints
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   275
'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
   276
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   277
#classesSpecial
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   278
'Special class functions.'
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   279
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   280
#classesSpecialReferencesToUndeclared
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   281
'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
   282
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   283
#classesSystemBrowser
2180
0ebfaf076dbf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2167
diff changeset
   284
'Open a System Browser.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   285
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   286
#classesSystemBrowserOnClass
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   287
'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
   288
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   289
#demos
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   290
'Demo programs.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   291
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   292
#demos3D
2326
8cea69558420 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   293
'3D GL graphic demos.'
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   294
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   295
#demos3DcubeSolid
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   296
'A rotating solid cube.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   297
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   298
#demos3DcubeWire
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   299
'A rotating wireframe cube.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   300
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   301
#demos3Ddoughnut
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   302
'A rotating wireframe doughnut.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   303
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   304
#demos3Dlogo
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   305
'The ST/X logo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   306
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   307
#demos3Dplane
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   308
'A rotating plane.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   309
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   310
#demos3Dplanet
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   311
'Two spheres - one rotating around the other.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   312
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   313
#demos3Drubics
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   314
'A rubics cube - with interaction.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   315
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   316
#demos3Dsphere
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   317
'A rotating wireframe sphere.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   318
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   319
#demos3Dteapot
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   320
'A teopot.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   321
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   322
#demos3Dtetra
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   323
'A rotating tetrahedron.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   324
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   325
#demosAnimations
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   326
'Simple animation demos.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   327
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   328
#demosCalculator
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   329
'Opens a calculator with decimal to hex conversion.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   330
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   331
#demosCalendar
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   332
'Opens a GUI on the cal unix program.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   333
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   334
#demosClock
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   335
'Opens an analog clock application.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   336
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   337
#demosCommander
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   338
'Opens a demo for the Commander class.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   339
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   340
#demosDigitalClock
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   341
'Opens a digital clock application'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   342
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   343
#demosFTP
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   344
'Opens a simple FTP interface demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   345
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   346
#demosFractalPatterns
2405
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   347
'Opens a view displaying fractal patterns.'
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   348
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   349
#demosFractalPlants
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   350
'Opens a view displaying fractal plants (iterated function systems).'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   351
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   352
#demosGUI
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   353
'GUI builder demos.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   354
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   355
#demosGUICalculator
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   356
'Calculator built using the GUI builder.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   357
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   358
#demosGUIWidgets
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   359
'GUI widgets usage.'
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   360
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   361
#demosGames
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   362
'Games.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   363
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   364
#demosGeometric
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   365
'Various demos displaying geometric designs.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   366
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   367
#demosGlobe
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   368
'Opens a rotating globe animation demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   369
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   370
#demosGoodies
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   371
'Goodies and Utilities.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   372
1777
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   373
#demosGraphicEditors
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   374
'Graphic editing demos.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   375
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   376
#demosGraphicEditorsDrawTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   377
'Object drawing demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   378
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   379
#demosGraphicEditorsLogicTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   380
'Simulating Logic demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   381
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   382
#demosGraphicEditorsPaintTool
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   383
'Painting demo.'
37850beccf0a help texts
Claus Gittinger <cg@exept.de>
parents: 1774
diff changeset
   384
2405
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   385
#demosLSystems
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   386
'Opens a view displaying fractal patterns using Lindenmayer Systems.'
b9bf198ab774 another demo
Claus Gittinger <cg@exept.de>
parents: 2390
diff changeset
   387
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   388
#demosMail
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   389
'Opens a simple mail viewer demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   390
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   391
#demosMandel
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   392
'Opens a view displaying the mandelbrot set.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   393
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   394
#demosMoreFractalPatterns
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   395
'Opens a view with more fractal patterns.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   396
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   397
#demosNews
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   398
'Opens a simple news reader demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   399
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   400
#demosPen
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   401
'Opens a demo for the Pen class.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   402
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   403
#demosRemoteLauncher
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   404
'Opens a launcher on a remote display.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   405
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   406
#demosTelnet
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   407
'Opens a Telnet terminal demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   408
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   409
#demosWalkingMan
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   410
'Opens a walking man animation demo.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   411
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   412
#fileApplicationBuilder
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   413
'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
   414
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   415
#fileFileBrowser
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   416
'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
   417
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   418
#fileLibraryBuilder
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   419
'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
   420
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   421
#fileModules
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   422
'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
   423
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   424
#fileSaveImage
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   425
'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
   426
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   427
#fileSaveImageAs
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   428
'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
   429
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   430
#gamesPingPong
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   431
'Play classic PingPong against the computer.'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   432
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   433
#gamesPingPong2
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   434
'Play classic PingPong against a friend.'
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
   435
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
   436
#gamesReversi
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
   437
'The game of reversi (an embedded Java applet)'
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
   438
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   439
#gamesTetris
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   440
'The tetris game - written in Smalltalk.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   441
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   442
#gamesTicTacToe
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   443
'Play TicTacToe against the computer.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   444
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   445
#gamesTicTacToe2
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   446
'Play TicTacToe against a friend.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   447
1864
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   448
#helpActiveHelp
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   449
'Toggle display of active help texts in browsers.'
0aabc720d197 enable own help text facilities by menu
tz
parents: 1862
diff changeset
   450
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   451
#helpClassDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   452
'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
   453
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   454
#helpIndex
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   455
'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
   456
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   457
#helpPrintDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   458
'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
   459
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   460
#helpSTXOnlineDocumentation
1843
d30c77926b35 help texts
Claus Gittinger <cg@exept.de>
parents: 1842
diff changeset
   461
'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
   462
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   463
#helpWhatsNew
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   464
'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
   465
2994
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   466
#newSystemBrowser
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   467
'Open the new, improved System Browser.'
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   468
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   469
#settingsCommunications
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   470
'Change communication settings.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   471
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   472
#settingsCompilation
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   473
'Change compiler settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   474
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   475
#settingsFonts
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   476
'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
   477
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   478
#settingsKeyboardMappings
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   479
'Show the keyboard mappings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   480
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   481
#settingsLanguage
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   482
'Change the national language.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   483
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   484
#settingsLoadSettings
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   485
'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
   486
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   487
#settingsMessages
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   488
'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
   489
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   490
#settingsMisc
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   491
'Misc other settings.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   492
2994
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   493
#settingsMouse
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   494
'Configure the mouse'
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   495
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   496
#settingsObjectMemory
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   497
'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
   498
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   499
#settingsPrinter
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   500
'Change the printer setup.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   501
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   502
#settingsSaveSettings
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   503
'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
   504
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   505
#settingsScreen
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   506
'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
   507
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   508
#settingsSourceAndDebugger
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   509
'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
   510
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   511
#settingsTools
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   512
'Change tool settings.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   513
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   514
#settingsViewStyle
2023
9aec0c4ae313 help texts
Claus Gittinger <cg@exept.de>
parents: 2011
diff changeset
   515
'Change the current view style.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   516
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   517
#system
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   518
'System tools.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   519
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   520
#systemEventTrace
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   521
'Select a view to toggle the event trace for it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   522
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   523
#systemEventView
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   524
'Open a view and trace its window events on the console.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   525
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   526
#systemGarbageCollect
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   527
'Reclaim unused memory.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   528
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   529
#systemGarbageCollectAndCompress
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   530
'Reclaim unused memory and minimize the amount of used memory.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   531
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   532
#systemInterruptLatency
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   533
'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
   534
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   535
#systemMemory
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   536
'Display object memory statistics.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   537
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   538
#systemMemoryUsage
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   539
'Display object memory usage by class.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   540
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   541
#systemProcesses
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   542
'Open a Process Monitor displaying ST/X processes.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   543
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   544
#systemSemaphores
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   545
'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
   546
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   547
#tools
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   548
'Tools.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   549
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   550
#toolsChangesBrowser
1924
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   551
'Open a Changes Browser.'
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   552
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   553
#toolsGUIPainter
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   554
'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
   555
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   556
#toolsImageEditor
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   557
'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
   558
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   559
#toolsMenuEditor
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   560
'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
   561
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   562
#toolsMisc
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   563
'Misc Tools.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   564
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   565
#toolsMiscNewChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   566
'Open a ChangesBrowser (new GUI).'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   567
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   568
#toolsMiscNewLauncher
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   569
'(Re-)open a Launcher (new GUI).'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   570
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   571
#toolsMiscOldChangesBrowser
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   572
'Open a ChangesBrowser (old GUI).'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   573
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   574
#toolsMiscOldLauncher
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
   575
'Open an OldLauncher.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   576
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   577
#toolsMiscProjects
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   578
'Project functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   579
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   580
#toolsMiscProjectsNewProject
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   581
'Create a new project.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   582
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   583
#toolsMiscProjectsSelectProject
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   584
'Select an existing project and reopen its windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   585
1924
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   586
#toolsNewChangesBrowser
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   587
'Open the new changes browser.'
9b404092b317 care for new/old changesBrowser setting.
Claus Gittinger <cg@exept.de>
parents: 1922
diff changeset
   588
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   589
#toolsOldChangesBrowser
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   590
'Open the old changes browser.'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   591
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   592
#toolsProjects
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   593
''
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   594
1759
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   595
#toolsTerminal
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   596
'Open a terminal view (aka xterm)'
25de6f71c2f2 help texts
Claus Gittinger <cg@exept.de>
parents: 1755
diff changeset
   597
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   598
#toolsWorkspace
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   599
'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
   600
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   601
#windows
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   602
'Window functions.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   603
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   604
#windowsDeiconifyAll
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   605
'Restore all minimized ST/X windows.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   606
2994
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   607
#windowsFindAndDestroy
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   608
'Select an ST/X window by name and destroy it.'
2765
c85460a22ba8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2760
diff changeset
   609
2758
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   610
#windowsFindAndMigrate
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   611
'Select an ST/X window by name and move it to another display.'
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   612
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   613
#windowsFindAndMigrateBack
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   614
'Select an ST/X window by name and move it (back) to this screen.'
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   615
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   616
#windowsFindAndRaise
2758
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   617
'Select an ST/X window by name and raise it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   618
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   619
#windowsGrapScreen
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   620
'Grab the whole screen and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   621
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   622
#windowsGrapScreenArea
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   623
'Grab an area of the screen and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   624
2582
fa86bcea1691 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2566
diff changeset
   625
#windowsGrapWidget
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   626
'Grab a single widget and save it to a bitmap-file.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   627
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   628
#windowsGrapWindow
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   629
'Grab a window and save it to a bitmap-file.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   630
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   631
#windowsIconifyAll
1616
5a884bfb437c help texts
Claus Gittinger <cg@exept.de>
parents: 1609
diff changeset
   632
'Minimize all ST/X windows to icons.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   633
2994
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   634
#windowsMigrateAllWindows
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   635
'Migrate all ST/X windows to some other display.'
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   636
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   637
#windowsRedrawAll
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   638
'Redraw all ST/X windows.'
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
   639
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   640
#windowsSelectAndDestroy
2758
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   641
'Select a window and destroy it.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   642
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   643
#windowsSelectAndInspect
2758
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   644
'Select an ST/X window and open an Inspector on it.'
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   645
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   646
#windowsSelectAndMigrate
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   647
'Select an ST/X window and move it to another display.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   648
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   649
#windowsViewTree
2758
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   650
'Select an ST/X window and display its widget hierarchy.'
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   651
2994
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   652
#windowsViewTreeAllScreens
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   653
'Display the widget hierarchies of all ST/X windows (on all displays).'
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
   654
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
   655
#windowsViewTreeAllViews
2758
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   656
'Display the widget hierarchies of all ST/X windows (on this display).'
57afd37bf499 help texts
Claus Gittinger <cg@exept.de>
parents: 2756
diff changeset
   657
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   658
)
1794
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   659
! !
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   660
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   661
!NewLauncher class methodsFor:'image specs'!
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   662
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   663
helpIcon
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   664
    "This resource specification was automatically generated
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   665
     by the ImageEditor of ST/X."
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   666
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   667
    "Do not manually edit this!! If it is corrupted,
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   668
     the ImageEditor may not be able to read the specification."
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   669
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   670
    "
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   671
     self helpIcon inspect
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   672
     ImageEditor openOnClass:self andSelector:#helpIcon
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   673
    "
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   674
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   675
    <resource: #image>
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   676
8f8c1faac686 added help button.
Claus Gittinger <cg@exept.de>
parents: 1782
diff changeset
   677
    ^Icon
2514
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   678
        constantNamed:#'NewLauncher helpIcon'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   679
        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
   680
@@@@@@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
   681
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
   682
@@@@@@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
   683
@@?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@@@_
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   684
>@@@O? @@C?8@@@?<@@@O>@@@C?@@@@a') ; yourself); yourself]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   685
!
1817
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   686
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   687
helpIcon2
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   688
    "This resource specification was automatically generated
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   689
     by the ImageEditor of ST/X."
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   690
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   691
    "Do not manually edit this!! If it is corrupted,
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   692
     the ImageEditor may not be able to read the specification."
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   693
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   694
    "
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   695
     self helpIcon2 inspect
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   696
     ImageEditor openOnClass:self andSelector:#helpIcon2
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   697
    "
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   698
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   699
    <resource: #image>
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   700
21da204c1b7a checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1814
diff changeset
   701
    ^Icon
2024
1f70a426b939 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2023
diff changeset
   702
        constantNamed:#'NewLauncher helpIcon2'
2738
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   703
        ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   704
@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@3H@@@@@@@@@@@@@@@@CL2@@@@@@@@@@@@@@@@L3L @@@@@@@@@@@@@@@3L3@@@@@@@@@@@@@BLCL3
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   705
L0@@@@L3@@@@@CL0L3L3@@H3L3L0@@A@L3@3L3LBH#L3L3A@@D@3LCL3L0H"L3L3LD@@PCL0L3L3@"D3L1L0P@A@L3@3L3LBH!!L1L3A@@D@3LCL3L0H"HQL3
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   706
LD@@PCL0L3L3@"H#D3L0P@A@L3@3L3LBH"D1L3A@A@L3LBL3L0H"D3LSLD@D@3L0H#L3@"D#L3D0P@PCL3LBH#LBHRL3L3A@A@L3L3@"H0H"H3L3LD@D@3L3
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   707
L H"@"H#L3L0P@PCL3L"@"HBH"L3L3A@A@H"H"H H H"H#L2HD@D@@H"H"HB@"H"H"H@P@ADP@H"H HBH"H @DQ@@@@DP@@"H@H"H@Q@@@@@@@@@Q@@B@ @D
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   708
P@@@@@@@@@@@AD@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 128 92 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:'
d0782fb4dfd3 helpIcon
Claus Gittinger <cg@exept.de>
parents: 2735
diff changeset
   709
@X@@@@G @@@A<@@@@_ @@@G<@@@G?@\@C?9? C????A????0_???<G????A????0_???<G????A????0????<O????C????0????<O????C????0????<O??
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   710
??C????0O???8@_?? @@?? @@A?@@@@a') ; yourself); yourself]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   711
!
2514
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   712
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   713
helpIcon3
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   714
    "This resource specification was automatically generated
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   715
     by the ImageEditor of ST/X."
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   716
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   717
    "Do not manually edit this!! If it is corrupted,
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   718
     the ImageEditor may not be able to read the specification."
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   719
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   720
    "
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   721
     self helpIcon3 inspect
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   722
     ImageEditor openOnClass:self andSelector:#helpIcon3
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   723
    "
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   724
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   725
    <resource: #image>
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   726
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   727
    ^Icon
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   728
        constantNamed:#'NewLauncher helpIcon3'
539f34a1f791 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2502
diff changeset
   729
        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
   730
@@@@@@@@@@@@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
   731
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
   732
 @@@@@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
   733
@X@@@@G @@@A<@@@@_ @@@G<@@@G?@\@C?9? C????A????0_???<G????A????0_???<G????A????0????<O????C????0????<O????C????0????<O??
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   734
??C????0O???8@_?? @@?? @@A?@@@@a') ; yourself); yourself]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
   735
! !
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
   736
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   737
!NewLauncher class methodsFor:'interface specs'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   738
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   739
windowSpec
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   740
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   741
     by the UIPainter of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   742
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   743
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   744
     the UIPainter may not be able to read the specification."
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   745
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   746
    "
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   747
     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   748
     NewLauncher new openInterface:#windowSpec
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
   749
     NewLauncher open
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   750
    "
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   751
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   752
    <resource: #canvas>
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   753
3156
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   754
    ^ 
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   755
     #(#FullSpec
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   756
        #name: #windowSpec
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   757
        #window: 
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   758
       #(#WindowSpec
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   759
          #label: 'Launcher'
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   760
          #name: 'Launcher'
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   761
          #min: #(#Point 374 44)
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   762
          #max: #(#Point 1152 900)
3418
c69555d7bb9b info geometry
Claus Gittinger <cg@exept.de>
parents: 3411
diff changeset
   763
          #bounds: #(#Rectangle 13 23 304 225)
3156
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   764
          #menu: #menu
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   765
          #icon: #windowIcon
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   766
        )
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   767
        #component: 
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   768
       #(#SpecCollection
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   769
          #collection: #(
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   770
           #(#MenuPanelSpec
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   771
              #name: 'menuToolbarView'
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   772
              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   773
              #menu: #menuToolbar
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   774
              #style: #(#FontDescription #helvetica #medium #roman 10)
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   775
            )
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   776
           #(#WorkspaceSpec
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   777
              #name: 'transcriptView'
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   778
              #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   779
              #hasHorizontalScrollBar: true
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   780
              #hasVerticalScrollBar: true
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   781
              #miniScrollerHorizontal: true
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   782
            )
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   783
           #(#UISubSpecification
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   784
              #name: 'infoBarSubSpec'
3418
c69555d7bb9b info geometry
Claus Gittinger <cg@exept.de>
parents: 3411
diff changeset
   785
              #layout: #(#LayoutFrame 0 0.0 -26 1 0 1.0 0 1.0)
3156
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   786
              #majorKey: #ToolApplicationModel
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   787
              #minorKey: #windowSpecForInfoBarWithClock
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   788
            )
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   789
           )
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   790
         
9021310b52f0 slightly changed the geometry
Claus Gittinger <cg@exept.de>
parents: 3139
diff changeset
   791
        )
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   792
      )
3418
c69555d7bb9b info geometry
Claus Gittinger <cg@exept.de>
parents: 3411
diff changeset
   793
c69555d7bb9b info geometry
Claus Gittinger <cg@exept.de>
parents: 3411
diff changeset
   794
    "Modified: / 15.11.2001 / 22:42:53 / cg"
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   795
!
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   796
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   797
windowSpec_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   798
    "This resource specification was automatically generated
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   799
     by the UIPainter of ST/X."
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   800
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   801
    "Do not manually edit this!! If it is corrupted,
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   802
     the UIPainter may not be able to read the specification."
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   803
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   804
    "
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   805
     UIPainter new openOnClass:NewLauncher andSelector:#windowSpec_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   806
     NewLauncher new openInterface:#windowSpec_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   807
    "
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   808
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   809
    <resource: #canvas>
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   810
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   811
    ^ 
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   812
     #(#FullSpec
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   813
        #name: #'windowSpec_pda'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   814
        #window: 
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   815
       #(#WindowSpec
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   816
          #label: 'Launcher'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   817
          #name: 'Launcher'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   818
          #min: #(#Point 100 20)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   819
          #max: #(#Point 240 300)
3038
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
   820
          #bounds: #(#Rectangle 16 46 200 247)
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   821
          #menu: #'menu_pda'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   822
          #icon: #windowIcon
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   823
        )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   824
        #component: 
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   825
       #(#SpecCollection
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   826
          #collection: #(
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   827
           #(#MenuPanelSpec
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   828
              #name: 'menuToolbarView'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   829
              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 38 0)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   830
              #menu: #'menuToolbar_pda'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   831
              #style: #(#FontDescription #helvetica #medium #roman 10)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   832
            )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   833
           #(#WorkspaceSpec
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   834
              #name: 'transcriptView'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   835
              #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -26 1.0)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   836
              #hasHorizontalScrollBar: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   837
              #hasVerticalScrollBar: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   838
              #miniScrollerHorizontal: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   839
              #miniScrollerVertical: false
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   840
            )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   841
           #(#UISubSpecification
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   842
              #name: 'infoBarSubSpec'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   843
              #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   844
              #majorKey: #ToolApplicationModel
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   845
              #minorKey: #windowSpecForInfoBarWithClock
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   846
            )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   847
           )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   848
         
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   849
        )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
   850
      )
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   851
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
   852
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   853
!NewLauncher class methodsFor:'menu configuration'!
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   854
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   855
addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
2734
cb33c27878ac checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2732
diff changeset
   856
    |positionSpecOrNil itemNameOrNil before launcherApp|
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   857
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   858
    (Transcript notNil 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   859
    and:[ Transcript isStream not
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   860
    and:[ (launcherApp := Transcript application) notNil
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   861
    and:[ launcherApp isKindOf:self]]]) ifTrue:[
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   862
        "/ add to instance
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   863
        launcherApp addMenuItem:newItem in:where position:positionSpecOrNilArg space:space.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   864
        ^ self
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   865
    ].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   866
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   867
    positionSpecOrNil := positionSpecOrNilArg.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   868
    positionSpecOrNil isArray ifTrue:[
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   869
        positionSpecOrNil size > 1 ifTrue:[
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   870
            itemNameOrNil := positionSpecOrNil at:2.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   871
        ].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   872
        positionSpecOrNil := positionSpecOrNil at:1.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   873
    ].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   874
    before := (positionSpecOrNil == #first) or:[positionSpecOrNil == #before].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   875
2734
cb33c27878ac checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2732
diff changeset
   876
    (where isNil or: [where = 'toolbar']) ifTrue:[
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   877
        UserAddedToolBarItems isNil ifTrue: [UserAddedToolBarItems := Dictionary new].
3311
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   878
	(UserAddedToolBarItems contains:[:info | info item nameKey = newItem nameKey])
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   879
	ifFalse:[
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   880
            UserAddedToolBarItems
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   881
	        at:newItem put:(AddedToolInfo new
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   882
                                            item:newItem;
2735
0fe22c97ffb9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2734
diff changeset
   883
                                            where:where;
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   884
                                            positionSpec:positionSpecOrNilArg;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   885
                                            space:space;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   886
                                            before:before;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   887
                                            menuWithNewItem:nil;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   888
                                            yourself)
3311
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   889
	]
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   890
    ].
2734
cb33c27878ac checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2732
diff changeset
   891
    (where isNil or:[where startsWith:'menu']) ifTrue:[
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   892
        UserAddedMenuItems isNil ifTrue: [UserAddedMenuItems := Dictionary new].
3311
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   893
	(UserAddedMenuItems contains:[:info | info item nameKey = newItem nameKey])
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   894
	ifFalse:[
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   895
            UserAddedMenuItems 
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   896
	        at:newItem put:(AddedToolInfo new
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   897
                                            item:newItem;
2735
0fe22c97ffb9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2734
diff changeset
   898
                                            where:where;
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   899
                                            positionSpec:positionSpecOrNilArg;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   900
                                            space:space;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   901
                                            before:before;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   902
                                            menuWithNewItem:nil;
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   903
                                            yourself)
3311
03f4b7eb6d28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3284
diff changeset
   904
	]
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   905
    ]
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   906
!
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   907
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   908
removeAllUserAddedTools
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   909
    UserAddedTools := nil
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   910
!
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   911
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   912
removeUserTool:toolNameOrMenuItem
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   913
    "removes a menu item labeled toolName
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   914
     This can be invoked by a classes #deinitialize method, 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   915
     to remove its item from the toolbar or menu.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   916
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   917
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   918
    self removeUserTool:toolNameOrMenuItem from:UserAddedToolBarItems.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   919
    self removeUserTool:toolNameOrMenuItem from:UserAddedMenuItems.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   920
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   921
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   922
     Transcript topView application
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   923
        removeUserTool:'Bar' 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   924
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   925
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   926
     Transcript topView application
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   927
        removeUserTool:'Foo' 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   928
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   929
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   930
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   931
!
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   932
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   933
removeUserTool:toolNameOrMenuItem from:addedToolsCollection
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   934
    "removes a menu item labeled toolName
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   935
     This can be invoked by a classes #deinitialize method, 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   936
     to remove its item from the toolbar or menu.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   937
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   938
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   939
    |info space menuIndex removeInMenuBlock whichMenu before menuItemToRemove|
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   940
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   941
    addedToolsCollection size == 0 ifTrue: [^nil].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   942
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   943
    [true] whileTrue:[
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   944
        (toolNameOrMenuItem isString or:[toolNameOrMenuItem isSymbol]) ifTrue:[
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   945
            info := addedToolsCollection detect:[:eachInfo | |eachItem|
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   946
                                            eachItem := eachInfo item.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   947
                                            (eachItem nameKey notNil and:[ toolNameOrMenuItem = eachItem nameKey])
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   948
                                            or:[ (eachItem activeHelpKey notNil and:[ toolNameOrMenuItem = eachItem activeHelpKey])
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   949
                                            or:[ (eachItem label notNil and:[ toolNameOrMenuItem = eachItem label])]]
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   950
                                          ]
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   951
                                   ifNone:nil.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   952
        ] ifFalse:[
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   953
            info := addedToolsCollection detect:[:eachInfo | |eachItem| eachItem := eachInfo item. (eachItem == toolNameOrMenuItem)] ifNone:nil.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   954
        ].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   955
        info isNil ifTrue:[^ self].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   956
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   957
        space     := info space.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   958
        whichMenu := info menuWithNewItem.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   959
        menuItemToRemove := info item.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   960
        before := info before.
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   961
2723
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   962
        whichMenu notNil ifTrue:[
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   963
            menuIndex := whichMenu findFirst:[:item | 
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   964
                                                    (item nameKey notNil and:[item nameKey == menuItemToRemove nameKey])
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   965
                                                    or:[ (item activeHelpKey notNil and:[item activeHelpKey == menuItemToRemove activeHelpKey])
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   966
                                                    or:[ (item label notNil and:[item label = menuItemToRemove label]) ]]
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   967
                                             ].
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   968
            menuIndex ~~ 0 ifTrue:[              
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   969
                whichMenu remove: menuIndex.
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   970
                space ifTrue: [
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   971
                    whichMenu remove:(menuIndex - (before ifTrue:0 ifFalse:1))
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   972
                ].
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   973
            ].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   974
        ].
2723
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   975
        addedToolsCollection removeKey:menuItemToRemove. 
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
   976
        ^ self
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   977
    ].
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   978
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   979
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   980
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   981
     Transcript topView application
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   982
        removeUserTool:'Bar' 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   983
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   984
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   985
     Transcript topView application
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   986
        removeUserTool:'Foo' 
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   987
    "
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   988
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   989
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   990
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   991
! !
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
   992
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   993
!NewLauncher class methodsFor:'menu specs'!
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
   994
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
   995
aboutMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
   996
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
   997
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
   998
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
   999
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1000
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1001
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1002
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1003
     MenuEditor new openOnClass:NewLauncher andSelector:#aboutMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1004
     (Menu new fromLiteralArrayEncoding:(NewLauncher aboutMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1005
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1006
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1007
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1008
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1009
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1010
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1011
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1012
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1013
            #label: 'About Smalltalk/X...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1014
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1015
            #value: #openAbout
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1016
            #activeHelpKey: #aboutSTX
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1017
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1018
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1019
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1020
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1021
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1022
            #label: 'Licence Conditions'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1023
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1024
            #value: #openLicenseConditions
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1025
            #activeHelpKey: #aboutLicenseConditions
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1026
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1027
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1028
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1029
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1030
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1031
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1032
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1033
classesMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1034
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1035
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1036
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1037
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1038
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1039
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1040
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1041
     MenuEditor new openOnClass:NewLauncher andSelector:#classesMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1042
     (Menu new fromLiteralArrayEncoding:(NewLauncher classesMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1043
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1044
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1045
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1046
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1047
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1048
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1049
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1050
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1051
            #label: 'System Browser'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1052
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1053
            #nameKey: #systemBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1054
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1055
            #activeHelpKey: #classesSystemBrowser
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1056
            #showBusyCursorWhilePerforming: true
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1057
            #argument: 'SystemBrowser'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1058
            #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon 'System Browser')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1059
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1060
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1061
            #label: 'System Browser on Class'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1062
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1063
            #nameKey: #systemBrowserOnClass
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1064
            #activeHelpKey: #classesSystemBrowserOnClass
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1065
            #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon 'System Browser on Class')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1066
            #submenuChannel: #menuClassHistory
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1067
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1068
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1069
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1070
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1071
         #(#MenuItem
3372
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1072
            #label: 'Recent Changes'
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1073
            #translateLabel: true
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1074
            #nameKey: #startChangeSetBrowser
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1075
            #value: #startChangeSetBrowser
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1076
            #activeHelpKey: #startChangeSetBrowser
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1077
            #showBusyCursorWhilePerforming: true
3372
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1078
          )
078bf75724a5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3368
diff changeset
  1079
         #(#MenuItem
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1080
            #label: 'Changed Classes'
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1081
            #translateLabel: true
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1082
            #nameKey: #classBrowserOnChanges
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1083
            #value: #startClassBrowserOnChanges
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1084
            #activeHelpKey: #classesClassBrowserOnChanges
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1085
            #showBusyCursorWhilePerforming: true
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1086
          )
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  1087
         #(#MenuItem
3098
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1088
            #label: 'Changed Methods'
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1089
            #translateLabel: true
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1090
            #nameKey: #classBrowserOnChangedMethods
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1091
            #value: #startClassBrowserOnChangedMethods
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1092
            #activeHelpKey: #classBrowserOnChangedMethods
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1093
            #showBusyCursorWhilePerforming: true
3098
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1094
          )
423c9951b602 added 'browse changed methods' entry.
Claus Gittinger <cg@exept.de>
parents: 3073
diff changeset
  1095
         #(#MenuItem
3255
1280ed95b375 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3218
diff changeset
  1096
            #label: '-'
1280ed95b375 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3218
diff changeset
  1097
          )
1280ed95b375 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3218
diff changeset
  1098
         #(#MenuItem
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1099
            #label: 'Special Browsers'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1100
            #translateLabel: true
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1101
            #submenu: 
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1102
           #(#Menu
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1103
              #(
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1104
               #(#MenuItem
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1105
                  #label: 'Class Browser on...'
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1106
                  #translateLabel: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1107
                  #nameKey: #classBrowserOn
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1108
                  #value: #startClassBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1109
                  #activeHelpKey: #classesClassBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1110
                  #showBusyCursorWhilePerforming: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1111
                )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1112
               #(#MenuItem
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1113
                  #label: 'Full Class Browser on...'
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1114
                  #translateLabel: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1115
                  #value: #startFullClassBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1116
                  #activeHelpKey: #classesFullClassBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1117
                  #showBusyCursorWhilePerforming: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1118
                )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1119
               #(#MenuItem
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1120
                  #label: 'Class Hierarchy Browser on...'
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1121
                  #translateLabel: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1122
                  #value: #startClassHierarchyBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1123
                  #activeHelpKey: #classesClassHierarchyBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1124
                  #showBusyCursorWhilePerforming: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1125
                )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1126
               #(#MenuItem
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1127
                  #label: '-'
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1128
                )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1129
               #(#MenuItem
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1130
                  #label: 'Snapshot Image Browser...'
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1131
                  #translateLabel: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1132
                  #value: #startSnapshotImageBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1133
                  #showBusyCursorWhilePerforming: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1134
                )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1135
               #(#MenuItem
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1136
                  #label: 'Remote Image Browser...'
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1137
                  #translateLabel: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1138
                  #value: #startRemoteImageBrowser
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1139
                  #enabled: #remoteImageBrowserAvailable
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1140
                  #showBusyCursorWhilePerforming: true
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1141
                )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1142
               )
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1143
              nil
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1144
              nil
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1145
            )
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1146
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1147
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1148
            #label: 'Class Tree'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1149
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1150
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1151
            #activeHelpKey: #classesClassTreeBrowser
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1152
            #showBusyCursorWhilePerforming: true
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1153
            #argument: 'ClassTreeGraphView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1154
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1155
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1156
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1157
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1158
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1159
            #label: 'Implementors of...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1160
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1161
            #value: #browseImplementors
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1162
            #activeHelpKey: #classesImplementors
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1163
            #showBusyCursorWhilePerforming: true
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1164
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1165
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1166
            #label: 'Senders of...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1167
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1168
            #value: #browseSenders
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1169
            #activeHelpKey: #classesSenders
3575
c35b9ba0092c snapshotImage and remoteImage browser
Claus Gittinger <cg@exept.de>
parents: 3514
diff changeset
  1170
            #showBusyCursorWhilePerforming: true
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1171
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1172
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1173
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1174
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1175
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1176
            #label: 'Special'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1177
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1178
            #nameKey: #special
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1179
            #value: #special
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1180
            #activeHelpKey: #classesSpecial
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1181
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1182
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1183
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1184
               #(#MenuItem
3368
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1185
                  #label: 'Method Finder'
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1186
                  #translateLabel: true
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1187
                  #value: #openMethodFinder
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1188
                )
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1189
               #(#MenuItem
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1190
                  #label: '-'
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1191
                )
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  1192
               #(#MenuItem
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1193
                  #label: 'References To Undeclared'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1194
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1195
                  #value: #browseUndeclared
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1196
                  #activeHelpKey: #classesSpecialReferencesToUndeclared
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1197
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1198
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1199
                  #label: 'Find Resource Methods...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1200
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1201
                  #value: #browseResources
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1202
                  #activeHelpKey: #classesResourceMethods
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1203
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1204
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1205
                  #label: 'Show All Break && Trace Points'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1206
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1207
                  #value: #browseAllBreakAndTracePoints
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1208
                  #activeHelpKey: #classesShowTracePoints
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1209
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1210
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1211
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1212
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1213
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1214
                  #label: 'Remove All Break && Trace Points'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1215
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1216
                  #value: #removeAllBreakAndTracePoints
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1217
                  #activeHelpKey: #classesRemoveAllTracePoints
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1218
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1219
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1220
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1221
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1222
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1223
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1224
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1225
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1226
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1227
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1228
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1229
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1230
demosMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1231
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1232
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1233
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1234
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1235
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1236
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1237
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1238
     MenuEditor new openOnClass:NewLauncher andSelector:#demosMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1239
     (Menu new fromLiteralArrayEncoding:(NewLauncher demosMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1240
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1241
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1242
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1243
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1244
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1245
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1246
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1247
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1248
            #label: 'Goodies'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1249
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1250
            #activeHelpKey: #demosGoodies
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1251
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1252
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1253
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1254
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1255
                  #label: 'Clock'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1256
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1257
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1258
                  #activeHelpKey: #demosClock
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1259
                  #argument: 'Clock'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1260
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1261
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1262
                  #label: 'Digital Clock'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1263
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1264
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1265
                  #activeHelpKey: #demosDigitalClock
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1266
                  #argument: 'DigitalClockView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1267
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1268
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1269
                  #label: 'Calendar'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1270
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1271
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1272
                  #activeHelpKey: #demosCalendar
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1273
                  #argument: 'Calendar'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1274
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1275
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1276
                  #label: 'Calculator'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1277
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1278
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1279
                  #activeHelpKey: #demosCalculator
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1280
                  #argument: 'CalculatorView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1281
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1282
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1283
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1284
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1285
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1286
                  #label: 'Mail Tool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1287
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1288
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1289
                  #activeHelpKey: #demosMail
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1290
                  #argument: 'MailView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1291
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1292
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1293
                  #label: 'News Tool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1294
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1295
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1296
                  #activeHelpKey: #demosNews
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1297
                  #argument: 'NewsView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1298
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1299
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1300
                  #label: 'FTP Tool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1301
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1302
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1303
                  #activeHelpKey: #demosFTP
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1304
                  #argument: 'FTPTool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1305
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1306
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1307
                  #label: 'Telnet Tool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1308
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1309
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1310
                  #activeHelpKey: #demosTelnet
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1311
                  #argument: 'TelnetTool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1312
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1313
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1314
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1315
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1316
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1317
                  #label: 'Remote Launcher...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1318
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1319
                  #value: #startRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1320
                  #activeHelpKey: #demosRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1321
                )
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1322
               #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1323
                  #label: 'PDA Launcher...'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1324
                  #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1325
                  #value: #startPDALauncher
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1326
                  #activeHelpKey: #demosPDALauncher
3120
564ee1530a8e startPDALauncher item invisible for the normal user
Claus Gittinger <cg@exept.de>
parents: 3098
diff changeset
  1327
                  #isVisible: #hasPDALauncher
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  1328
                )
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1329
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1330
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1331
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1332
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1333
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1334
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1335
            #label: 'Games'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1336
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1337
            #activeHelpKey: #demosGames
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1338
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1339
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1340
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1341
               #(#MenuItem
3611
db07b5b9f504 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3575
diff changeset
  1342
                  #label: 'Blocks (Tetris look alike)'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1343
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1344
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1345
                  #activeHelpKey: #gamesTetris
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1346
                  #argument: 'Games::Tetris'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1347
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1348
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1349
                  #label: 'Tic Tac Toe'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1350
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1351
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1352
                  #activeHelpKey: #gamesTicTacToe
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1353
                  #argument: 'Games::TicTacToeGame'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1354
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1355
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1356
                  #label: 'Tic Tac Toe (2 players)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1357
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1358
                  #value: #startTicTacToe2
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1359
                  #activeHelpKey: #gamesTicTacToe2
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1360
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1361
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1362
                  #label: 'PingPong'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1363
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1364
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1365
                  #activeHelpKey: #gamesPingPong
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1366
                  #argument: 'Games::PingPongGame'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1367
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1368
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1369
                  #label: 'PingPong - (2 players)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1370
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1371
                  #value: #startPingPong2
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1372
                  #activeHelpKey: #gamesPingPong2
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1373
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1374
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1375
                  #label: 'Reversi (Java)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1376
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1377
                  #value: #startReversi
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1378
                  #activeHelpKey: #gamesReversi
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1379
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1380
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1381
                  #label: 'Towers of Hanoi (Prolog)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1382
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1383
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1384
                  #argument: 'Prolog::TowersOfHanoiApplication'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1385
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1386
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1387
                  #label: 'MasterMind (Prolog)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1388
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1389
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1390
                  #argument: 'Prolog::MasterMind'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1391
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1392
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1393
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1394
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1395
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1396
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1397
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1398
            #label: 'Geometric Designs'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1399
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1400
            #activeHelpKey: #demosGeometric
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1401
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1402
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1403
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1404
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1405
                  #label: 'Pen Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1406
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1407
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1408
                  #activeHelpKey: #demosPen
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1409
                  #argument: 'PenDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1410
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1411
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1412
                  #label: 'Commander Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1413
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1414
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1415
                  #activeHelpKey: #demosCommander
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1416
                  #argument: 'CommanderDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1417
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1418
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1419
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1420
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1421
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1422
                  #label: 'Mandel'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1423
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1424
                  #value: #openMandelbrotDemo
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1425
                  #activeHelpKey: #demosMandel
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1426
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1427
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1428
                  #label: 'Fractal Plants Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1429
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1430
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1431
                  #activeHelpKey: #demosFractalPlants
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1432
                  #argument: 'FractalPlantsDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1433
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1434
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1435
                  #label: 'Fractal Patterns Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1436
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1437
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1438
                  #activeHelpKey: #demosFractalPatterns
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1439
                  #argument: 'FractalPatternsDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1440
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1441
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1442
                  #label: 'Lindenmayer Patterns Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1443
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1444
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1445
                  #activeHelpKey: #demosLSystems
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1446
                  #argument: 'LSystemsDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1447
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1448
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1449
                  #label: 'More Fractal Patterns Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1450
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1451
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1452
                  #activeHelpKey: #demosMoreFractalPatterns
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1453
                  #argument: 'ArmchairUniverseDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1454
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1455
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1456
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1457
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1458
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1459
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1460
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1461
            #label: 'Simple Animations'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1462
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1463
            #activeHelpKey: #demosAnimations
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1464
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1465
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1466
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1467
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1468
                  #label: 'Walking Man'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1469
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1470
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1471
                  #activeHelpKey: #demosWalkingMan
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1472
                  #argument: 'Animation'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1473
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1474
               #(#MenuItem
3073
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1475
                  #label: 'Walking Girl'
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1476
                  #translateLabel: true
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1477
                  #value: #openDemo:
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1478
                  #activeHelpKey: #demosWalkingMan
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1479
                  #argument: 'WalkingGirl'
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1480
                )
d8e4bd221295 *** empty log message ***
martin
parents: 3038
diff changeset
  1481
               #(#MenuItem
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1482
                  #label: 'Globe Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1483
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1484
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1485
                  #activeHelpKey: #demosGlobe
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1486
                  #argument: 'GlobeDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1487
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1488
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1489
                  #label: 'Chicken Fun'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1490
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1491
                  #value: #startStopDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1492
                  #activeHelpKey: #chickenFun
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1493
                  #argument: 'ChickenFun'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1494
                  #indication: #chickenFunIsRunning
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1495
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1496
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1497
                  #label: 'Chicks Eyes'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1498
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1499
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1500
                  #activeHelpKey: #chickenFun
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1501
                  #argument: 'ChickenEyes'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1502
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1503
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1504
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1505
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1506
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1507
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1508
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1509
            #label: '3D GL Graphics'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1510
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1511
            #isVisible: #displaySupportsGLDrawing
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1512
            #activeHelpKey: #demos3D
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1513
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1514
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1515
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1516
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1517
                  #label: 'Plane'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1518
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1519
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1520
                  #activeHelpKey: #demos3Dplane
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1521
                  #argument: 'GLPlaneDemoView2'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1522
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1523
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1524
                  #label: 'Tetra'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1525
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1526
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1527
                  #activeHelpKey: #demos3Dtetra
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1528
                  #argument: 'GLTetraDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1529
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1530
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1531
                  #label: 'Cube (wireframe)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1532
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1533
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1534
                  #activeHelpKey: #demos3DcubeWire
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1535
                  #argument: 'GLWireCubeDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1536
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1537
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1538
                  #label: 'Cube (solid)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1539
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1540
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1541
                  #activeHelpKey: #demos3DcubeSolid
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1542
                  #argument: 'GLCubeDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1543
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1544
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1545
                  #label: 'Sphere (wireframe)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1546
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1547
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1548
                  #activeHelpKey: #demos3Dsphere
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1549
                  #argument: 'GLWireSphereDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1550
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1551
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1552
                  #label: 'Doughnut (wireframe)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1553
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1554
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1555
                  #activeHelpKey: #demos3Ddoughnut
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1556
                  #argument: 'GLDoughnutDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1557
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1558
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1559
                  #label: 'Planet'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1560
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1561
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1562
                  #activeHelpKey: #demos3Dplanet
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1563
                  #argument: 'GLPlanetDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1564
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1565
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1566
                  #label: 'Teapot'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1567
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1568
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1569
                  #activeHelpKey: #demos3Dteapot
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1570
                  #argument: 'GLTeapotDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1571
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1572
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1573
                  #label: 'Logo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1574
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1575
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1576
                  #activeHelpKey: #demos3Dlogo
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1577
                  #argument: 'Logo3DView1'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1578
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1579
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1580
                  #label: 'Rubics Cube'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1581
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1582
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1583
                  #activeHelpKey: #demosCommander
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1584
                  #argument: 'RubicsCubeView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1585
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1586
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1587
                  #label: 'X/Y Graph'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1588
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1589
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1590
                  #argument: 'GLXYGraph'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1591
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1592
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1593
                  #label: 'X/Y Graph Widget'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1594
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1595
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1596
                  #argument: 'CodingExamples_GUI::GLXYGraph3DDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1597
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1598
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1599
                  #label: 'X/Y Graph Animated'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1600
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1601
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1602
                  #argument: 'CodingExamples_GUI::AnimatedGLXYGraph3DDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1603
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1604
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1605
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1606
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1607
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1608
                  #label: 'Cube (light)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1609
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1610
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1611
                  #argument: 'GLCubeDemoView2'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1612
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1613
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1614
                  #label: 'Cube (light and texture)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1615
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1616
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1617
                  #argument: 'GLBrickCubeDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1618
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1619
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1620
                  #label: 'Sphere (light)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1621
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1622
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1623
                  #argument: 'GLSphereDemoView2'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1624
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1625
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1626
                  #label: 'Colored Octahedron'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1627
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1628
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1629
                  #argument: 'GLOctaHedronDemoView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1630
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1631
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1632
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1633
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1634
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1635
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1636
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1637
            #label: 'Graphic Editors'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1638
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1639
            #activeHelpKey: #demosGraphicEditors
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1640
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1641
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1642
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1643
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1644
                  #label: 'Draw Tool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1645
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1646
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1647
                  #activeHelpKey: #demosGraphicEditorsDrawTool
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1648
                  #argument: 'DrawTool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1649
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1650
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1651
                  #label: 'Logic Tool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1652
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1653
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1654
                  #activeHelpKey: #demosGraphicEditorsLogicTool
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1655
                  #argument: 'LogicTool'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1656
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1657
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1658
                  #label: 'Paint Demo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1659
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1660
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1661
                  #activeHelpKey: #demosGraphicEditorsPaintTool
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1662
                  #argument: 'ColorDrawDemo3'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1663
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1664
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1665
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1666
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1667
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1668
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1669
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1670
            #label: 'GUI'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1671
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1672
            #activeHelpKey: #demosGUI
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1673
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1674
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1675
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1676
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1677
                  #label: 'Widget Gallery'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1678
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1679
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1680
                  #activeHelpKey: #demosGUIWidgets
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1681
                  #argument: 'CodingExamples_GUI::GUIDemo'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1682
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1683
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1684
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1685
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1686
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1687
                  #label: 'Calculator'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1688
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1689
                  #value: #openDemo:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1690
                  #activeHelpKey: #demosGUICalculator
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1691
                  #argument: 'CodingExamples_GUI::GUIDemoCalculator'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1692
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1693
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1694
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1695
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1696
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1697
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1698
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1699
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1700
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1701
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1702
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1703
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1704
fileMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1705
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1706
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1707
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1708
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1709
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1710
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1711
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1712
     MenuEditor new openOnClass:NewLauncher andSelector:#fileMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1713
     (Menu new fromLiteralArrayEncoding:(NewLauncher fileMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1714
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1715
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1716
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1717
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1718
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1719
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1720
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1721
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1722
            #label: 'File Browser'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1723
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1724
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1725
            #activeHelpKey: #fileFileBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1726
            #argument: 'FileBrowser'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1727
            #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon 'File Browser')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1728
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1729
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1730
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1731
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1732
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1733
            #label: 'Modules...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1734
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1735
            #value: #objectModuleDialog
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1736
            #activeHelpKey: #fileModules
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1737
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1738
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1739
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1740
            #label: 'Packages...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1741
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1742
            #isVisible: #packageDialogVisible
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1743
            #value: #packageDialog
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1744
            #activeHelpKey: #filePackages
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1745
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1746
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1747
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1748
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1749
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1750
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1751
            #label: 'Library Builder'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1752
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1753
            #isVisible: #libraryBuilderAvailable
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1754
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1755
            #activeHelpKey: #fileLibraryBuilder
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1756
            #argument: 'LibraryBuilder'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1757
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1758
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1759
            #label: 'Application Builder'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1760
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1761
            #isVisible: #libraryBuilderAvailable
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1762
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1763
            #activeHelpKey: #fileApplicationBuilder
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1764
            #argument: 'ApplicationBuilder'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1765
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1766
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1767
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1768
            #isVisible: #libraryBuilderAvailable
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1769
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1770
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1771
            #label: 'Save Image'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1772
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1773
            #value: #saveImage
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1774
            #activeHelpKey: #fileSaveImage
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1775
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1776
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1777
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1778
            #label: 'Save Image As...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1779
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1780
            #value: #saveImageAs
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1781
            #activeHelpKey: #fileSaveImageAs
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1782
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1783
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1784
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1785
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1786
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1787
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1788
            #label: 'Exit...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1789
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1790
            #isVisible: #isMainLauncherHolder
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1791
            #value: #exit
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1792
            #activeHelpKey: #fileExit
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1793
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1794
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1795
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1796
            #label: 'Close...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1797
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1798
            #isVisible: #isNotMainLauncherHolder
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1799
            #value: #closeRequest
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1800
            #activeHelpKey: #fileClose
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1801
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1802
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1803
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1804
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1805
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1806
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1807
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1808
helpMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1809
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1810
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1811
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1812
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1813
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1814
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1815
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1816
     MenuEditor new openOnClass:NewLauncher andSelector:#helpMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1817
     (Menu new fromLiteralArrayEncoding:(NewLauncher helpMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1818
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1819
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1820
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1821
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1822
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1823
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1824
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1825
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1826
            #label: 'What''s New in the Documentation'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1827
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1828
            #value: #startWhatsNewDocumentation
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1829
            #activeHelpKey: #helpWhatsNew
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1830
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1831
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1832
            #label: 'What''s New in ST/X'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1833
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1834
            #value: #startWhatsNewSTX
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1835
            #activeHelpKey: #helpReleaseNotes
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1836
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1837
         #(#MenuItem
3514
62c20ae2fc4e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3493
diff changeset
  1838
            #label: 'Keyword Index'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1839
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1840
            #value: #startDocumentationIndex
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1841
            #activeHelpKey: #helpIndex
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1842
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1843
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1844
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1845
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1846
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1847
            #label: 'ST/X Online Documentation'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1848
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1849
            #value: #startDocumentationTool
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1850
            #activeHelpKey: #helpSTXOnlineDocumentation
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1851
            #labelImage: #(#ResourceRetriever nil #helpIcon2 'ST/X Online Documentation')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1852
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1853
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1854
            #label: 'Class Documentation'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1855
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1856
            #value: #startClassDocumentation
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1857
            #activeHelpKey: #helpClassDocumentation
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1858
            #labelImage: #(#ResourceRetriever nil #helpIcon 'Class Documentation')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1859
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1860
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1861
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1862
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1863
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1864
            #label: 'Print Documentation...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1865
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1866
            #value: #showBookPrintDocument
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1867
            #activeHelpKey: #helpPrintDocumentation
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1868
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1869
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1870
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1871
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1872
         #(#MenuItem
3492
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  1873
            #label: 'FlyBy Help'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1874
            #translateLabel: true
3492
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  1875
            #value: #toggleFlyByHelp:
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1876
            #activeHelpKey: #helpActiveHelp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1877
            #indication: #activeHelp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1878
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1879
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1880
            #label: 'Show Help Texts'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1881
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1882
            #activeHelpKey: #helpShowHelp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1883
            #indication: #showingHelp:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1884
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1885
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1886
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1887
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1888
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1889
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1890
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1891
menu
1515
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
  1892
    "This resource specification was automatically generated
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
  1893
     by the MenuEditor of ST/X."
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
  1894
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
  1895
    "Do not manually edit this!! If it is corrupted,
293aa84c6b80 application builder stuff moved to a separate class
tz
parents: 1497
diff changeset
  1896
     the MenuEditor may not be able to read the specification."
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1897
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1898
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1899
     MenuEditor new openOnClass:NewLauncher andSelector:#menu
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1900
     (Menu new fromLiteralArrayEncoding:(NewLauncher menu)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1901
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1902
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1903
    <resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1904
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1905
    ^ 
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1906
     #(#Menu
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1907
        #(
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1908
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1909
            #label: 'About'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1910
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1911
            #nameKey: #about
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1912
            #activeHelpKey: #about
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1913
            #labelImage: #(#ResourceRetriever nil #menuIcon)
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1914
            #submenuChannel: #aboutMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1915
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1916
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1917
         #(#MenuItem
2617
563dee064b18 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2603
diff changeset
  1918
            #label: '&File'
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1919
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1920
            #nameKey: #file
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1921
            #activeHelpKey: #file
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1922
            #submenuChannel: #fileMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1923
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1924
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1925
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1926
            #label: 'Classes'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1927
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1928
            #nameKey: #classes
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1929
            #activeHelpKey: #classes
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1930
            #submenuChannel: #classesMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1931
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1932
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1933
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1934
            #label: 'Tools'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1935
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1936
            #nameKey: #tools
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1937
            #activeHelpKey: #tools
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1938
            #submenuChannel: #toolsMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1939
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1940
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1941
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1942
            #label: 'System'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1943
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1944
            #nameKey: #system
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1945
            #activeHelpKey: #system
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1946
            #submenuChannel: #systemMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1947
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1948
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1949
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1950
            #label: 'Settings'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1951
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1952
            #nameKey: #settings
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  1953
            #activeHelpKey: #settings
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  1954
            #submenuChannel: #settingsMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1955
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1956
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1957
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1958
            #label: 'Windows'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1959
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1960
            #nameKey: #windows
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1961
            #activeHelpKey: #windows
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1962
            #submenuChannel: #windowsMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1963
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1964
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1965
         #(#MenuItem
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1966
            #label: 'Demos'
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1967
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1968
            #nameKey: #demos
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1969
            #activeHelpKey: #demos
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1970
            #submenuChannel: #demosMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1971
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1972
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1973
         #(#MenuItem
2617
563dee064b18 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2603
diff changeset
  1974
            #label: '&Help'
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1975
            #translateLabel: true
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  1976
            #nameKey: #help
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1977
            #startGroup: #right
3122
6fcb6b2eb891 oops - activeHelpKeys where corrupted
Claus Gittinger <cg@exept.de>
parents: 3120
diff changeset
  1978
            #activeHelpKey: #help
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  1979
            #submenuChannel: #helpMenu
2978
028b168d6f8e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2935
diff changeset
  1980
            #keepLinkedMenu: true
2112
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1981
          )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1982
         )
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1983
        nil
68e5920dc07a moved startChangesBrowser to AbstractLauncher.
Claus Gittinger <cg@exept.de>
parents: 2096
diff changeset
  1984
        nil
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1985
      )
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1986
!
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1987
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1988
menuToolbar
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1989
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1990
     by the MenuEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1991
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1992
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  1993
     the MenuEditor may not be able to read the specification."
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1994
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1995
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1996
     MenuEditor new openOnClass:NewLauncher andSelector:#menuToolbar
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1997
     (Menu new fromLiteralArrayEncoding:(NewLauncher menuToolbar)) startUp
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1998
    "
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  1999
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2000
    <resource: #menu>
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2001
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2002
    ^ 
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2003
     #(#Menu
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2004
        #(
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2005
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2006
            #label: 'open workspace'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2007
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2008
            #nameKey: #workspace
3158
70963eea944a new workspace
Claus Gittinger <cg@exept.de>
parents: 3156
diff changeset
  2009
            #value: #openWorkspace
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2010
            #activeHelpKey: #toolsWorkspace
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2011
            #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2012
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2013
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2014
            #label: 'open file browser'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2015
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2016
            #nameKey: #fileBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2017
            #value: #openApplication:
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2018
            #activeHelpKey: #fileFileBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2019
            #argument: 'FileBrowser'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2020
            #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2021
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2022
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2023
            #label: 'save image'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2024
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2025
            #nameKey: #saveImage
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2026
            #value: #saveImageAs
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2027
            #activeHelpKey: #fileSaveImageAs
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2028
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2029
            #labelImage: #(#ResourceRetriever nil #saveImageIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2030
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2031
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2032
            #label: ''
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2033
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2034
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2035
            #label: 'open system browser'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2036
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2037
            #nameKey: #systemBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2038
            #value: #openApplication:
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2039
            #activeHelpKey: #classesSystemBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2040
            #argument: 'SystemBrowser'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2041
            #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2042
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2043
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2044
            #label: 'System Browser On Class'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2045
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2046
            #activeHelpKey: #classesSystemBrowserOnClass
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2047
            #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2048
            #submenuChannel: #menuClassHistory
3622
5c2142171a06 remove seldom needed buttons (cls-history and garbage collect)
Claus Gittinger <cg@exept.de>
parents: 3611
diff changeset
  2049
            #isVisible: false
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2050
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2051
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2052
            #label: 'open changes browser'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2053
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2054
            #nameKey: #changesBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2055
            #value: #startChangesBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2056
            #activeHelpKey: #toolsChangesBrowser
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2057
            #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2058
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2059
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2060
            #label: ''
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2061
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2062
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2063
            #label: 'open GUI Builder'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2064
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2065
            #nameKey: #guiBuilder
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2066
            #value: #openApplication:
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2067
            #activeHelpKey: #toolsGUIPainter
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2068
            #argument: 'UIPainter'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2069
            #labelImage: #(#ResourceRetriever nil #startUIPainterIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2070
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2071
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2072
            #label: 'open menu editor'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2073
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2074
            #nameKey: #menuEditor
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2075
            #value: #openApplication:
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2076
            #activeHelpKey: #toolsMenuEditor
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2077
            #argument: 'MenuEditor'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2078
            #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2079
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2080
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2081
            #label: 'open image editor'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2082
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2083
            #nameKey: #imageEditor
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2084
            #value: #openApplication:
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2085
            #activeHelpKey: #toolsImageEditor
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2086
            #argument: 'ImageEditor'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2087
            #labelImage: #(#ResourceRetriever nil #startImageEditorIcon)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2088
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2089
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2090
            #label: ''
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2091
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2092
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2093
            #label: 'garbage collect and compress'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2094
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2095
            #nameKey: #garbageCollect
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2096
            #value: #compressingGarbageCollect
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2097
            #activeHelpKey: #systemGarbageCollectAndCompress
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2098
            #labelImage: #(#ResourceRetriever nil #garbageCollectIcon)
3622
5c2142171a06 remove seldom needed buttons (cls-history and garbage collect)
Claus Gittinger <cg@exept.de>
parents: 3611
diff changeset
  2099
            #isVisible: false
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2100
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2101
         #(#MenuItem
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2102
            #label: 'help'
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2103
            #translateLabel: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2104
            #isButton: true
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2105
            #nameKey: #help
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2106
            #startGroup: #right
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2107
            #value: #startDocumentationTool
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2108
            #activeHelpKey: #helpSTXOnlineDocumentation
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2109
            #labelImage: #(#ResourceRetriever nil #helpIcon2)
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2110
          )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2111
         )
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2112
        nil
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  2113
        nil
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2114
      )
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2115
!
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2116
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2117
menuToolbar_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2118
    "This resource specification was automatically generated
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2119
     by the MenuEditor of ST/X."
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2120
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2121
    "Do not manually edit this!! If it is corrupted,
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2122
     the MenuEditor may not be able to read the specification."
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2123
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2124
    "
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2125
     MenuEditor new openOnClass:NewLauncher andSelector:#menuToolbar_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2126
     (Menu new fromLiteralArrayEncoding:(NewLauncher menuToolbar_pda)) startUp
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2127
    "
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2128
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2129
    <resource: #menu>
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2130
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2131
    ^ 
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2132
     #(#Menu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2133
        #(
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2134
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2135
            #label: 'open file browser'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2136
            #isButton: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2137
            #nameKey: #fileBrowser
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2138
            #value: #openApplication:
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2139
            #activeHelpKey: #fileFileBrowser
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2140
            #argument: 'FileBrowser'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2141
            #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2142
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2143
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2144
            #label: ''
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2145
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2146
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2147
            #label: 'open system browser'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2148
            #isButton: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2149
            #nameKey: #systemBrowser
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2150
            #value: #openApplication:
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2151
            #activeHelpKey: #classesSystemBrowser
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2152
            #argument: 'SystemBrowser'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2153
            #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2154
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2155
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2156
            #label: ''
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2157
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2158
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2159
            #label: 'help'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2160
            #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2161
            #isButton: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2162
            #nameKey: #help
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2163
            #startGroup: #right
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2164
            #value: #startDocumentationTool
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2165
            #activeHelpKey: #helpSTXOnlineDocumentation
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2166
            #labelImage: #(#ResourceRetriever nil #helpIcon2)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2167
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2168
         )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2169
        nil
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2170
        nil
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2171
      )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2172
!
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2173
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2174
menu_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2175
    "This resource specification was automatically generated
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2176
     by the MenuEditor of ST/X."
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2177
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2178
    "Do not manually edit this!! If it is corrupted,
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2179
     the MenuEditor may not be able to read the specification."
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2180
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2181
    "
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2182
     MenuEditor new openOnClass:NewLauncher andSelector:#menu_pda
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2183
     (Menu new fromLiteralArrayEncoding:(NewLauncher menu_pda)) startUp
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2184
    "
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2185
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2186
    <resource: #menu>
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2187
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2188
    ^ 
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2189
     #(#Menu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2190
        #(
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2191
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2192
            #label: 'About'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2193
            #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2194
            #nameKey: #about
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2195
            #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2196
            #labelImage: #(#ResourceRetriever nil #menuIcon)
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2197
            #submenuChannel: #aboutMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2198
            #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2199
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2200
         #(#MenuItem
3038
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2201
            #label: '&File'
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2202
            #translateLabel: true
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2203
            #nameKey: #file
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2204
            #activeHelpKey: #settings
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2205
            #submenuChannel: #fileMenu
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2206
            #keepLinkedMenu: true
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2207
          )
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2208
         #(#MenuItem
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2209
            #label: 'Apps'
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2210
            #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2211
            #submenu: 
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2212
           #(#Menu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2213
              #(
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2214
               #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2215
                  #label: 'Classes'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2216
                  #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2217
                  #nameKey: #classes
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2218
                  #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2219
                  #submenuChannel: #classesMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2220
                  #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2221
                )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2222
               #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2223
                  #label: 'Tools'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2224
                  #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2225
                  #nameKey: #tools
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2226
                  #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2227
                  #submenuChannel: #toolsMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2228
                  #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2229
                )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2230
               #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2231
                  #label: 'System'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2232
                  #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2233
                  #nameKey: #system
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2234
                  #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2235
                  #submenuChannel: #systemMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2236
                  #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2237
                )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2238
               #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2239
                  #label: 'Demos'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2240
                  #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2241
                  #nameKey: #demos
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2242
                  #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2243
                  #submenuChannel: #demosMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2244
                  #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2245
                )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2246
               )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2247
              nil
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2248
              nil
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2249
            )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2250
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2251
         #(#MenuItem
3038
d978a8d445f5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3036
diff changeset
  2252
            #label: 'Views'
3036
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2253
            #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2254
            #nameKey: #windows
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2255
            #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2256
            #submenuChannel: #windowsMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2257
            #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2258
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2259
         #(#MenuItem
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2260
            #label: '&Help'
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2261
            #translateLabel: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2262
            #nameKey: #help
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2263
            #startGroup: #right
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2264
            #activeHelpKey: #settings
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2265
            #submenuChannel: #helpMenu
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2266
            #keepLinkedMenu: true
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2267
          )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2268
         )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2269
        nil
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2270
        nil
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2271
      )
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2272
!
7ac2163ba437 some more pda support
Claus Gittinger <cg@exept.de>
parents: 2994
diff changeset
  2273
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2274
settingsMenu
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2275
    "This resource specification was automatically generated
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2276
     by the MenuEditor of ST/X."
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2277
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2278
    "Do not manually edit this!! If it is corrupted,
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2279
     the MenuEditor may not be able to read the specification."
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2280
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2281
    "
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2282
     MenuEditor new openOnClass:NewLauncher andSelector:#settingsMenu
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2283
     (Menu new fromLiteralArrayEncoding:(NewLauncher settingsMenu)) startUp
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2284
    "
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2285
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2286
    <resource: #menu>
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2287
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2288
    ^ 
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2289
     #(#Menu
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2290
        #(
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2291
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2292
            #label: 'Language...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2293
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2294
            #value: #languageSetting
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2295
            #activeHelpKey: #settingsLanguage
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2296
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2297
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2298
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2299
            #label: 'Keyboard Mappings...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2300
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2301
            #value: #keyboardSetting
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2302
            #activeHelpKey: #settingsKeyboardMappings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2303
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2304
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2305
            #label: 'View Style...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2306
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2307
            #value: #viewStyleSetting
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2308
            #activeHelpKey: #settingsViewStyle
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2309
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2310
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2311
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2312
            #label: 'Fonts...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2313
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2314
            #value: #fontSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2315
            #activeHelpKey: #settingsFonts
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2316
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2317
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2318
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2319
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2320
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2321
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2322
            #label: 'Messages...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2323
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2324
            #value: #messageSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2325
            #activeHelpKey: #settingsMessages
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2326
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2327
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2328
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2329
            #label: 'Compilation...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2330
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2331
            #value: #compilerSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2332
            #activeHelpKey: #settingsCompilation
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2333
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2334
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2335
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2336
            #label: 'Object Memory...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2337
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2338
            #value: #memorySettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2339
            #activeHelpKey: #settingsObjectMemory
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2340
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2341
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2342
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2343
            #label: 'Source And Debugger...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2344
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2345
            #value: #sourceAndDebuggerSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2346
            #activeHelpKey: #settingsSourceAndDebugger
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2347
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2348
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2349
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2350
            #label: 'Tools...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2351
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2352
            #value: #toolSettings
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2353
            #activeHelpKey: #settingsTools
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2354
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2355
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2356
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2357
            #label: 'Java...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2358
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2359
            #isVisible: #javaSupportPresent
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2360
            #value: #javaSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2361
            #activeHelpKey: #settingsJava
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2362
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2363
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2364
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2365
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2366
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2367
            #label: 'Printer...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2368
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2369
            #value: #printerSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2370
            #activeHelpKey: #settingsPrinter
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2371
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2372
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2373
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2374
            #label: 'Screen...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2375
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2376
            #value: #displaySettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2377
            #activeHelpKey: #settingsScreen
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2378
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2379
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2380
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2381
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2382
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2383
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2384
            #label: 'Editing...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2385
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2386
            #value: #editSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2387
            #activeHelpKey: #settingsMisc
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2388
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2389
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2390
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2391
            #label: 'Misc...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2392
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2393
            #value: #miscSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2394
            #activeHelpKey: #settingsMisc
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2395
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2396
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2397
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2398
            #label: 'Communications...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2399
            #translateLabel: true
2994
9ef2f318f6ae Add MouseSettings dialog.
Stefan Vogel <sv@exept.de>
parents: 2978
diff changeset
  2400
            #value: #communicationsSettings
2462
acd79b47c41f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2427
diff changeset
  2401
            #activeHelpKey: #settingsCommunications
2557
d223b3918dbd checkin from browser
ah
parents: 2523
diff changeset
  2402
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
2197
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2403
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2404
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2405
            #label: '-'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2406
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2407
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2408
            #label: 'Save Settings...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2409
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2410
            #value: #saveSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2411
            #activeHelpKey: #settingsSaveSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2412
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2413
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2414
         #(#MenuItem
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2415
            #label: 'Load Settings...'
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2416
            #translateLabel: true
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2417
            #value: #loadSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2418
            #activeHelpKey: #settingsLoadSettings
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2419
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2420
          )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2421
         )
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2422
        nil
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2423
        nil
b2f768d0456f settings splitted
Claus Gittinger <cg@exept.de>
parents: 2180
diff changeset
  2424
      )
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2425
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2426
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2427
systemMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2428
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2429
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2430
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2431
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2432
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2433
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2434
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2435
     MenuEditor new openOnClass:NewLauncher andSelector:#systemMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2436
     (Menu new fromLiteralArrayEncoding:(NewLauncher systemMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2437
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2438
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2439
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2440
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2441
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2442
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2443
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2444
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2445
            #label: 'Memory'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2446
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2447
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2448
            #activeHelpKey: #systemMemory
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2449
            #argument: 'MemoryMonitor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2450
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2451
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2452
            #label: 'Memory Usage'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2453
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2454
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2455
            #activeHelpKey: #systemMemoryUsage
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2456
            #argument: 'MemoryUsageView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2457
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2458
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2459
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2460
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2461
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2462
            #label: 'Processes'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2463
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2464
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2465
            #activeHelpKey: #systemProcesses
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2466
            #argument: 'ProcessMonitor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2467
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2468
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2469
            #label: 'Semaphores'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2470
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2471
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2472
            #activeHelpKey: #systemSemaphores
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2473
            #argument: 'SemaphoreMonitor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2474
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2475
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2476
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2477
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2478
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2479
            #label: 'Interrupt Latency'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2480
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2481
            #value: #startLatencyMonitor
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2482
            #activeHelpKey: #systemInterruptLatency
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2483
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2484
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2485
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2486
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2487
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2488
            #label: 'Event View'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2489
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2490
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2491
            #activeHelpKey: #systemEventView
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2492
            #argument: 'EventMonitor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2493
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2494
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2495
            #label: 'Event Trace'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2496
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2497
            #value: #startStopEventTrace
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2498
            #activeHelpKey: #systemEventTrace
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2499
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2500
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2501
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2502
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2503
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2504
            #label: 'Collect Garbage'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2505
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2506
            #value: #garbageCollect
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2507
            #activeHelpKey: #systemGarbageCollect
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2508
            #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2509
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2510
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2511
            #label: 'Collect Garbage And Compress'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2512
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2513
            #value: #compressingGarbageCollect
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2514
            #activeHelpKey: #systemGarbageCollectAndCompress
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2515
            #labelImage: #(#ResourceRetriever nil #garbageCollectIcon 'Collect Garbage And Compress')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2516
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2517
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2518
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2519
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2520
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2521
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2522
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2523
toolsMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2524
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2525
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2526
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2527
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2528
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2529
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2530
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2531
     MenuEditor new openOnClass:NewLauncher andSelector:#toolsMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2532
     (Menu new fromLiteralArrayEncoding:(NewLauncher toolsMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2533
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2534
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2535
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2536
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2537
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2538
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2539
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2540
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2541
            #label: 'Workspace'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2542
            #nameKey: #workspace
3158
70963eea944a new workspace
Claus Gittinger <cg@exept.de>
parents: 3156
diff changeset
  2543
            #value: #openWorkspace
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2544
            #activeHelpKey: #toolsWorkspace
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2545
            #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon 'Workspace')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2546
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2547
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2548
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2549
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2550
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2551
            #label: 'GUI Painter'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2552
            #nameKey: #guiPainter
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2553
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2554
            #activeHelpKey: #toolsGUIPainter
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2555
            #argument: 'UIPainter'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2556
            #labelImage: #(#ResourceRetriever nil #startUIPainterIcon 'GUI Painter')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2557
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2558
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2559
            #label: 'Menu Editor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2560
            #nameKey: #menuEditor
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2561
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2562
            #activeHelpKey: #toolsMenuEditor
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2563
            #argument: 'MenuEditor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2564
            #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon 'Menu Editor')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2565
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2566
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2567
            #label: 'Image Editor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2568
            #nameKey: #imageEditor
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2569
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2570
            #activeHelpKey: #toolsImageEditor
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2571
            #argument: 'ImageEditor'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2572
            #labelImage: #(#ResourceRetriever nil #startImageEditorIcon 'Image Editor')
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2573
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2574
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2575
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2576
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2577
         #(#MenuItem
3363
406ddb82a56a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3311
diff changeset
  2578
            #label: 'Change File Browser'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2579
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2580
            #nameKey: #changesBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2581
            #value: #startChangesBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2582
            #activeHelpKey: #toolsChangesBrowser
3363
406ddb82a56a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3311
diff changeset
  2583
            #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon 'Change File Browser')
406ddb82a56a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3311
diff changeset
  2584
          )
406ddb82a56a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3311
diff changeset
  2585
         #(#MenuItem
3411
d1bd4d2b97d3 *** empty log message ***
penk
parents: 3410
diff changeset
  2586
            #label: 'Bug Reporter'
3410
fd14c97c539a *** empty log message ***
penk
parents: 3408
diff changeset
  2587
            #translateLabel: true
fd14c97c539a *** empty log message ***
penk
parents: 3408
diff changeset
  2588
            #nameKey: #bugMessages
3411
d1bd4d2b97d3 *** empty log message ***
penk
parents: 3410
diff changeset
  2589
            #isVisible: #bugReporterAvailable
3410
fd14c97c539a *** empty log message ***
penk
parents: 3408
diff changeset
  2590
            #value: #startBugMessages
3411
d1bd4d2b97d3 *** empty log message ***
penk
parents: 3410
diff changeset
  2591
            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #bugReporterIcon 'Bug Reporter')
3410
fd14c97c539a *** empty log message ***
penk
parents: 3408
diff changeset
  2592
          )
fd14c97c539a *** empty log message ***
penk
parents: 3408
diff changeset
  2593
         #(#MenuItem
2883
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2594
            #label: 'SUnit Test'
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2595
            #translateLabel: true
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2596
            #nameKey: #startSUnitTestRunner
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2597
            #value: #startSUnitTestRunner
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2598
            #labelImage: #(#ResourceRetriever #NewLauncher #startSUnitIcon 'SUnit Test')
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2599
          )
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2600
         #(#MenuItem
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2601
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2602
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2603
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2604
            #label: 'Misc'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2605
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2606
            #nameKey: #misc
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2607
            #activeHelpKey: #toolsMisc
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2608
            #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2609
           #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2610
              #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2611
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2612
                  #label: 'Projects'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2613
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2614
                  #activeHelpKey: #toolsMiscProjects
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2615
                  #submenu: 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2616
                 #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2617
                    #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2618
                     #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2619
                        #label: 'New Project'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2620
                        #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2621
                        #value: #newProject
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2622
                        #activeHelpKey: #toolsMiscProjectsNewProject
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2623
                      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2624
                     #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2625
                        #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2626
                      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2627
                     #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2628
                        #label: 'Select Project...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2629
                        #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2630
                        #value: #selectProject
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2631
                        #activeHelpKey: #toolsMiscProjectsSelectProject
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2632
                      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2633
                     )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2634
                    nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2635
                    nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2636
                  )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2637
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2638
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2639
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2640
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2641
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2642
                  #label: 'New Launcher'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2643
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2644
                  #value: #startNewLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2645
                  #activeHelpKey: #toolsMiscNewLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2646
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2647
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2648
                  #label: 'Old Launcher'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2649
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2650
                  #value: #startOldLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2651
                  #activeHelpKey: #toolsMiscOldLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2652
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2653
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2654
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2655
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2656
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2657
                  #label: 'New Changes Browser'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2658
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2659
                  #value: #startNewChangesBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2660
                  #activeHelpKey: #toolsMiscNewChangesBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2661
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2662
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2663
                  #label: 'Old Changes Browser'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2664
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2665
                  #value: #startOldChangesBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2666
                  #activeHelpKey: #toolsMiscOldChangesBrowser
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2667
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2668
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2669
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2670
                  #isVisible: #canDoTerminal
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2671
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2672
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2673
                  #label: 'Terminal'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2674
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2675
                  #isVisible: #canDoTerminal
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2676
                  #value: #openTerminal
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2677
                  #activeHelpKey: #toolsTerminal
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2678
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2679
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2680
                  #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2681
                  #isVisible: #canDoTerminal
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2682
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2683
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2684
                  #label: 'Inspect Global Variables'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2685
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2686
                  #value: #inspectGlobalVariables
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2687
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2688
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2689
                  #label: 'Inspect Workspace Variables'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2690
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2691
                  #value: #inspectWorkspaceVariables
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2692
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2693
               #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2694
                  #label: 'Remove All Workspace Variables'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2695
                  #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2696
                  #value: #removeAllWorkspaceVariables
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2697
                )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2698
               )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2699
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2700
              nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2701
            )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2702
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2703
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2704
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2705
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2706
      )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2707
!
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2708
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2709
windowsMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2710
    "This resource specification was automatically generated
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2711
     by the MenuEditor of ST/X."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2712
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2713
    "Do not manually edit this!! If it is corrupted,
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2714
     the MenuEditor may not be able to read the specification."
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2715
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2716
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2717
     MenuEditor new openOnClass:NewLauncher andSelector:#windowsMenu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2718
     (Menu new fromLiteralArrayEncoding:(NewLauncher windowsMenu)) startUp
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2719
    "
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2720
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2721
    <resource: #menu>
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2722
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2723
    ^ 
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2724
     #(#Menu
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2725
        #(
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2726
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2727
            #label: 'Redraw All'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2728
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2729
            #value: #redrawAllWindows
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2730
            #activeHelpKey: #windowsRedrawAll
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2731
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2732
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2733
            #label: 'Iconify All'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2734
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2735
            #value: #iconifyAllWindows
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2736
            #activeHelpKey: #windowsIconifyAll
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2737
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2738
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2739
            #label: 'De-iconify All'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2740
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2741
            #value: #deIconifyAllWindows
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2742
            #activeHelpKey: #windowsDeiconifyAll
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2743
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2744
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2745
            #label: 'Migrate All to...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2746
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2747
            #value: #migrateAllWindows
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2748
            #activeHelpKey: #windowsMigrateAllWindows
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2749
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2750
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2751
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2752
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2753
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2754
            #label: 'View Tree'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2755
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2756
            #value: #startWindowTreeView
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2757
            #activeHelpKey: #windowsViewTree
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2758
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2759
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2760
            #label: 'View Tree (all windows)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2761
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2762
            #value: #openApplication:
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2763
            #activeHelpKey: #windowsViewTreeAllViews
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2764
            #argument: 'WindowTreeView'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2765
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2766
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2767
            #label: 'View Tree (all on all screens)'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2768
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2769
            #value: #startWindowTreeViewForAll
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2770
            #activeHelpKey: #windowsViewTreeAllScreens
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2771
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2772
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2773
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2774
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2775
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2776
            #label: 'Select And Inspect'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2777
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2778
            #value: #viewInspect
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2779
            #activeHelpKey: #windowsSelectAndInspect
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2780
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2781
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2782
            #label: 'Select And Destroy'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2783
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2784
            #value: #viewDestroy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2785
            #activeHelpKey: #windowsSelectAndDestroy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2786
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2787
         #(#MenuItem
2810
323ae28f3df5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2782
diff changeset
  2788
            #label: 'Select And Migrate to...'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2789
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2790
            #value: #viewMigrate
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2791
            #activeHelpKey: #windowsSelectAndMigrate
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2792
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2793
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2794
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2795
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2796
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2797
            #label: 'Find And Raise...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2798
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2799
            #value: #findAndRaiseWindow
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2800
            #activeHelpKey: #windowsFindAndRaise
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2801
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2802
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2803
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2804
            #label: 'Find And Destroy...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2805
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2806
            #value: #findAndDestroyWindow
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2807
            #activeHelpKey: #windowsFindAndDestroy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2808
            #enabled: #enableDangerousMenuItemsInRemoteLauncher
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2809
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2810
         #(#MenuItem
2810
323ae28f3df5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2782
diff changeset
  2811
            #label: 'Find And Migrate to...'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2812
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2813
            #value: #findAndMigrateWindow
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2814
            #activeHelpKey: #windowsFindAndMigrate
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2815
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2816
         #(#MenuItem
2810
323ae28f3df5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2782
diff changeset
  2817
            #label: 'Find And Migrate back...'
2774
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2818
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2819
            #value: #findAndMigrateWindowBack
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2820
            #activeHelpKey: #windowsFindAndMigrateBack
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2821
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2822
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2823
            #label: '-'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2824
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2825
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2826
            #label: 'Grab Window...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2827
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2828
            #value: #viewHardcopy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2829
            #activeHelpKey: #windowsGrapWindow
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2830
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2831
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2832
            #label: 'Grab Widget...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2833
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2834
            #value: #widgetHardcopy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2835
            #activeHelpKey: #windowsGrapWidget
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2836
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2837
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2838
            #label: 'Grab Screen...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2839
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2840
            #value: #fullScreenHardcopy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2841
            #activeHelpKey: #windowsGrapScreen
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2842
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2843
         #(#MenuItem
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2844
            #label: 'Grab Screen Area...'
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2845
            #translateLabel: true
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2846
            #value: #screenHardcopy
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2847
            #activeHelpKey: #windowsGrapScreenArea
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2848
          )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2849
         )
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2850
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2851
        nil
bc4b37856b64 separate menuSpecs, for easier subclassing
Claus Gittinger <cg@exept.de>
parents: 2767
diff changeset
  2852
      )
1441
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2853
! !
b39eb6200d20 calculates preferredExtent depending on screen extent
tz
parents: 1437
diff changeset
  2854
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2855
!NewLauncher class methodsFor:'resources'!
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2856
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2857
garbageCollectIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2858
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2859
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2860
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2861
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2862
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2863
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2864
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2865
     ImageEditor openOnClass:self andSelector:#garbageCollectIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2866
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2867
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2868
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2869
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2870
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2871
	constantNamed:#'NewLauncher garbageCollectIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2872
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2873
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2874
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2875
saveImageIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2876
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2877
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2878
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2879
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2880
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2881
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2882
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2883
     ImageEditor openOnClass:self andSelector:#saveImageIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2884
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2885
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2886
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2887
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2888
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2889
	constantNamed:#'NewLauncher saveImageIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2890
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2891
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2892
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2893
startChangesBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2894
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2895
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2896
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2897
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2898
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2899
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2900
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2901
     ImageEditor openOnClass:self andSelector:#startChangesBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2902
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2903
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2904
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2905
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2906
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2907
	constantNamed:#'NewLauncher startChangesBrowserIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2908
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2909
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2910
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2911
startFileBrowserIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2912
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2913
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2914
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2915
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2916
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2917
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2918
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2919
     ImageEditor openOnClass:self andSelector:#startFileBrowserIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2920
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2921
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2922
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2923
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2924
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2925
	constantNamed:#'NewLauncher startFileBrowserIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2926
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2927
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2928
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2929
startImageEditorIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2930
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2931
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2932
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2933
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2934
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2935
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2936
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2937
     ImageEditor openOnClass:self andSelector:#startImageEditorIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2938
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2939
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2940
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2941
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2942
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2943
	constantNamed:#'NewLauncher startImageEditorIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2944
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2945
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2946
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2947
startMenuEditorIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2948
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2949
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2950
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2951
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2952
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2953
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2954
    "
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2955
     self startMenuEditorIcon inspect
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  2956
     ImageEditor openOnClass:self andSelector:#startMenuEditorIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2957
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2958
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2959
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2960
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2961
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  2962
	constantNamed:#'NewLauncher startMenuEditorIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2963
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  2964
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2965
2883
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2966
startSUnitIcon
2935
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2967
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2968
    <resource: #image>
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2969
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2970
    ^Icon
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2971
        constantNamed:#'NewLauncher startSUnitIcon'
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2972
        ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2973
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@O??C???????C?<O?0@@??<O??????<O?0??@@@@@@@@@@@@@@@@@@@@@BH"H"H"
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2974
H"H"H#L3L0@@H"H"H"H"H"H#L3L3@@@"H"H"H"H"H#L3L3L@@BH"H"H"H"H#L3L3L0@@H"H"H"H@@@L1L3L3@@@"H"H"HO??<A@3L3L@@BH"H"HO???1@3L3
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2975
L0@@H"H"HO???1@@L3L3@@@"H"H <_?1@O@3L3L@@BH"H"C0G1@O<CL3L0@@H"H"HO@A@O?0L3L3@@@"H"H ?0@O??@3L3L@@BH"H#LO<O??@3L3L0@@H"H#
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2976
L3C???@3L3L3@@@"H#L3L0@@@3L3L3L@@BH#L3L3L3L3L3L3L0@@H#L3L3L3L3L3L3L3@@@#L3L3L3L3L3L3L3L@@CL3L3L3L3L3L3L3L0@@@@@@@@@@@@@@
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2977
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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:'
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2978
@@@@@@@@@@A???? _???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G???>A???? _???8G??
a575cd50dc19 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2934
diff changeset
  2979
?>A???? _???8G???>@@@@@@@@@@@@@a') ; yourself); yourself]
2883
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2980
!
bd88b8b95b29 SUNit stuff added
Claus Gittinger <cg@exept.de>
parents: 2864
diff changeset
  2981
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2982
startSystemBrowserIcon
2693
c398e192f78f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2691
diff changeset
  2983
    <resource: #programImage>
c398e192f78f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2691
diff changeset
  2984
c398e192f78f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2691
diff changeset
  2985
    ^ SystemBrowser defaultIcon
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  2986
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  2987
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2988
startSystemBrowserOnHistoryClassIcon
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2989
    "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
  2990
     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
  2991
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2992
    "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
  2993
     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
  2994
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2995
    "
1609
839730f03809 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1608
diff changeset
  2996
     self startSystemBrowserOnHistoryClassIcon inspect
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2997
     ImageEditor openOnClass:self andSelector:#startSystemBrowserOnHistoryClassIcon
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2998
    "
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  2999
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3000
    <resource: #image>
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3001
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3002
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3003
	constantNamed:#'NewLauncher startSystemBrowserOnHistoryClassIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  3004
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  3005
!
1533
d4b9776714f6 help texts + class history + new settings' stuff removed (no time to complete it)
tz
parents: 1532
diff changeset
  3006
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3007
startUIPainterIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3008
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3009
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3010
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3011
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3012
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3013
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3014
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3015
     ImageEditor openOnClass:self andSelector:#startUIPainterIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3016
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3017
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3018
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3019
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3020
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3021
	constantNamed:#'NewLauncher startUIPainterIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  3022
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  3023
!
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3024
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3025
startWorkspaceIcon
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3026
    "This resource specification was automatically generated
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3027
     by the ImageEditor of ST/X."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3028
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3029
    "Do not manually edit this!! If it is corrupted,
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3030
     the ImageEditor may not be able to read the specification."
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3031
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3032
    "
1527
58d10367b84d syntax coloring
tz
parents: 1515
diff changeset
  3033
     ImageEditor openOnClass:self andSelector:#startWorkspaceIcon
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3034
    "
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3035
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3036
    <resource: #image>
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3037
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3038
    ^Icon
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3039
	constantNamed:#'NewLauncher startWorkspaceIcon'
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  3040
	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]
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  3041
! !
1424
0312a2765a42 new icon method format applied
tz
parents: 1423
diff changeset
  3042
1659
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3043
!NewLauncher methodsFor:'accessing'!
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3044
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3045
menuToolbar
3449
10132cfd63ec findGuiResources... now sets the receiver, if not yet set
Claus Gittinger <cg@exept.de>
parents: 3418
diff changeset
  3046
    |menu|
1659
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3047
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3048
    menu := Menu new fromLiteralArrayEncoding:(self class menuToolbar).
3449
10132cfd63ec findGuiResources... now sets the receiver, if not yet set
Claus Gittinger <cg@exept.de>
parents: 3418
diff changeset
  3049
    "/ menu receiver:self. -- now done in findGuiResources ...
1659
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3050
    menu findGuiResourcesIn:self.
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3051
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3052
    ^ menu
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3053
! !
4ec8e2f10dbb add instance method:
ca
parents: 1658
diff changeset
  3054
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3055
!NewLauncher methodsFor:'aspects'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3056
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3057
canDoTerminal
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3058
    "return a 'valueHolder', which returns true if the terminal application
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3059
     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
  3060
2130
9ce27a00b793 terminal works with windows
Claus Gittinger <cg@exept.de>
parents: 2126
diff changeset
  3061
    ^ OperatingSystem isUNIXlike 
9ce27a00b793 terminal works with windows
Claus Gittinger <cg@exept.de>
parents: 2126
diff changeset
  3062
      or:[OperatingSystem isMSWINDOWSlike]
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3063
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3064
    "Created: / 27.7.1998 / 12:47:54 / cg"
2130
9ce27a00b793 terminal works with windows
Claus Gittinger <cg@exept.de>
parents: 2126
diff changeset
  3065
    "Modified: / 28.4.1999 / 11:55:24 / cg"
1752
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3066
!
1602e27bb929 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3067
2698
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3068
chickenFunIsRunning
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3069
    "return a 'valueHolder', which returns true if the chickenFun demo is running."
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3070
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3071
    ^ [Demos::ChickenFun notNil
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3072
      and:[Demos::ChickenFun isLoaded
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3073
      and:[Demos::ChickenFun isRunning]]]
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3074
!
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3075
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3076
chickenFunRunning
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3077
    "return a 'valueHolder', which returns true if the chickenFun demo is running."
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3078
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3079
    ^ [Demos::ChickenFun notNil
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3080
      and:[Demos::ChickenFun isLoaded
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3081
      and:[Demos::ChickenFun isRunning]]]
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3082
!
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3083
2136
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3084
displaySupportsGLDrawing
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3085
    "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
  3086
     is available."
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3087
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3088
    ^ [Screen current supportsGLDrawing]
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3089
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3090
    "Modified: / 13.2.1998 / 14:26:31 / cg"
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3091
    "Created: / 3.5.1999 / 16:47:22 / cg"
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3092
!
60efb269abc2 hide 3D stuff under win32.
Claus Gittinger <cg@exept.de>
parents: 2130
diff changeset
  3093
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3094
enableDangerousMenuItemsInRemoteLauncher
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3095
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3096
    |holder|
2558
8769083c1dea *** empty log message ***
ah
parents: 2557
diff changeset
  3097
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3098
    (holder := builder bindingAt:#enableDangerousMenuItemsInRemoteLauncher) isNil ifTrue:[
2558
8769083c1dea *** empty log message ***
ah
parents: 2557
diff changeset
  3099
        builder aspectAt:#enableDangerousMenuItemsInRemoteLauncher put:(holder :=  true asValue).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3100
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3101
    ^ holder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3102
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3103
2756
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3104
isMainLauncherHolder
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3105
    ^ [ isMainLauncher ]
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3106
!
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3107
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3108
isNotMainLauncherHolder
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3109
    ^ [ isMainLauncher not ]
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3110
!
183efc156402 remote launchers show a 'close' item (instead of 'exit')
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
  3111
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3112
javaSupportPresent
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3113
    "return a 'valueHolder', which returns true if the java support
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3114
     is available."
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3115
1914
d94b77e0ef43 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1913
diff changeset
  3116
    ^ [JavaVM notNil and:[JavaVM isBehavior and:[JavaVM isLoaded]]]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3117
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3118
    "Created: / 13.2.1998 / 14:25:59 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3119
    "Modified: / 13.2.1998 / 14:26:31 / cg"
1711
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  3120
!
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  3121
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  3122
libraryBuilderAvailable
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  3123
    ^ false
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  3124
a4318a71e939 hide appBuilder & libBuilder
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
  3125
    "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
  3126
!
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  3127
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3128
packageDialogVisible
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3129
    ^ false
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3130
!
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3131
2068
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  3132
showActiveHelpMenuItem
2eea9103d515 hide 'show active help' menu item - for now.
Claus Gittinger <cg@exept.de>
parents: 2046
diff changeset
  3133
    ^ false
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3134
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3135
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3136
!NewLauncher methodsFor:'change & update'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3137
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3138
update:something with:aParameter from:changedObject
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3139
    "care for project changes & update my infoView"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3140
3492
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  3141
    (something == helpIsOn) ifTrue:[
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  3142
        self toggleActiveHelp:helpIsOn value
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  3143
    ].
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3144
    ((something == #currentProject) or:[changedObject == Project]) ifTrue: [self updateInfo]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3145
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3146
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3147
updateInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3148
    "update the infoView from the current project"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3149
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3150
    |project projectName projectDir packageName defNameSpace msg args projectInfo|
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3151
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3152
    (Project isNil or:[(project := Project current) isNil]) ifTrue:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3153
        projectName := '* none *'.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3154
        projectDir := '.'.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3155
        packageName := '* none *'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3156
    ] ifFalse:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3157
        projectName := project name.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3158
        projectDir := project directory.
2390
e76526e09798 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2384
diff changeset
  3159
        packageName := project package.
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3160
        defNameSpace := project defaultNameSpace.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3161
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3162
    defNameSpace isNil ifTrue:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3163
        defNameSpace := Smalltalk.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3164
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3165
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3166
    msg := 'Project: ''%1'' fileOut to: ''%3'' package: ''%2'''.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3167
    defNameSpace == Smalltalk ifTrue:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3168
        args := Array 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3169
                    with:projectName
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3170
                    with:packageName 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3171
                    with:(projectDir contractTo:30).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3172
    ] ifFalse:[
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3173
        msg := msg , '  nameSpace: %4'.
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3174
        args := Array 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3175
                        with:projectName
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3176
                        with:packageName 
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3177
                        with:(projectDir contractTo:30)
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3178
                        with:defNameSpace name.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3179
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3180
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3181
    self valueOfInfoLabel value:(projectInfo := resources string:msg withArgs:args).
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3182
    ^projectInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3183
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3184
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3185
!NewLauncher methodsFor:'help'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3186
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3187
defaultInfoLabel
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3188
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3189
    ^self updateInfo
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3190
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3191
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3192
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3193
!NewLauncher methodsFor:'menu configuration'!
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3194
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3195
addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3196
    "adds a menu item;
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3197
       where == #menu        - menu item is added at the end of the sub menu 'Tools',
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3198
       where == #toolbar     - menu item is added at the end of the tool bar,
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3199
       where == #menu.<name> - menu item is added at the end of the sub menu named 'name',
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3200
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3201
    position may be one of:
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3202
        ( #before <someItemPath> )
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3203
        ( #after  <someItemPath> )
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3204
        ( #first )   or #first
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3205
        ( #last )    or #last
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3206
        nil   (same as last)
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3207
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3208
     If space is true, some empty space is inserted.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3209
     This can be invoked by a classes #initialize method, to add an item
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3210
     for itself to the toolbar or menu.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3211
    "
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3212
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3213
    |what menuPanel freeMenuIndex mainMenuPanel item subViews subMenuPath 
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3214
     rest subMenu subItem nItems idx 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3215
     positionSpecOrNil itemNameOrNil before|
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3216
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3217
    positionSpecOrNil := positionSpecOrNilArg.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3218
    positionSpecOrNil isArray ifTrue:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3219
        positionSpecOrNil size > 1 ifTrue:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3220
            itemNameOrNil := positionSpecOrNil at:2.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3221
        ].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3222
        positionSpecOrNil := positionSpecOrNil at:1.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3223
    ].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3224
    before := (positionSpecOrNil == #first) or:[positionSpecOrNil == #before].
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3225
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3226
    what := where.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3227
    (what isNil or: [what = 'toolbar']) ifTrue:[
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3228
        "/ look if not already in the toolBar
2732
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3229
        menuPanel := builder namedComponents at: #menuToolbarView ifAbsent:nil.
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3230
        menuPanel isNil ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3231
            'NewLauncher [warning]: addUserTool failed - no menuPanel' infoPrintCR.
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3232
        ] ifFalse:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3233
            idx := 0.
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3234
            newItem nameKey notNil ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3235
                idx := menuPanel findFirst: [:i| i nameKey = newItem nameKey].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3236
            ].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3237
            idx == 0 ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3238
                idx := menuPanel findFirst: [:i| (newItem activeHelpKey notNil and:[ i activeHelpKey = newItem activeHelpKey])
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3239
                                                  or:[ newItem label notNil and:[ i label = newItem label] ]]
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3240
            ].
2732
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3241
            idx == 0 ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3242
                "/ ok, not there; search for the position to put the item
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3243
                nItems := menuPanel numberOfItems.
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3244
                freeMenuIndex := 0.
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3245
                itemNameOrNil notNil ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3246
                    freeMenuIndex := menuPanel findFirst: [:i| i nameKey = itemNameOrNil].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3247
                    freeMenuIndex == 0 ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3248
                        freeMenuIndex := menuPanel findFirst: [:i| i activeHelpKey = itemNameOrNil or:[i label = itemNameOrNil]].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3249
                    ]
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3250
                ].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3251
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3252
                freeMenuIndex == 0 ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3253
                    freeMenuIndex := before ifTrue:1 ifFalse:[nItems + 1].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3254
                ] ifFalse:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3255
                    before ifFalse:[freeMenuIndex := freeMenuIndex +1].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3256
                ].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3257
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3258
                space ifTrue:[
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3259
                    (menuPanel createAtIndex: freeMenuIndex) menuItem: (MenuItem labeled: '').
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3260
                    freeMenuIndex := freeMenuIndex + (before ifTrue:0 ifFalse:1).
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3261
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3262
                ].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3263
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3264
                (menuPanel createAtIndex: freeMenuIndex) menuItem:newItem.
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3265
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3266
                UserAddedToolBarItems isNil ifTrue: [UserAddedToolBarItems := Dictionary new].
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3267
                UserAddedToolBarItems at:newItem put:(AddedToolInfo new
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3268
                                                    item:newItem;
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3269
                                                    where:where;
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3270
                                                    positionSpec:positionSpecOrNilArg;
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3271
                                                    space:space;
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3272
                                                    before:before;
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3273
                                                    menuWithNewItem:menuPanel;
8fa0bf82092e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2723
diff changeset
  3274
                                                    yourself)
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3275
            ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3276
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3277
    ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3278
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3279
    subMenuPath := #( 'tools' ).
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3280
    (what notNil and:[what includes:$.]) ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3281
        subMenuPath := (what asCollectionOfSubstringsSeparatedBy:$.) copyFrom:2.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3282
        what := #menu.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3283
    ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3284
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3285
    (what isNil or: [what = 'menu']) ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3286
        mainMenuPanel := self builder menuBar.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3287
        mainMenuPanel isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3288
            subViews := self builder window subViews.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3289
            subViews notNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3290
                mainMenuPanel := subViews at:1 ifAbsent:nil.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3291
            ]
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3292
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3293
        mainMenuPanel isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3294
            'NewLauncher [warning]: addUserTool failed - no mainMenu' infoPrintCR.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3295
            ^ self
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3296
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3297
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3298
        item := mainMenuPanel itemAt:(subMenuPath first).
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3299
        item isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3300
            item := mainMenuPanel itemAt:'tools'.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3301
"/            item isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3302
"/                item := mainMenuPanel itemAt:4
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3303
"/            ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3304
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3305
        item isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3306
            'NewLauncher [warning]: addUserTool failed - no tools menu' infoPrintCR.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3307
            ^ self
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3308
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3309
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3310
        rest := subMenuPath copyFrom:2.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3311
        [rest size >= 1] whileTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3312
            subMenu := item submenu.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3313
            subMenu isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3314
                rest := nil
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3315
            ] ifFalse:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3316
                subItem := subMenu itemAt:(rest first).
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3317
                subItem isNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3318
                    rest := nil
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3319
                ] ifFalse:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3320
                    item := subItem.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3321
                    rest := rest copyFrom:2.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3322
                ]
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3323
            ]
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3324
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3325
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3326
        item isNil ifTrue:[^ self].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3327
        menuPanel := item submenu.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3328
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3329
        "/ look if not already in the menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3330
        idx := 0.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3331
        newItem nameKey notNil ifTrue:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3332
            idx := menuPanel findFirst: [:i| i nameKey = newItem nameKey].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3333
        ].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3334
        idx == 0 ifTrue:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3335
            idx := menuPanel findFirst: [:i| (newItem activeHelpKey notNil and:[ i activeHelpKey = newItem activeHelpKey])
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3336
                                              or:[ newItem label notNil and:[ i label = newItem label] ]]
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3337
        ].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3338
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3339
        idx == 0 ifTrue:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3340
            "/ ok, not there; search for the position to put the item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3341
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3342
            nItems := menuPanel numberOfItems.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3343
            freeMenuIndex := 0.
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3344
            itemNameOrNil notNil ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3345
                freeMenuIndex := menuPanel findFirst: [:i| i nameKey = itemNameOrNil].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3346
                freeMenuIndex == 0 ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3347
                    freeMenuIndex := menuPanel findFirst: [:i| i activeHelpKey = itemNameOrNil or:[i label = itemNameOrNil]].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3348
                ]
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3349
            ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3350
            freeMenuIndex == 0 ifTrue:[
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3351
                freeMenuIndex := before ifTrue:1 ifFalse:[nItems + 1].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3352
            ] ifFalse:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3353
                before ifFalse:[freeMenuIndex := freeMenuIndex +1].
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3354
            ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3355
            space ifTrue:[
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3356
                (menuPanel createAtIndex: freeMenuIndex) menuItem: (MenuItem labeled: '-').
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3357
                freeMenuIndex := freeMenuIndex + (before ifTrue:0 ifFalse:1).
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3358
            ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3359
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3360
            (menuPanel createAtIndex:freeMenuIndex) menuItem:newItem.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3361
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3362
            UserAddedMenuItems isNil ifTrue: [UserAddedMenuItems := Dictionary new].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3363
            UserAddedMenuItems at:newItem put:(AddedToolInfo new
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3364
                                                item:newItem;
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3365
                                                where:where;
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3366
                                                positionSpec:positionSpecOrNilArg;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3367
                                                space:space;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3368
                                                before:before;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3369
                                                menuWithNewItem:menuPanel;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3370
                                                yourself)
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3371
        ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3372
    ].
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3373
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3374
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3375
     UserAddedToolBarItems := nil.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3376
     UserAddedMenuItems := nil.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3377
     NewLauncher open.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3378
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3379
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3380
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3381
                        label: 'Foo';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3382
                        value: [Transcript showCR:'foo'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3383
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3384
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3385
                        nameKey: #foo)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3386
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3387
        position:#(#before 'Workspace')
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3388
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3389
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3390
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3391
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3392
                        label: 'Bar';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3393
                        value: [Transcript showCR:'bar'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3394
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3395
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3396
                        nameKey: #bar)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3397
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3398
        position:#(#after #foo)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3399
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3400
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3401
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3402
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3403
                        label: 'Baz';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3404
                        value: [Transcript showCR:'baz'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3405
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3406
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3407
                        nameKey: #baz)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3408
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3409
        position:#(#before #bar)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3410
        space:false
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3411
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3412
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3413
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3414
                        label: 'Baz2';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3415
                        value: [Transcript showCR:'baz2'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3416
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3417
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3418
                        nameKey: #baz2)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3419
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3420
        position:#(#after #bar)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3421
        space:false
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3422
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3423
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3424
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3425
                        label: 'Foo2';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3426
                        value: [Transcript showCR:'foo2'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3427
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3428
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3429
                        nameKey: #foo2)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3430
        in:'menu.classes'
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3431
        position:#last
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3432
        space:false
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3433
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3434
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3435
        addMenuItem:(MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3436
                        label: 'Foo3';
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3437
                        value: [Transcript showCR:'foo3'];
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3438
                        isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3439
                        labelImage: nil;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3440
                        nameKey: #foo3)
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3441
        in:'menu.classes.special'
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3442
        position:#first
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3443
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3444
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3445
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3446
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3447
addUserTool:toolName action:actionBlock icon:iconOrNil
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3448
    "adds a menu item labeled toolName, and action and icon both to the
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3449
     sub menu 'Tools' and the tool bar.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3450
     This can be invoked by a classes #initialize method, to add an item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3451
     for itself to the toolbar.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3452
     OBSOLETE
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3453
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3454
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3455
    self 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3456
        addUserTool:toolName 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3457
        action:actionBlock 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3458
        in:nil 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3459
        icon:iconOrNil 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3460
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3461
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3462
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3463
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3464
        addUserTool:'Foo' 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3465
        action:[Transcript showCR:'foo'] 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3466
        icon:nil
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3467
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3468
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3469
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3470
addUserTool:toolName action:actionBlock in:where after:afterOrNil icon:icon space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3471
    "adds a menu item labeled toolName, and actionBlock and icon;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3472
       where == #menu        - menu item is added at the end of the sub menu 'Tools',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3473
       where == #toolbar     - menu item is added at the end of the tool bar,
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3474
       where == #menu.<name> - menu item is added at the end of the sub menu named 'name',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3475
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3476
     If space is true, some empty space is inserted.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3477
     This can be invoked by a classes #initialize method, to add an item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3478
     for itself to the toolbar or menu.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3479
     OBSOLETE
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3480
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3481
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3482
    ^ self
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3483
        addUserTool:toolName action:actionBlock in:where position:afterOrNil before:false icon:icon space:space
2691
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3484
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3485
    "
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3486
     Transcript topView application
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3487
        addUserTool:'Foo' 
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3488
        action:[Transcript showCR:'foo']
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3489
        in:#menu
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3490
        icon:nil
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3491
        space:false
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3492
    "
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3493
    "
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3494
     Transcript topView application
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3495
        addUserTool:'Bar' 
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3496
        action:[Transcript showCR:'bar']
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3497
        in:#menu
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3498
        icon:nil
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3499
        space:false
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3500
    "
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3501
!
040f58fe3115 allow addUserTool-before some other item;
Claus Gittinger <cg@exept.de>
parents: 2680
diff changeset
  3502
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3503
addUserTool:toolName action:actionBlock in:where before:afterOrNil icon:icon space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3504
    "adds a menu item labeled toolName, and actionBlock and icon;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3505
       where == #menu        - menu item is added at the end of the sub menu 'Tools',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3506
       where == #toolbar     - menu item is added at the end of the tool bar,
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3507
       where == #menu.<name> - menu item is added at the end of the sub menu named 'name',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3508
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3509
     If space is true, some empty space is inserted.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3510
     This can be invoked by a classes #initialize method, to add an item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3511
     for itself to the toolbar or menu.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3512
     OBSOLETE
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3513
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3514
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3515
    ^ self
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3516
        addUserTool:toolName action:actionBlock in:where position:afterOrNil before:true icon:icon space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3517
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3518
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3519
addUserTool:toolName action:actionBlock in:what icon:icon space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3520
    "adds a menu item labeled toolName, and actionBlock and icon;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3521
     for what == #menu    menu item is added at the end of the sub menu 'Tools',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3522
     for what == #toolbar menu item is added at the end of the tool bar,
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3523
     If space is true, some empty space is inserted.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3524
     This can be invoked by a classes #initialize method, to add an item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3525
     for itself to the toolbar or menu.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3526
     OBSOLETE
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3527
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3528
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3529
    ^ self
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3530
        addUserTool:toolName 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3531
        action:actionBlock 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3532
        in:what 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3533
        after:nil 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3534
        icon:icon 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3535
        space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3536
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3537
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3538
     UserAddedTools := nil.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3539
     NewLauncher open.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3540
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3541
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3542
        addUserTool:'Foo' 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3543
        action:[Transcript showCR:'foo']
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3544
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3545
        icon:nil
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3546
        space:false
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3547
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3548
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3549
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3550
        addUserTool:'Bar' 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3551
        action:[Transcript showCR:'bar']
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3552
        in:#menu
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3553
        icon:nil
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3554
        space:true
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3555
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3556
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3557
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3558
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3559
addUserTool:toolName action:actionBlock in:where position:itemNameOrNil before:before icon:icon space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3560
    "adds a menu item labeled toolName, and actionBlock and icon;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3561
       where == #menu        - menu item is added at the end of the sub menu 'Tools',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3562
       where == #toolbar     - menu item is added at the end of the tool bar,
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3563
       where == #menu.<name> - menu item is added at the end of the sub menu named 'name',
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3564
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3565
     If space is true, some empty space is inserted.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3566
     This can be invoked by a classes #initialize method, to add an item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3567
     for itself to the toolbar or menu.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3568
     OBSOLETE
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3569
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3570
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3571
    |newItem positionSpecOrNilArg|
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3572
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3573
    newItem := (MenuItem new 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3574
                    label: toolName;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3575
                    value: actionBlock;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3576
                    isButton: false;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3577
                    labelImage: icon;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3578
                    nameKey: toolName asSymbol;
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3579
                    activeHelpKey: toolName asSymbol).
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3580
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3581
    itemNameOrNil isNil ifTrue:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3582
        positionSpecOrNilArg := before ifTrue:[#first] ifFalse:[#last].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3583
    ] ifFalse:[
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3584
        positionSpecOrNilArg := before ifTrue:[#before] ifFalse:[#after].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3585
        positionSpecOrNilArg := Array with:itemNameOrNil with:positionSpecOrNilArg.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3586
    ].
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3587
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3588
    ^ self addMenuItem:newItem in:where position:positionSpecOrNilArg space:space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3589
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3590
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3591
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3592
removeUserTool:toolNameOrMenuItem
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3593
    "removes a menu item labeled toolName
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3594
     This can be invoked by a classes #deinitialize method, 
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3595
     to remove its item from the toolbar or menu.
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3596
    "
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3597
    self class removeUserTool:toolNameOrMenuItem
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3598
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3599
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3600
removeUserTool:toolNameOrMenuItem from:addedToolsCollection
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3601
    "removes a menu item labeled toolName
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3602
     This can be invoked by a classes #deinitialize method, 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3603
     to remove its item from the toolbar or menu.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3604
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3605
2722
8c77412ea421 correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2721
diff changeset
  3606
    self class removeUserTool:toolNameOrMenuItem from:addedToolsCollection
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3607
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  3608
    "
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  3609
     Transcript topView application
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  3610
        removeUserTool:'Bar' 
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  3611
    "
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3612
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3613
     Transcript topView application
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3614
        removeUserTool:'Foo' 
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3615
    "
2010
7d2782a4fba1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2009
diff changeset
  3616
2671
5613142d8f5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2667
diff changeset
  3617
!
5613142d8f5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2667
diff changeset
  3618
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3619
userAddedMenuItems
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3620
    "return a dictionary of user-added menu item infos.
2671
5613142d8f5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2667
diff changeset
  3621
    "
5613142d8f5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2667
diff changeset
  3622
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3623
    ^ UserAddedMenuItems ? #()
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3624
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3625
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3626
!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3627
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3628
userAddedToolBarItems
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3629
    "return a dictionary of user-added toolBar item infos.
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3630
    "
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3631
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  3632
    ^ UserAddedToolBarItems ? #()
2671
5613142d8f5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2667
diff changeset
  3633
5613142d8f5b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2667
diff changeset
  3634
2009
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3635
! !
94a7d6270775 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
  3636
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3637
!NewLauncher methodsFor:'private'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3638
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3639
menuClassHistory
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3640
    "returns a sub menu on the history of the classes"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3641
3133
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3642
    |menu classHistory|
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3643
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3644
    SystemBrowser checkClassHistory.
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3645
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3646
    classHistory := SystemBrowser classHistory.
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  3647
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3648
    menu := Menu new receiver: self.
3136
fb029708f890 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3133
diff changeset
  3649
    menu addItemGroup: 
fb029708f890 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3133
diff changeset
  3650
        (classHistory collect:[:histEntry|
3133
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3651
            MenuItem new 
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3652
                label: (histEntry className ); 
3139
0d24a253d4f6 UserPreference access
Claus Gittinger <cg@exept.de>
parents: 3136
diff changeset
  3653
                value: [UserPreferences systemBrowserClass openInClass:histEntry theClass selector:histEntry selector]; 
3133
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3654
                activeHelpKey: #classesSystemBrowserOnClass
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3655
        ]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3656
    ).
3133
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3657
    classHistory notEmpty ifTrue:[
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3658
        menu addItem: (MenuItem new 
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3659
                            label: 'Empty History'; 
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3660
                            value: [classHistory removeAll]; 
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3661
                            translateLabel: true;
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3662
                            enabled:(classHistory notEmpty);
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3663
                            activeHelpKey: #historyEmptyMenu).
517dcb6a296b history stuff refactored (common between old and new browser)
Claus Gittinger <cg@exept.de>
parents: 3122
diff changeset
  3664
    ].
1652
c12aa281d822 also translate the Empty-History menu item.
Claus Gittinger <cg@exept.de>
parents: 1651
diff changeset
  3665
    menu findGuiResourcesIn:self.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3666
    ^menu
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3667
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  3668
    "Modified: / 8.7.1998 / 00:59:50 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3669
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3670
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3671
!NewLauncher methodsFor:'private - settings callBacks'!
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3672
1603
6a49f338be82 need compatible reopen protocol.
Claus Gittinger <cg@exept.de>
parents: 1600
diff changeset
  3673
reopenLauncher
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3674
    "reopen a new launcher.
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3675
     for now (since style & language settings currently do
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3676
     not affect living views ...)
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3677
     WARNING: bad design: Message known in LauncherDialogs"
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3678
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3679
    |newLauncher wasShowingHelp|
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  3680
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  3681
    wasShowingHelp := self showingHelp.
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3682
    newLauncher := super reopenLauncher.
1800
fd190328277d pass showingHelp down to new launcher when reopening.
Claus Gittinger <cg@exept.de>
parents: 1794
diff changeset
  3683
    newLauncher showingHelp:wasShowingHelp.
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2003
diff changeset
  3684
    ^ newLauncher
1600
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3685
! !
1d8cd3ef47d0 use settingsDialogs from Launcher
Claus Gittinger <cg@exept.de>
parents: 1593
diff changeset
  3686
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3687
!NewLauncher methodsFor:'queries'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3688
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3689
preferredExtent
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3690
3284
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3691
    ^super preferredExtent max: Screen current extent // (2.5 @ 3.5)
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3692
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3693
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3694
!NewLauncher methodsFor:'startup / release'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3695
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3696
allButOpenInterface:anInterface
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3697
    "sent by my superclass to open up my interface"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3698
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3699
    "/ if there is already a transcript on my device,
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3700
    "/ I am a slave launcher with limited functionality.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3701
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3702
    Transcript notNil ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3703
        Transcript ~~ Stderr ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3704
            isMainLauncher := (Transcript graphicsDevice == device).
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3705
            self enableDangerousMenuItemsInRemoteLauncher value: isMainLauncher.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3706
        ] ifFalse:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3707
            isMainLauncher := true
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3708
        ]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3709
    ] ifFalse:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3710
        isMainLauncher := true
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3711
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3712
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3713
    super allButOpenInterface:anInterface.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3714
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3715
    self setupTranscript; updateInfo.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3716
    Project notNil ifTrue: [Project addDependent:self].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3717
    self class openLaunchers add: self.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3718
    ^ builder
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3719
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3720
    "Created: / 5.2.1998 / 19:45:07 / cg"
1710
1b5921fd12e2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1708
diff changeset
  3721
    "Modified: / 20.6.1998 / 14:53:58 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3722
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3723
2027
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  3724
postBuildWith:aBuilder
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  3725
    "setup my preferred size"
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  3726
3284
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3727
    |win hMin|
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3728
2027
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  3729
    super postBuildWith:aBuilder.
3284
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3730
    win := aBuilder window .
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3731
    win extent:(self preferredExtent).
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3732
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3733
"/ TODO: somehow find out how much decoration is added by the window manager ...
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3734
"/
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3735
"/    hMin := aBuilder menuBar height
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3736
"/            + (aBuilder componentAt:#menuToolbarView) height.
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3737
    hMin := 100.
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3738
d37bc629ea78 min height
Claus Gittinger <cg@exept.de>
parents: 3255
diff changeset
  3739
    win minExtent:( win minExtent x @ hMin ).
2027
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  3740
!
9b32f13d5a48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2024
diff changeset
  3741
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3742
postOpenWith:aBuilder
2723
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3743
    |toolInfo|
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  3744
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  3745
    "/ increase my priority"
2344
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  3746
"/    self windowGroup process priority:(Processor userSchedulingPriority + 1).
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  3747
    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  3748
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  3749
    "/ add user tools
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3750
    UserAddedToolBarItems notNil ifTrue:[
2723
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3751
        toolInfo := UserAddedToolBarItems.
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3752
        UserAddedToolBarItems := nil.
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3753
        toolInfo do:[:toolInfo| 
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3754
            self 
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3755
                addMenuItem:toolInfo item 
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3756
                in:toolInfo where
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3757
                position:toolInfo positionSpec
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3758
                space:toolInfo space
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3759
        ].
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3760
    ].
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3761
    UserAddedMenuItems notNil ifTrue:[
2723
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3762
        toolInfo := UserAddedMenuItems.
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3763
        UserAddedMenuItems := nil.
cb156fc80126 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2722
diff changeset
  3764
        toolInfo do:[:toolInfo| 
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3765
            self 
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3766
                addMenuItem:toolInfo item 
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3767
                in:toolInfo where
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3768
                position:toolInfo positionSpec
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  3769
                space:toolInfo space
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3770
        ].
1767
95c3a43c6ba5 'add user tools' features added
tz
parents: 1759
diff changeset
  3771
    ].
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  3772
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3773
    super postOpenWith:aBuilder.
2148
f917bf20fcf5 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2136
diff changeset
  3774
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  3775
    "/ set the time-block
2384
4901c54efb0a Show clock only if selected by UserPreferences
Stefan Vogel <sv@exept.de>
parents: 2371
diff changeset
  3776
    UserPreferences current showClockInLauncher ifTrue:[
4901c54efb0a Show clock only if selected by UserPreferences
Stefan Vogel <sv@exept.de>
parents: 2371
diff changeset
  3777
        self startClock
4901c54efb0a Show clock only if selected by UserPreferences
Stefan Vogel <sv@exept.de>
parents: 2371
diff changeset
  3778
    ].
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  3779
2523
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3780
    "/ change my minimum height ...
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3781
    self window minExtent:(self window minExtent x
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3782
                           @
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3783
                           (self window minExtent y
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3784
                            "/ + (builder componentAt:'infoBarSubSpec') height
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3785
                            - 12
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3786
                           )
b29e3783a522 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2514
diff changeset
  3787
                          ).
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3788
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3789
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3790
reOpen
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3791
    "reopen a new launcher.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3792
     for now (since style & language settings currently do
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3793
     not affect living views ...)"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3794
1782
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3795
    self reopenLauncher "/ WARNING: bad design: Message known in LauncherDialogs
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3796
4b1d6025c814 renamed SettingsDialogs to LauncherDialogs.
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
  3797
    "Modified: / 31.7.1998 / 22:48:12 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3798
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3799
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3800
requestForWindowClose
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3801
    |answer|
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3802
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3803
    isMainLauncher ifFalse:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3804
        "/ remote launchers may not finish ST/X
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3805
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3806
        answer := Dialog 
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3807
                    confirmWithCancel:(resources string:'Really close %1 (slave)?' with:self class name)
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3808
                    labels:(resources array:#('Cancel' 'Close'))
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3809
                    default:1.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3810
        answer isNil ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3811
            "/ cancel
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3812
            ^ false
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3813
        ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3814
        ^ true
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3815
    ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3816
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3817
    ^ super requestForWindowClose
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3818
!
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3819
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3820
restarted
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3821
    "image restart - since WindowGroup recreates the process with
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3822
     the default priority, we have to raise the prio again.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3823
     Mhmh - this looks like a bug to me ...
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3824
     Also, the cursor (which was stored as a write or waitCursor) must
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3825
     be reset to normal."
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3826
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3827
    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
2566
f5c27e91ff26 after restart from image, do not set preferred extent
ca
parents: 2558
diff changeset
  3828
"/    builder window extent: self preferredExtent.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3829
    super restarted
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3830
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3831
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3832
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3833
setupTranscript 
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3834
    "create the transcript view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3835
2046
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  3836
    |launcher oldLauncherClass|
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3837
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3838
    "/ check if this is an additional launcher on a remote display.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3839
    "/ if so, do not close the real launcher.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3840
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3841
    (Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3842
        isMainLauncher ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3843
            launcher := Transcript topView application
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3844
        ] ifFalse:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3845
            launcher := self class current.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3846
        ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3847
2332
d1415aabd5c8 setupTranscript
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
  3848
        (launcher notNil and:[launcher ~~ self]) ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3849
            launcher window graphicsDevice == device ifTrue:[
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3850
                OpenLaunchers notNil ifTrue:[
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  3851
                    OpenLaunchers remove:launcher ifAbsent:nil.
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3852
                ].
2046
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  3853
                ((oldLauncherClass := Smalltalk at:#Launcher) notNil 
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  3854
                and:[oldLauncherClass isLoaded]) ifTrue: [
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  3855
                    oldLauncherClass openLaunchers remove:launcher ifAbsent:nil
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3856
                ].
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3857
                launcher close
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3858
            ]
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3859
        ]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3860
    ].
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3861
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3862
    transcript := (builder componentAt: #transcriptView) subViews first.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3863
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3864
    isMainLauncher ifTrue:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3865
        transcript beTranscript.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3866
    ] ifFalse:[
2039
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3867
        transcript showCR:'**************** Notice ***********************'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3868
        transcript showCR:'**       this is NOT the Transcript          **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3869
        transcript showCR:'** The real Transcript is on the main screen **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3870
        transcript showCR:'**                                           **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3871
        transcript showCR:'** Menus affecting common state are disabled **'.
36d0e63ac141 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2038
diff changeset
  3872
        transcript showCR:'***********************************************'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3873
    ]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3874
2046
f5c6ce56743a avoid accidential autoloading of old Launcher class
Claus Gittinger <cg@exept.de>
parents: 2041
diff changeset
  3875
    "Modified: / 5.3.1999 / 18:00:36 / cg"
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3876
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3877
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3878
uninitialize
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3879
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3880
    super uninitialize.
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3881
2315
174fc1b1d68b postOpenWith and uninitialize modified
tm
parents: 2296
diff changeset
  3882
    OpenLaunchers notNil ifTrue:[OpenLaunchers remove:self ifAbsent:nil].
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3883
    Project notNil ifTrue:[Project removeDependent:self]
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3884
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3885
3368
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3886
!NewLauncher methodsFor:'user actions - classes'!
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3887
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3888
openMethodFinder
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3889
    "open the methodFinder (poerted from squeak)"
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3890
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3891
   MethodFinderWindow open
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3892
! !
c8de2dc1eb3b *** empty log message ***
james
parents: 3366
diff changeset
  3893
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3894
!NewLauncher methodsFor:'user actions - demos'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3895
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3896
openDemo:className
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3897
    "open a demo, given its name.
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3898
     Looks in both the Smalltalk- and the Demos-Namespace
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3899
     for that class."
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3900
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3901
    self openApplication:className nameSpace:Demos
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3902
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3903
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3904
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  3905
openMandelbrotDemo
2096
2111773968a1 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2068
diff changeset
  3906
    self openDemo:#ComplexIterationView 
1716
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  3907
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  3908
    "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
  3909
!
a6cbe3d33ca2 disable class-history menu item, if there is no history;
Claus Gittinger <cg@exept.de>
parents: 1711
diff changeset
  3910
2483
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3911
startPingPong2
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3912
    "opens a 2-user PingPong game"
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3913
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3914
    self openApplication:'PingPongGame' nameSpace:Games with:#open2PlayerGame
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3915
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3916
    "Modified: / 13.12.1999 / 22:24:15 / cg"
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3917
!
8fecc4442a91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2462
diff changeset
  3918
2502
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3919
startReversi
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3920
    "opens a reversi game (java)"
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3921
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3922
    self openApplication:'JavaAppletDemo3' nameSpace:CodingExamples_GUI
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3923
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3924
    "Modified: / 13.12.1999 / 22:24:15 / cg"
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3925
!
0a1eec9feab0 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2494
diff changeset
  3926
2698
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3927
startStopDemo:className
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3928
    "start/stop a demo, given its name.
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3929
     Looks in both the Smalltalk- and the Demos-Namespace
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3930
     for that class."
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3931
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3932
    |cls|
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3933
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3934
    cls := self findApplicationClass:className nameSpace:Demos.
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3935
    cls isNil ifTrue:[
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3936
        ^ self
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3937
    ].
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3938
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3939
    Autoload autoloadFailedSignal handle:[:ex |
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3940
        self warn:(resources string:'Sorry, the %1 class seems to be not available.' with:cls name)
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3941
    ] do:[
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3942
        self withWaitCursorDo:[
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3943
            cls isRunning ifTrue:[
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3944
                cls stop
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3945
            ] ifFalse:[
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3946
                cls start
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3947
            ]
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3948
        ]
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3949
    ]
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3950
!
c6ef17fe725e shortCut keys for browser and workspace
Claus Gittinger <cg@exept.de>
parents: 2693
diff changeset
  3951
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3952
startTicTacToe2
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3953
    "opens a 2-user ticTacToe game"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3954
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3955
    self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3956
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3957
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  3958
!NewLauncher methodsFor:'user actions - file'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3959
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3960
exit
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3961
    "saves a snapshot image and exits, after asking for a fileName"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3962
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3963
    |fileName saveAndExit box|
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3964
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  3965
    box := EnterBox2 title:(resources string:'Save image before exiting?')
2903
0bc17f4c4880 exit dialog default is to save an image
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
  3966
        okText:(resources string:'Exit') 
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3967
        abortText:(resources string:'Cancel')
2903
0bc17f4c4880 exit dialog default is to save an image
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
  3968
        action:[:str | saveAndExit := false].
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  3969
    box label: (resources string:'Exiting ST/X').
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3970
    box initialText: ObjectMemory nameForSnapshot.
2903
0bc17f4c4880 exit dialog default is to save an image
Claus Gittinger <cg@exept.de>
parents: 2883
diff changeset
  3971
    box okText2:(resources string:'Save & Exit') action2:[:str|fileName := str. saveAndExit := true].
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3972
    box showAtPointer.
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3973
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3974
    saveAndExit notNil ifTrue:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3975
        saveAndExit ifTrue:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3976
            self saveImageAs: fileName
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3977
        ].
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3978
        Smalltalk exit
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3979
    ]
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3980
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  3981
    "Modified: / 23.4.1998 / 18:37:46 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3982
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3983
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3984
saveImage
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3985
    "save image"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3986
2003
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3987
    self withCursor:Cursor write do:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3988
        (ObjectMemory snapShotOn:ObjectMemory nameForSnapshot) ifFalse:[
b44e8c80ec07 refactored with Launcher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1998
diff changeset
  3989
            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
  3990
        ]
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3991
    ].
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3992
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3993
!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3994
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3995
saveImageAs
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3996
    "save image, after asking for a file name"
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3997
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  3998
    self saveImageAs: (
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  3999
	FileSelectionBrowser 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4000
	    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
  4001
	    fileName: ObjectMemory nameForSnapshot
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4002
	    inDirectory: Filename currentDirectory name
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4003
	    withFileFilters: #('*.img'))
1593
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  4004
65e25bbcda63 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  4005
    "Modified: / 23.4.1998 / 18:25:17 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4006
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4007
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4008
!NewLauncher methodsFor:'user actions - help'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4009
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  4010
activeHelp
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  4011
2344
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  4012
    helpIsOn isNil ifTrue:[
3492
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  4013
        helpIsOn := false asValue.
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  4014
        helpIsOn addDependent:self.
2344
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  4015
    ].
Claus Gittinger <cg@exept.de>
parents: 2332
diff changeset
  4016
    ^ helpIsOn
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  4017
!
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  4018
3492
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  4019
toggleFlyByHelp:aBoolean
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  4020
    "turn on/off active help"
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  4021
3492
6650c1ccf7e5 flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 3491
diff changeset
  4022
    FlyByHelp notNil ifTrue:[
3491
9a909a3db554 also toggle flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3489
diff changeset
  4023
        aBoolean ifTrue:[
9a909a3db554 also toggle flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3489
diff changeset
  4024
            FlyByHelp start.
9a909a3db554 also toggle flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3489
diff changeset
  4025
        ] ifFalse:[
9a909a3db554 also toggle flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3489
diff changeset
  4026
            FlyByHelp stop.
9a909a3db554 also toggle flyByHelp
Claus Gittinger <cg@exept.de>
parents: 3489
diff changeset
  4027
        ].
1429
aa6ce97097dc NewLauncher has got its own (global) active help
tz
parents: 1424
diff changeset
  4028
    ].
1411
da20bf21fb13 first offical release
tz
parents: 1406
diff changeset
  4029
1842
b4bd3ccd2f3d fixed active help (must be a value holder)
Claus Gittinger <cg@exept.de>
parents: 1841
diff changeset
  4030
    "Modified: / 18.8.1998 / 16:06:27 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4031
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4032
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4033
!NewLauncher methodsFor:'user actions - system'!
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4034
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4035
initJavaVM
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4036
    JavaVM initializeVM
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4037
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4038
    "Created: / 9.2.1998 / 12:06:07 / cg"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4039
!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4040
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4041
startLatencyMonitor
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4042
    "open an interruptLatencyMonitor view"
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4043
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4044
    InterruptLatencyMonitor notNil ifTrue:[
2630
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4045
        Autoload autoloadFailedSignal catch:[
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4046
            InterruptLatencyMonitor autoload.
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4047
        ].
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4048
        InterruptLatencyMonitor isLoaded ifTrue:[
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4049
            InterruptLatencyMonitor open.
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4050
            ^ self.
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4051
        ]
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4052
    ].
2630
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4053
    self warn:'Sorry - the irq latency monitor is not available
66627576afc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2620
diff changeset
  4054
in this release'.
1544
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4055
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4056
! !
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4057
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4058
!NewLauncher methodsFor:'user actions - windows'!
8f3dedc772af menu rearranged
tz
parents: 1538
diff changeset
  4059
1928
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  4060
redrawAllWindows
2864
d7c80fafa470 redrawAllWindows is now a display function
Claus Gittinger <cg@exept.de>
parents: 2854
diff changeset
  4061
    device redrawAllWindows.
1928
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  4062
!
4daa65ec0055 added windows->redrawAll
Claus Gittinger <cg@exept.de>
parents: 1927
diff changeset
  4063
1847
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4064
widgetHardcopy
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4065
    "after a second (to allow redraw of views under menu ...),
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4066
     let user specify a widget and save its contents."
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4067
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4068
    Processor 
1869
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4069
	addTimedBlock:[
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4070
			|v|
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4071
			(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
  4072
			    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
  4073
			]
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4074
		      ] 
f975e008bcbc ask if launcher close or smalltalk exit is wanted when
Claus Gittinger <cg@exept.de>
parents: 1864
diff changeset
  4075
	afterSeconds:1
1847
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4076
9dec36251b89 added widget hardCopy
Claus Gittinger <cg@exept.de>
parents: 1843
diff changeset
  4077
    "Created: / 21.8.1998 / 20:44:12 / cg"
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4078
! !
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4079
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4080
!NewLauncher::AddedToolInfo methodsFor:'accessing'!
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4081
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4082
before
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4083
    "return the value of the instance variable 'before' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4084
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4085
    ^ before
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4086
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4087
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4088
before:something
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4089
    "set the value of the instance variable 'before' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4090
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4091
    before := something.
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4092
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4093
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4094
item
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4095
    "return the value of the instance variable 'item' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4096
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4097
    ^ item
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4098
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4099
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4100
item:something
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4101
    "set the value of the instance variable 'item' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4102
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4103
    item := something.
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4104
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4105
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4106
menuWithNewItem
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4107
    "return the value of the instance variable 'menuWithNewItem' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4108
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4109
    ^ menuWithNewItem
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4110
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4111
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4112
menuWithNewItem:something
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4113
    "set the value of the instance variable 'menuWithNewItem' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4114
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4115
    menuWithNewItem := something.
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4116
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4117
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4118
positionSpec
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4119
    "return the value of the instance variable 'positionSpec' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4120
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4121
    ^ positionSpec
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4122
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4123
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4124
positionSpec:something
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4125
    "set the value of the instance variable 'positionSpec' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4126
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4127
    positionSpec := something.
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4128
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4129
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4130
space
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4131
    "return the value of the instance variable 'space' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4132
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4133
    ^ space
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4134
!
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4135
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4136
space:something
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4137
    "set the value of the instance variable 'space' (automatically generated)"
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4138
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4139
    space := something.
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4140
!
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4141
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4142
where
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4143
    "return the value of the instance variable 'where' (automatically generated)"
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4144
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4145
    ^ where
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4146
!
2721
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4147
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4148
where:something
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4149
    "set the value of the instance variable 'where' (automatically generated)"
405c3cdbd7ea correctly remember userAddedTools for later reconstruction;
Claus Gittinger <cg@exept.de>
parents: 2713
diff changeset
  4150
2854
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4151
    where := something.
ac97ea47bb08 browse changed classes added
Claus Gittinger <cg@exept.de>
parents: 2810
diff changeset
  4152
! !
2712
9e861058daab addUserTool* is obsolete now;
Claus Gittinger <cg@exept.de>
parents: 2708
diff changeset
  4153
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4154
!NewLauncher class methodsFor:'documentation'!
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4155
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4156
version
3622
5c2142171a06 remove seldom needed buttons (cls-history and garbage collect)
Claus Gittinger <cg@exept.de>
parents: 3611
diff changeset
  4157
    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.248 2002-03-26 14:19:16 cg Exp $'
1406
60e6a7d07c93 initial checkin
tz
parents:
diff changeset
  4158
! !