Launcher.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 19 Jul 2017 09:42:32 +0200
branchjv
changeset 17619 edb119820fcb
parent 15566 184cea584be5
permissions -rw-r--r--
Issue #154: Set window style using `#beToolWindow` to indicate that the minirunner window is kind of support tool rather than some X11 specific code (which does not work on Windows of course) See https://swing.fit.cvut.cz/projects/stx-jv/ticket/154
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
88
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     1
"
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     2
 COPYRIGHT (c) 1995 by Claus Gittinger
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
     3
	      All Rights Reserved
88
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     4
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     5
 This software is furnished under a license and may be used
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     6
 only in accordance with the terms of that license and with the
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     8
 be provided or otherwise made available to, or used by, any
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
     9
 other person.  No title to or ownership of the software is
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    10
 hereby transferred.
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    11
"
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    12
"{ Package: 'stx:libtool' }"
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
    13
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    14
"{ NameSpace: Smalltalk }"
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
    15
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    16
AbstractLauncherApplication subclass:#Launcher
2005
c227faa4616b more refactoring (NewLauncher <-> Launcher)
Claus Gittinger <cg@exept.de>
parents: 2002
diff changeset
    17
	instanceVariableNames:'myMenu buttonPanel infoView projectInfoHolder helpIsOn
1199
a348a5f71105 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1198
diff changeset
    18
		isMainLauncher'
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    19
	classVariableNames:'CachedAboutIcon'
1199
a348a5f71105 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1198
diff changeset
    20
	poolDictionaries:''
a348a5f71105 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1198
diff changeset
    21
	category:'Interface-Smalltalk'
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
    22
!
11b4ce85104e Initial revision
claus
parents:
diff changeset
    23
760
39e3f920b233 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
    24
!Launcher class methodsFor:'documentation'!
88
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    25
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    26
copyright
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    27
"
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    28
 COPYRIGHT (c) 1995 by Claus Gittinger
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    29
	      All Rights Reserved
88
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    30
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    31
 This software is furnished under a license and may be used
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    32
 only in accordance with the terms of that license and with the
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    33
 inclusion of the above copyright notice.   This software may not
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    34
 be provided or otherwise made available to, or used by, any
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    35
 other person.  No title to or ownership of the software is
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    36
 hereby transferred.
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    37
"
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    38
!
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    39
105
claus
parents: 104
diff changeset
    40
customization
claus
parents: 104
diff changeset
    41
"
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
    42
    Of course, it is possible to change the Launcher class itself
105
claus
parents: 104
diff changeset
    43
    as appropriate, however, we suggest you create a subclass (say MyLauncher),
524
72d2fa78dd49 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 521
diff changeset
    44
    define it as autoloaded in the patches file, and redefine some methods
72d2fa78dd49 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 521
diff changeset
    45
    in that class. 
72d2fa78dd49 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 521
diff changeset
    46
    That way, your changes are easier to reintroduce in case of an ST/X upgrade.
105
claus
parents: 104
diff changeset
    47
claus
parents: 104
diff changeset
    48
claus
parents: 104
diff changeset
    49
    adding more buttons to the button-panel:
claus
parents: 104
diff changeset
    50
claus
parents: 104
diff changeset
    51
      see the method #buttonPanelSpec;
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    52
	it defines a list of selectors and icons, which is used by 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    53
	#setupButtonPanelIn:. 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    54
	There, for each entry, a button with that icon is created, 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    55
	which sends a selector-message to the launcher.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    56
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    57
	Add entries to that list, and define appropriate methods.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    58
	For example, to add a button which opens a drawTool,
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    59
	change #buttonPanelSpec to:
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    60
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    61
	buttonPanelSpec
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    62
	    ^ #(
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    63
		#(startSystemBrowser  'SBrowser32x32.xbm')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    64
		#(startFileBrowser    'FBrowser32x32.xbm')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    65
		#(nil nil)
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    66
		#(startChangesBrowser 'CBrowser32x32.xbm')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    67
		#(nil nil)
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    68
		#(nil nil)
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    69
		#(startDrawTool       'DrawTool.xbm')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    70
	     )
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    71
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    72
	the panel adjusts its height as appropriate - you may want to
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    73
	create new (small) icons for a good look.
105
claus
parents: 104
diff changeset
    74
claus
parents: 104
diff changeset
    75
    adding an entry to a menu:
claus
parents: 104
diff changeset
    76
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    77
	see the #setupMenu method; either add another top-menu, or
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    78
	add entries to an existing menu.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    79
	All menu setup has been extracted into separate init-methods,
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    80
	so there is often only a need to redefine one of those
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    81
	(for example, to add your own demos, only redefine setupDemoMenu).
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    82
	To add a new master-item with its own pullDown, redefine setupMainMenu
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
    83
	to include another selector and add the correspoonding menu there.
88
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
    84
"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    85
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    86
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    87
documentation
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
    88
"
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    89
    WARNING:
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    90
        This is a old part of the ST/X system, and no longer maintained.
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    91
        This used to be the launcher some time ago (in the late 90s).
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    92
        It has been obsoleted by the NewLauncher, which provides
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    93
        a similar look, but is completely implemented using the
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    94
        new GUI framework.
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    95
        (this older launcher is hand-written)
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    96
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
    97
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    98
    This combines the old Launcher's menu and Transcript into one view. 
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
    99
    (you no longer have to move two views around all the time...).
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   100
1615
0e40fea291fa comment
Claus Gittinger <cg@exept.de>
parents: 1614
diff changeset
   101
    Also, this is the first app to make use of the new compatibility framework;
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   102
    you will notice, that this is a subclass of ApplicationModel.
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
   103
    New applications will no longer be built as subclasses of StandardSystemView.
511
1e00846b87e5 documentation
Claus Gittinger <cg@exept.de>
parents: 505
diff changeset
   104
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   105
    See #customization for information regarding your own private
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   106
    launcher functions.
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   107
954
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   108
    Notice:
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   109
        Since there can only be one SystemTranscript, opening a new launcher
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   110
        will automatically close the current one (except for a remote launcher,
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   111
        opened on another display).
954
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   112
1615
0e40fea291fa comment
Claus Gittinger <cg@exept.de>
parents: 1614
diff changeset
   113
    Notice2:
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   114
        By the time you read this, this 'new launcher' is already old again;
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   115
        we have written a completely new newLauncher, using the GUI painter tools,
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   116
        which provides the same functionality, but has all of its GUI, menus and
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   117
        icon bitmaps been generated using convenient tools.
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   118
        Look into NewLauncher if you need coding examples on GUI programming.
1615
0e40fea291fa comment
Claus Gittinger <cg@exept.de>
parents: 1614
diff changeset
   119
511
1e00846b87e5 documentation
Claus Gittinger <cg@exept.de>
parents: 505
diff changeset
   120
    [author:]
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   121
        Claus Gittinger
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   122
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   123
    [see also:]
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   124
        Examples_misc::MyLauncher
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   125
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   126
    [start with:]
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   127
        Launcher open
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   128
"
954
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   129
!
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   130
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   131
examples
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   132
"
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   133
    As ST/X can handle multiple screens, there is nothing (except fear ;-)
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   134
    from preventing you to work with your friend in the same image.
965
b363c2d24c26 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
   135
    To do this, evaluate (replace localhost by whatever):
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   136
									[exBegin]
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   137
	|display2|
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   138
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   139
	display2 := XWorkstation new initializeFor:'localhost:0'.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   140
	display2 isNil ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   141
	    self warn:'cannot connect.'.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   142
	] ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   143
	    display2 startDispatch.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   144
	    display2 keyboardMap:(Display keyboardMap).
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   145
	    Launcher openOnDevice:display2.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   146
	]
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   147
									[exEnd]
954
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   148
    But you should be somewhat careful, the other guy may change things so
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   149
    that you are blocked (start high prio processes, change classes etc.)
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   150
    Anyway, a nice demo ....
664cb25ee914 added documentation on remoteLauncher;
Claus Gittinger <cg@exept.de>
parents: 951
diff changeset
   151
"
88
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
   152
! !
a38a2e87687b *** empty log message ***
claus
parents: 86
diff changeset
   153
760
39e3f920b233 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
   154
!Launcher class methodsFor:'defaults'!
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
   155
11b4ce85104e Initial revision
claus
parents:
diff changeset
   156
aboutIcon
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   157
    "return the icon shown in the about menu-item and used
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   158
     as ST/X about icon"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   159
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
   160
    |image|
11b4ce85104e Initial revision
claus
parents:
diff changeset
   161
11b4ce85104e Initial revision
claus
parents:
diff changeset
   162
    CachedAboutIcon notNil ifTrue:[^ CachedAboutIcon].
11b4ce85104e Initial revision
claus
parents:
diff changeset
   163
11b4ce85104e Initial revision
claus
parents:
diff changeset
   164
    image := Image fromFile:'SmalltalkX.xbm'.
92
claus
parents: 91
diff changeset
   165
    image notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   166
	|green dark|
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   167
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   168
	Screen current hasColors ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   169
	    green := (Color redPercent:0 greenPercent:80 bluePercent:20) "darkened".
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   170
	    dark := Color grayPercent:10.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   171
	    image photometric:#palette.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   172
	] ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   173
	    dark := Color black.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   174
	    green := Color white.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   175
	    image photometric:#blackIs0.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   176
	].
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   177
	image colorMap:(Array with:dark with:green).
659
324b82dad016 access transcript via my local; use current screen for aboutIcon setup
Claus Gittinger <cg@exept.de>
parents: 658
diff changeset
   178
"/        Screen current depth > 2 ifTrue:[
324b82dad016 access transcript via my local; use current screen for aboutIcon setup
Claus Gittinger <cg@exept.de>
parents: 658
diff changeset
   179
"/            image := (Image implementorForDepth:Screen current depth) fromImage:image.
144
Claus Gittinger <cg@exept.de>
parents: 142
diff changeset
   180
"/        ]
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
   181
    ].
11b4ce85104e Initial revision
claus
parents:
diff changeset
   182
    CachedAboutIcon := image.
11b4ce85104e Initial revision
claus
parents:
diff changeset
   183
    ^ image
11b4ce85104e Initial revision
claus
parents:
diff changeset
   184
11b4ce85104e Initial revision
claus
parents:
diff changeset
   185
    "
92
claus
parents: 91
diff changeset
   186
     CachedAboutIcon := nil.
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   187
     Launcher aboutIcon
92
claus
parents: 91
diff changeset
   188
    "
144
Claus Gittinger <cg@exept.de>
parents: 142
diff changeset
   189
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   190
    "Modified: 9.9.1996 / 22:41:23 / stefan"
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   191
    "Modified: 8.1.1997 / 15:01:30 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   192
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   193
368
16b400bb820d allow redefinition of the buttonImage size
ca
parents: 364
diff changeset
   194
buttonImageSize
490
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   195
    "images in buttonPanel are sized to this.
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   196
     Can be redefined in subclasses to return nil (no scaling)
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   197
     or any other useful size"
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   198
1357
ca8d75edb547 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1354
diff changeset
   199
    <resource: #style (#'launcher.buttonSize')>
ca8d75edb547 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1354
diff changeset
   200
ca8d75edb547 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1354
diff changeset
   201
    ^ View styleSheet at:'launcher.buttonSize' default:(32@32)
ca8d75edb547 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1354
diff changeset
   202
ca8d75edb547 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1354
diff changeset
   203
    "Modified: / 26.10.1997 / 17:07:40 / cg"
368
16b400bb820d allow redefinition of the buttonImage size
ca
parents: 364
diff changeset
   204
!
16b400bb820d allow redefinition of the buttonImage size
ca
parents: 364
diff changeset
   205
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   206
smallAboutIcon
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   207
    "return the icon shown in the about menu-item"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   208
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   209
    |image|
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   210
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   211
    image := self aboutIcon.
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   212
    image notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   213
	image := image magnifiedBy:0.4.
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   214
    ].
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   215
    ^ image
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   216
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   217
    "
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   218
     CachedAboutIcon := nil.
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   219
     Launcher aboutIcon.
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   220
     Launcher smallAboutIcon.
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   221
    "
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   222
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   223
    "Modified: 9.9.1996 / 22:42:12 / stefan"
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   224
    "Modified: 8.1.1997 / 15:02:56 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   225
! !
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   226
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   227
!Launcher methodsFor:'actions - about & help'!
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   228
1366
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   229
startLauncherHelp
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   230
    "open an HTML browser on the 'launcher-help' document"
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   231
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   232
    self showDocumentation:'help/launcher/launcher.html'
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   233
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   234
    "Modified: / 31.8.1995 / 13:11:28 / claus"
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   235
    "Modified: / 8.1.1997 / 14:41:23 / cg"
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   236
    "Created: / 31.10.1997 / 15:59:28 / cg"
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   237
!
84c1c8332530 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1361
diff changeset
   238
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   239
toggleActiveHelp:aBoolean
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   240
    "turn on/off active help"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   241
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   242
    ActiveHelp notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   243
	helpIsOn := aBoolean.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   244
	helpIsOn ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   245
	    ActiveHelp start
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   246
	] ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   247
	    ActiveHelp stop
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   248
	]
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   249
    ].
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   250
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   251
    "Modified: 8.1.1997 / 14:37:30 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   252
! !
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   253
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   254
!Launcher methodsFor:'actions - classes'!
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   255
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   256
startClassTreeView
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   257
    "open a classHierarchyTree view"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   258
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   259
    self withWaitCursorDo:[ClassTreeGraphView open]
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   260
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   261
    "Modified: 8.1.1997 / 14:48:38 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   262
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   263
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   264
startFileBrowser
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   265
    "open a fileBrowser"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   266
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   267
    self withWaitCursorDo:[FileBrowser open]
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   268
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   269
    "Modified: 8.1.1997 / 14:48:47 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   270
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   271
490
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   272
startJavaBrowser
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   273
    "open a javaBrowser (not included in the standard distribution)"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   274
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   275
    |jb|
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   276
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   277
    (jb := Smalltalk at:#JavaBrowser) notNil ifTrue:[
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   278
        self withWaitCursorDo:[jb open]
490
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   279
    ]
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   280
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   281
    "Created: 18.4.1996 / 15:55:44 / cg"
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   282
    "Modified: 8.1.1997 / 14:47:31 / cg"
490
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   283
!
b11f789fa391 java browser support
Claus Gittinger <cg@exept.de>
parents: 483
diff changeset
   284
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   285
startSystemBrowser
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   286
    "open a systemBrowser"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   287
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   288
    self withWaitCursorDo:[SystemBrowser open]
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   289
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   290
    "Modified: 8.1.1997 / 14:47:43 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   291
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   292
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   293
startWorkspace
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   294
    "open a workspace"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   295
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   296
    Workspace open
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   297
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   298
    "Modified: 8.1.1997 / 14:47:49 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   299
! !
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   300
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   301
!Launcher methodsFor:'actions - demos'!
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   302
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   303
openDemo:className
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   304
    "open a demo, given its name.
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   305
     Looks in both the Smalltalk- and the Demos-Namespace
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   306
     for that class."
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   307
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   308
    self openApplication:className nameSpace:Demos
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   309
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   310
    "Modified: 8.1.1997 / 14:51:02 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   311
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   312
1008
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   313
openGame:className
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   314
    "open a game, given its name.
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   315
     Looks in both the Smalltalk- and the Games-Namespace
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   316
     for that class."
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   317
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   318
    self openApplication:className nameSpace:Games
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   319
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   320
    "Modified: 8.1.1997 / 14:51:18 / cg"
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   321
    "Created: 28.1.1997 / 00:49:21 / cg"
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   322
!
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   323
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   324
startTetris
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   325
    "opens a tetris game"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   326
1008
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   327
    self openGame:'Tetris'
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   328
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   329
    "Modified: 28.1.1997 / 00:49:40 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   330
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   331
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   332
startTicTacToe
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   333
    "opens a ticTacToe game against the machine"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   334
1008
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   335
    self openGame:'TicTacToeGame'
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   336
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   337
    "Modified: 28.1.1997 / 00:49:44 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   338
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   339
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   340
startTicTacToe2
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   341
    "opens a 2-user ticTacToe game"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   342
1008
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   343
    self openApplication:'TicTacToeGame' nameSpace:Games with:#open2UserGame
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   344
296ff0a39a80 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1005
diff changeset
   345
    "Modified: 28.1.1997 / 00:49:50 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   346
! !
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   347
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   348
!Launcher methodsFor:'actions - file'!
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   349
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   350
exit
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   351
    "stop ST/X - after asking for confirmation"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   352
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   353
    (self confirm:(resources string:'Are you certain you want to exit without saving ?'))
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   354
    ifTrue:[
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   355
        Smalltalk exit
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   356
    ]
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   357
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   358
    "Modified: 8.1.1997 / 14:50:00 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   359
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   360
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   361
snapshot
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   362
    "saves a snapshot image, after asking for a fileName"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   363
582
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   364
    |fileName|
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   365
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   366
    fileName := DialogBox
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   367
		    request:(resources at:'filename for image:') withCRs
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   368
	      initialAnswer:(ObjectMemory nameForSnapshot) 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   369
		    okLabel:(resources at:'save')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   370
		      title:(resources string:'save image')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   371
		   onCancel:nil.
582
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   372
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   373
    fileName notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   374
	self showCursor:Cursor write.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   375
	[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   376
	    (ObjectMemory snapShotOn:fileName) ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   377
		"
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   378
		 snapshot failed for some reason (disk full, no permission etc.)
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   379
		"
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   380
		self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   381
	    ]
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   382
	] valueNowOrOnUnwindDo:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   383
	    self restoreCursors.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   384
	].
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   385
    ].
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   386
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   387
    "Modified: 8.1.1997 / 14:50:29 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   388
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   389
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   390
snapshotAndExit
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   391
    "saves a snapshot image and exits, after asking for a fileName"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   392
590
776544e5eab4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 589
diff changeset
   393
    |fileName ok|
582
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   394
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   395
    fileName := DialogBox
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   396
		    request:(resources at:'filename for image:') withCRs
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   397
	      initialAnswer:(ObjectMemory nameForSnapshot) 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   398
		    okLabel:(resources at:'save & exit')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   399
		      title:(resources string:'save image & exit')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   400
		   onCancel:nil.
582
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   401
aca73c710a3b use new fill-in-the-blank dialogs
Claus Gittinger <cg@exept.de>
parents: 580
diff changeset
   402
    fileName notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   403
	self showCursor:Cursor write.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   404
	[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   405
	    ok := ObjectMemory snapShotOn:fileName.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   406
	] valueNowOrOnUnwindDo:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   407
	    self restoreCursors.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   408
	].
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   409
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   410
	ok ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   411
	    "
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   412
	     snapshot failed for some reason (disk full, no permission etc.)
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   413
	     Do NOT exit in this case.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   414
	    "
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   415
	    self warn:(resources string:'failed to save snapshot image (disk full or not writable)').
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   416
	] ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   417
	    "
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   418
	     saveAllViews tells all views to shutdown neatly 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   419
	     (i.e. offer a chance to save the contents to a file).
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   420
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   421
	     This is NOT required - all data should be in the snapshot ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   422
	     ... however, if remote disks/mountable filesystems are involved,
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   423
	     which may not be present the next time, it may make sense to 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   424
	     uncomment it and query for saving - time will show which is better.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   425
	    "
590
776544e5eab4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 589
diff changeset
   426
"
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   427
	    self saveAllViews.
590
776544e5eab4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 589
diff changeset
   428
"
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   429
	    Smalltalk exit
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   430
	]
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   431
    ].
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   432
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   433
    "Modified: 8.1.1997 / 14:50:36 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   434
! !
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   435
715
476b5b4d0dd0 Rename Launcher-->OldLauncher, NewLauncher-->Launcher.
Stefan Vogel <sv@exept.de>
parents: 711
diff changeset
   436
!Launcher methodsFor:'actions - goodies'!
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   437
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   438
openGoodie:className
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   439
    "open a goodie, given its name.
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   440
     Looks in both the Smalltalk- and the Goodies-Namespace
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   441
     for that class."
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   442
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   443
    self openApplication:className nameSpace:Goodies
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   444
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   445
    "Modified: 8.1.1997 / 14:51:18 / cg"
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   446
!
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   447
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   448
startCalendar
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   449
    "open a calendar goodie"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   450
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   451
    self openGoodie:'Calendar'
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   452
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   453
    "Modified: 8.1.1997 / 14:51:29 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   454
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   455
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   456
startClock
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   457
    "open a clock goodie"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   458
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   459
    self openGoodie:'RoundClock'
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   460
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   461
    "Modified: 8.1.1997 / 14:51:34 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   462
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   463
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   464
startMailTool
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   465
    "open a mailView goodie"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   466
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   467
    self openGoodie:'MailView'
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   468
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   469
    "Modified: 8.1.1997 / 14:51:42 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   470
!
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   471
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   472
startNewsTool
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   473
    "open a newsTool goodie"
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   474
920
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   475
    self openGoodie:'NewsView'
2b66e8759af5 look in some other namespace for demos & goodies
Claus Gittinger <cg@exept.de>
parents: 919
diff changeset
   476
921
0189f3d732e2 commenting & restructuring
Claus Gittinger <cg@exept.de>
parents: 920
diff changeset
   477
    "Modified: 8.1.1997 / 14:51:48 / cg"
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   478
! !
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
   479
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   480
!Launcher methodsFor:'actions - tools'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   481
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   482
globalGarbageCollect
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   483
    "perform a non-compressing garbageCollect"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   484
1645
a97b331268cb show a wait cursor during GC
Claus Gittinger <cg@exept.de>
parents: 1639
diff changeset
   485
    self withWaitCursorDo:[ObjectMemory reclaimSymbols]
a97b331268cb show a wait cursor during GC
Claus Gittinger <cg@exept.de>
parents: 1639
diff changeset
   486
a97b331268cb show a wait cursor during GC
Claus Gittinger <cg@exept.de>
parents: 1639
diff changeset
   487
    "Created: / 12.5.1996 / 15:28:13 / cg"
a97b331268cb show a wait cursor during GC
Claus Gittinger <cg@exept.de>
parents: 1639
diff changeset
   488
    "Modified: / 16.5.1998 / 02:43:50 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   489
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   490
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   491
startApplication:aSymbol
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   492
    "start an application,
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   493
     popup warnbox if application is not present or autoload failed"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   494
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   495
    |app|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   496
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   497
    app := Smalltalk classNamed:aSymbol.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   498
    app isBehavior ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   499
	app isLoaded ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   500
	    Autoload autoloadFailedSignal handle:[:ex|
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   501
		^ self warn:(resources string:'Sorry - cannot load %1' with:app name).
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   502
	    ] do:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   503
		app autoload.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   504
	    ].
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   505
	].
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   506
	app open.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   507
    ] ifFalse:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   508
	self warn:(resources 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   509
			string:'Sorry - %1 is not available in this release'
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   510
			with:aSymbol asString).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   511
    ]
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   512
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   513
    "Created: / 19.12.1997 / 13:00:29 / stefan"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   514
    "Modified: / 19.12.1997 / 14:09:46 / stefan"
1831
753aef177b2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   515
    "Modified: / 14.8.1998 / 13:04:59 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   516
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   517
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   518
startFullWindowTreeView
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   519
    "open a windowTree view (on all views)"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   520
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   521
    WindowTreeView open
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   522
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   523
    "Modified: 8.1.1997 / 14:56:04 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   524
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   525
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   526
startGUIBuilder
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   527
    "open a GUIBuilder view"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   528
1831
753aef177b2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   529
    UIPainter isNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   530
	^ self warn:'The UIPainter is not available in this release.'
1831
753aef177b2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   531
    ].
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   532
    UIPainter open
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   533
1831
753aef177b2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   534
    "Created: / 25.7.1997 / 10:56:30 / cg"
753aef177b2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1829
diff changeset
   535
    "Modified: / 14.8.1998 / 13:05:42 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   536
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   537
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   538
!Launcher methodsFor:'change & update'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   539
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   540
update:something with:aParameter from:changedObject
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   541
    "care for project changes & update my infoView"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   542
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   543
    ((something == #currentProject)
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   544
    or:[changedObject == Project]) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   545
	self updateInfo.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   546
	^ self
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   547
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   548
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   549
    "Modified: 28.7.1997 / 18:39:39 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   550
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   551
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   552
!Launcher methodsFor:'drag & drop'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   553
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   554
canDrop:aCollectionOfDropObjects in:aComponent
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   555
    "I accept fileObjects in the fileBrowser button
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   556
     and open a fileBrowser ..."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   557
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   558
    aCollectionOfDropObjects size ~~ 1 ifTrue:[^ false].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   559
    ^ aCollectionOfDropObjects first isFileObject
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   560
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   561
    "Modified: 11.4.1997 / 12:42:59 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   562
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   563
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   564
drop:aCollectionOfDropObjects in:aComponent at:aPoint 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   565
    "I accept fileObjects and will open a fileBrowser ..."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   566
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   567
    |singleDropObject|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   568
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   569
    aCollectionOfDropObjects size == 1 ifFalse:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   570
	transcript showCR:'can only drop single objects'.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   571
	^ self
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   572
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   573
    singleDropObject := aCollectionOfDropObjects first.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   574
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   575
    singleDropObject isFileObject ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   576
	FileBrowser openOnFileNamed:(singleDropObject theObject pathName)
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   577
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   578
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   579
    "Modified: 11.4.1997 / 12:44:29 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   580
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   581
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   582
!Launcher methodsFor:'dynamic menus'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   583
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   584
addMenu:name withItems:items actions:actions
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   585
    "dynamically add a new (user-)menu to the menu panel.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   586
     This allows applications to install items for themself
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   587
     dynamically in the launcher."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   588
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   589
    |subMenu|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   590
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   591
    myMenu add:name selector:(name asSymbol) before:#help.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   592
    subMenu := MenuView forMenu:myMenu.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   593
    subMenu labels:items.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   594
    subMenu actions:actions.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   595
    myMenu at:name putMenu:subMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   596
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   597
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   598
     |launcher actionBlocks|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   600
     actionBlocks := Array new:3.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   601
     actionBlocks at:1 put:[Transcript showCR:'foo'].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   602
     actionBlocks at:2 put:[Transcript showCR:'bar'].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   603
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   604
     launcher := Transcript topView application.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   605
     launcher 
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   606
	addMenu:'misc' 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   607
	withItems:#('foo' 'bar')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   608
	actions:actionBlocks
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   609
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   610
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   611
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   612
     |launcher actionBlocks|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   613
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   614
     actionBlocks := Array new:3.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   615
     actionBlocks at:1 put:[RDoItServer startServer].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   616
     actionBlocks at:2 put:[RDoItServer killServer].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   617
                
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   618
     launcher := Transcript topView application.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   619
     launcher 
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   620
	addMenu:'misc' 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   621
	withItems:#('start rdoit server' 'stop rdoit server')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   622
	actions:actionBlocks
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   623
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   624
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   625
    "Modified: 5.7.1996 / 11:45:19 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   626
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   627
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   628
menuAt:nameSymbol
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   629
    "return a menu by name"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   630
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   631
    ^ myMenu subMenuAt:nameSymbol
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   632
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   633
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   634
     |launcher demoMenu|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   635
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   636
     launcher := Transcript topView application.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   637
     demoMenu := launcher menuAt:#demos.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   638
     demoMenu
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   639
	addLabels:#('-' 'fooBar')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   640
	selectors:#(nil fooBar).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   641
     demoMenu actionAt:#fooBar put:[Transcript showCR:'fooBar']
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   642
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   643
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   644
    "Created: 11.7.1996 / 15:35:13 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   645
    "Modified: 11.7.1996 / 15:42:25 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   646
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   647
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   648
removeMenu:name
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   649
    "dynamically remove a (user-)menu from the menu panel.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   650
     This allows applications to de-install items for themself
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   651
     dynamically in the launcher."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   652
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   653
    myMenu remove:name 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   654
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   655
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   656
     |launcher actionBlocks|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   657
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   658
     actionBlocks := Array new:3.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   659
     actionBlocks at:1 put:[Transcript showCR:'foo'].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   660
     actionBlocks at:2 put:[Transcript showCR:'bar'].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   661
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   662
     launcher := Transcript topView application.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   663
     launcher 
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   664
	addMenu:'misc' 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   665
	withItems:#('foo' 'bar')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   666
	actions:actionBlocks.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   667
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   668
     Delay waitForSeconds:10.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   669
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   670
     launcher removeMenu:'misc'
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   671
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   672
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   673
    "Created: 5.7.1996 / 11:44:54 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   674
    "Modified: 5.7.1996 / 11:54:36 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   675
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   676
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   677
!Launcher methodsFor:'help'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   678
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   679
helpTextFor:aComponent
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   680
    "activeHelp interface: return some help text for a component"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   681
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   682
    |sel s buttons|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   683
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   684
    aComponent == transcript ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   685
	s := 'TRANSCRIPT_HELP'
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   686
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   687
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   688
    aComponent == infoView ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   689
	s := 'INFOVIEW_HELP'
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   690
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   691
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   692
    buttons := buttonPanel subViews.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   693
    (buttons notNil and:[buttons includes:aComponent]) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   694
	"kludge: look for its change selector"
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   695
	sel := aComponent changeMessage.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   696
	sel == #startSystemBrowser ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   697
	    s := 'SBROWSER_BUTTON_HELP'
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   698
	].
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   699
	sel == #startFileBrowser ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   700
	    s := 'FBROWSER_BUTTON_HELP'
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   701
	].
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   702
	sel == #startChangesBrowser ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   703
	    s := 'CBROWSER_BUTTON_HELP'
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   704
	].
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   705
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   706
    s notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   707
	^ resources string:s
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   708
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   709
    ^ nil
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   710
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   711
    "Modified: 8.1.1997 / 14:57:34 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   712
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   713
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   714
!Launcher methodsFor:'infoview update'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   715
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   716
showActivity:someMessage
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   717
    "some activityNotification to be forwarded to the user;
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   718
     show it in the transcript here."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   719
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   720
    transcript showCR:someMessage; endEntry
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   721
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   722
    "Created: 23.12.1995 / 12:38:29 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   723
    "Modified: 5.7.1996 / 13:13:15 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   724
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   725
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   726
updateInfo
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   727
    "update the infoView from the current project"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   728
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   729
    |project projectName projectDir packageName defNameSpace msg args|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   730
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   731
    (Project isNil or:[(project := Project current) isNil]) ifTrue:[
2437
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   732
        projectName := '* none *'.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   733
        projectDir := '.'.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   734
        packageName := '* none *'.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   735
    ] ifFalse:[
2437
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   736
        projectName := project name.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   737
        projectDir := project directory.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   738
        packageName := project package.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   739
        defNameSpace := project defaultNameSpace.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   740
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   741
    defNameSpace isNil ifTrue:[
2437
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   742
        defNameSpace := Smalltalk.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   743
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   744
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   745
    defNameSpace == Smalltalk ifTrue:[
2437
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   746
        msg := 'project: ''%1''  fileOut to: ''%3''  package: ''%2'''.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   747
        args := Array 
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   748
                    with:projectName
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   749
                    with:packageName 
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   750
                    with:(projectDir contractTo:30).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   751
    ] ifFalse:[
2437
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   752
        msg := 'project: ''%1''  fileOut to: ''%3''  package: ''%2''  nameSpace: %4'.
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   753
        args := Array 
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   754
                        with:projectName
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   755
                        with:packageName 
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   756
                        with:(projectDir contractTo:30)
9a86628282c6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2032
diff changeset
   757
                        with:defNameSpace name.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   758
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   759
        
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   760
    projectInfoHolder value:(resources string:msg withArgs:args)
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   761
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   762
    "Created: 28.7.1997 / 18:39:15 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   763
    "Modified: 28.7.1997 / 18:42:40 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   764
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   765
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   766
!Launcher methodsFor:'initialize - menus'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   767
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   768
disableDangerousMenuItemsInRemoteLauncher
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   769
    "if I am a remote launcher (multidisplay operation),
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   770
     disable menus which are dangerous or affect common state. 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   771
     These operations have to
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   772
     be performed on the main screen."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   773
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   774
    isMainLauncher ifFalse:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   775
	(myMenu menuAt:#file) disableAll:#(snapshot snapshotAndExit objectModuleDialog exit).
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   776
	(myMenu menuAt:#projects) disableAll.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
   777
	(myMenu menuAt:#settings) disableAll:#(languageSetting viewStyleSetting fontSettings printerSettings messageSettings compilerSettings sourceAndDebuggerSettings memorySettings miscSettings saveSettings restoreSettings).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   778
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   779
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   780
    "Created: 5.7.1996 / 17:00:50 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   781
    "Modified: 11.4.1997 / 09:19:51 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   782
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   783
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   784
setupAboutMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   785
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   786
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   787
    "setup the about- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   788
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   789
    myMenu at:#about 
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   790
           putLabels:(resources array:#(
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   791
                                        'About Smalltalk/X...'
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   792
                                        '-'
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   793
                                        'Licence Conditions'
2002
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   794
                                       ))
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   795
           selectors:#(
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   796
                                        #openAbout 
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   797
                                        nil
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   798
                                        #openLicenseConditions 
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   799
                      )
22aacf3dd0ca refactored with NewLauncher into AbstractLauncherApplication
Claus Gittinger <cg@exept.de>
parents: 1997
diff changeset
   800
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   801
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   802
    "Created: / 8.1.1997 / 14:03:20 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   803
    "Modified: / 29.10.1997 / 03:40:36 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   804
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   805
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   806
setupClassesMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   807
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   808
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   809
    |m labels selectors jb|
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   810
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   811
    "setup the classes- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   812
1745
337a8b80e297 use new popupmenu creation messages
Claus Gittinger <cg@exept.de>
parents: 1744
diff changeset
   813
    labels := #(
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   814
        'System Browser'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   815
        'Class Browser...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   816
        'Full Class Browser...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   817
        'Class Hierarchy Browser...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   818
        'Class Tree'
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   819
        '-'
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   820
        'Implementors...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   821
        'Senders...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   822
        'Special'
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   823
        '-'
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   824
        'Change Browser'
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   825
        ).
1745
337a8b80e297 use new popupmenu creation messages
Claus Gittinger <cg@exept.de>
parents: 1744
diff changeset
   826
337a8b80e297 use new popupmenu creation messages
Claus Gittinger <cg@exept.de>
parents: 1744
diff changeset
   827
    selectors := #(
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   828
        #startSystemBrowser 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   829
        #startClassBrowser 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   830
        #startFullClassBrowser 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   831
        #startClassHierarchyBrowser 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   832
        #startClassTreeView 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   833
        nil
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   834
        #browseImplementors 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   835
        #browseSenders 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   836
        #special 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   837
        nil
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   838
        #startChangesBrowser 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   839
        ).
1745
337a8b80e297 use new popupmenu creation messages
Claus Gittinger <cg@exept.de>
parents: 1744
diff changeset
   840
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   841
    myMenu at:#classes 
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   842
           putLabels:(resources array:labels)
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   843
           selectors:selectors
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   844
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   845
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   846
    m := myMenu menuAt:#classes.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   847
    m subMenuAt:#special 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   848
      put:(PopUpMenu
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   849
                itemList: #(
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   850
                            ('References to Undeclared'      #browseUndeclared             )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   851
                            ('Resource Methods...'           #browseResources              )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   852
                            ('Show Break/Trace Points'       #browseAllBreakAndTracePoints )
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   853
                            ('-'                                                           )
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   854
                            ('Remove all Break/trace Points' #removeAllBreakAndTracePoints )
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   855
                           )
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   856
                resources:resources
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   857
          ).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   858
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   859
    ((jb := Smalltalk at:#JavaBrowser) notNil 
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   860
    and:[jb isLoaded]) ifTrue:[
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   861
        (myMenu subMenuAt:#classes)
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   862
            addLabels:(resources array:#('-' 'Java Browser'))
2032
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   863
            selectors:#(nil startJavaBrowser)
3024d3fc27b8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2005
diff changeset
   864
            after:#startClassTreeView
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   865
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   866
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   867
    "Created: / 8.1.1997 / 14:05:44 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   868
    "Modified: / 13.1.1998 / 09:57:46 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   869
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   870
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   871
setupDemoMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   872
    "setup the demo- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   873
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   874
    <resource: #programMenu>
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   875
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   876
    |m|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   877
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   878
    myMenu at:#demos 
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   879
           putLabels:(resources array:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   880
                                        'Goodies'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   881
                                        'Games'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   882
                                        'Geometric Designs'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   883
                                        'Simple Animations'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   884
                                        '3D Graphics'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   885
                                        'Graphic Editors'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   886
                                       ))
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   887
           selectors:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   888
                                        goodies
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   889
                                        games
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   890
                                        geometricDesigns
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   891
                                        simpleAnimations
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   892
                                        #'3Dgraphics'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   893
                                        #graphicEditors
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   894
                      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   895
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   896
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   897
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   898
     only to show two different ways of defining a popUpMenu,
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   899
     we use labels:selectors:receiver: here:
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   900
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   901
    m := myMenu menuAt:#demos.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   902
    m subMenuAt:#games
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   903
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   904
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   905
                           ('Tetris'                  startTetris     )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   906
                           ('Tic Tac Toe'             startTicTacToe  )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   907
                           ('Tic Tac Toe (2 players)' startTicTacToe2 )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   908
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   909
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   910
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   911
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   912
     and labels:selector:args:receiver: here:
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   913
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   914
    m subMenuAt:#geometricDesigns
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   915
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   916
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   917
                           ('Pen demo'                   #openDemo:  nil PenDemo              )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   918
                           ('Commander demo'             #openDemo:  nil CommanderDemo        )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   919
                           ('-'                                                               )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   920
                           ('Mandelbrot demo'            #openDemo:  nil ComplexIterationView )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   921
                           ('Fractal plants demo'        #openDemo:  nil FractalPlantsDemo    )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   922
                           ('Fractal patterns demo'      #openDemo:  nil FractalPatternsDemo  )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   923
                           ('more fractal patterns demo' #openDemo:  nil ArmchairUniverseDemo )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   924
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   925
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   926
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   927
    m subMenuAt:#simpleAnimations 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   928
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   929
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   930
                           ('Animation'     #openDemo: nil Animation )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   931
                           ('Globe demo'    #openDemo: nil GlobeDemo )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   932
                         )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   933
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   934
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   935
    m subMenuAt:#'3Dgraphics' 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   936
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   937
                itemList:#( 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   938
                            ('plane'                  #openDemo:  nil  GLPlaneDemoView2      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   939
                            ('tetra'                  #openDemo:  nil  GLTetraDemoView       )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   940
                            ('cube (wireframe)'       #openDemo:  nil  GLWireCubeDemoView    )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   941
                            ('cube (solid)'           #openDemo:  nil  GLCubeDemoView        )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   942
                            ('sphere (wireframe)'     #openDemo:  nil  GLWireSphereDemoView  )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   943
                            ('doughnut (wireframe)'   #openDemo:  nil  GLDoughnutDemoView    )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   944
                            ('planet'                 #openDemo:  nil  GLPlanetDemoView      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   945
                            ('teapot'                 #openDemo:  nil  GLTeapotDemo          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   946
                            ('logo'                   #openDemo:  nil  Logo3DView1           )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   947
                            ('rubics cube'            #openDemo:  nil  RubicsCubeView        )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   948
                            ('x/y graph'              #openDemo:  nil  GLXYGraph             )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   949
                            ('x/y graph widget'       #openDemo:  nil  #'CodingExamples_GUI::GLXYGraph3DDemo'        )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   950
                            ('x/y graph animated'     #openDemo:  nil  #'CodingExamples_GUI::AnimatedGLXYGraph3DDemo')
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   951
                            ('-'                                                             )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   952
                            ('cube (light)'           #openDemo:  nil  GLCubeDemoView2       )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   953
                            ('cube (light & texture)' #openDemo:  nil  GLBrickCubeDemoView   )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   954
                            ('sphere (light)'         #openDemo:  nil  GLSphereDemoView2     )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   955
                            ('colored octahedron'     #openDemo:  nil  GLOctaHedronDemoView  )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   956
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   957
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   958
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   959
    m subMenuAt:#graphicEditors 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   960
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   961
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   962
                           ('DrawTool'   #openDemo:  nil  DrawTool       )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   963
                           ('LogicTool'  #openDemo:  nil  LogicTool      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   964
                           ('Paint Demo' #openDemo:  nil  ColorDrawDemo3 )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   965
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   966
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   967
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   968
    m subMenuAt:#goodies 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   969
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   970
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   971
                            ('clock'          #openDemo:  nil  Clock            )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   972
                            ('digital clock'  #openDemo:  nil  DigitalClockView )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   973
                            ('calendar'       #openDemo:  nil  Calendar         )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   974
                            ('calculator'     #openDemo:  nil  CalculatorView   )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   975
                            ('-'                                                )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   976
                            ('mail tool'      #openDemo:  nil  MailView         )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   977
                            ('news tool'      #openDemo:  nil  NewsView         )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   978
                            ('ftp tool'       #openDemo:  nil  FTPTool          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   979
                            ('telnet tool'    #openDemo:  nil  TelnetTool       )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   980
                           )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   981
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   982
1761
Claus Gittinger <cg@exept.de>
parents: 1754
diff changeset
   983
    "Modified: / 28.7.1998 / 15:17:12 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   984
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   985
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   986
setupFileMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   987
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   988
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   989
    "setup the file- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   990
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   991
    |l s|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   992
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
   993
    l := #(
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   994
                'File Browser'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   995
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   996
                'Modules...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   997
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   998
                'Snapshot...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
   999
                'Snapshot & Exit...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1000
                'Exit Smalltalk...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1001
         ).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1002
    s := #(
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1003
                #startFileBrowser
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1004
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1005
                #objectModuleDialog 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1006
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1007
                #snapshot
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1008
                #snapshotAndExit
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1009
                #exit
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1010
         ).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1011
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1012
    myMenu at:#file
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1013
           putLabels:(resources array:l)
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1014
           selectors:s
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1015
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1016
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1017
    "Created: / 8.1.1997 / 14:04:15 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1018
    "Modified: / 29.10.1997 / 03:40:49 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1019
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1020
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1021
setupHelpMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1022
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1023
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1024
    "setup the help- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1025
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1026
    |l s|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1027
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1028
    ActiveHelp notNil ifTrue:[
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1029
        l := #(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1030
                'What''s New'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1031
                'Index'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1032
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1033
                'ST/X Online Documentation'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1034
                'Class Documentation'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1035
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1036
                'Print Documentation...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1037
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1038
                'Active Help \c'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1039
              ).
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1040
        s := #(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1041
                #startWhatsNewDocumentation
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1042
                #startDocumentationIndex
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1043
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1044
                #startDocumentationTool
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1045
                #startClassDocumentation
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1046
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1047
                #showBookPrintDocument
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1048
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1049
                #toggleActiveHelp:
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1050
              )
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1051
    ] ifFalse:[
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1052
        l := #(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1053
                'what''s new'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1054
                'index'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1055
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1056
                'ST/X online documentation'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1057
                'class documentation'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1058
                '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1059
                'print documentation ...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1060
              ).
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1061
        s := #(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1062
                #startWhatsNewDocumentation
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1063
                #startDocumentationIndex
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1064
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1065
                #startDocumentationTool
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1066
                #startClassDocumentation
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1067
                nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1068
                #showBookPrintDocument
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1069
              )
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1070
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1071
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1072
    myMenu at:#help 
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1073
           putLabels:(resources array:l)
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1074
           selectors:s
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1075
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1076
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1077
    (ActiveHelp notNil
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1078
    and:[ActiveHelp isActive]) ifTrue:[
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1079
        (myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1080
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1081
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1082
    "Created: / 8.1.1997 / 14:08:09 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1083
    "Modified: / 29.10.1997 / 03:40:53 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1084
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1085
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1086
setupMainMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1087
    "setup the pulldown menus main items.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1088
     Extracted into a separate method, to allow subclasses to
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1089
     add their own entries"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1090
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1091
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1092
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1093
    |icon|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1094
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1095
    myMenu labels:(resources array:#(
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1096
                                     'About'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1097
                                     'File'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1098
                                     'Classes'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1099
                                     'Tools'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1100
                                     'Projects'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1101
                                     'Settings'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1102
                                     'Demos'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1103
                                     'Help')).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1104
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1105
     if there is a bitmap, change 'about' to the ST/X icon
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1106
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1107
    icon := self class smallAboutIcon.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1108
    icon notNil ifTrue:[
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1109
"/        icon := icon on:device.
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1110
        myMenu labels at:1 put:icon.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1111
        myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1112
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1113
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1114
    myMenu selectors:#(
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1115
                                     #about
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1116
                                     #file
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1117
                                     #classes 
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1118
                                     #tools 
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1119
                                     #projects 
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1120
                                     #settings
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1121
                                     #demos
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1122
                                     #help).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1123
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1124
    "Created: / 8.1.1997 / 13:58:50 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1125
    "Modified: / 29.10.1997 / 03:41:00 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1126
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1127
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1128
setupMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1129
    "setup the pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1130
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1131
    |mainItems|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1132
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1133
    self setupMainMenu.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1134
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1135
    mainItems := myMenu selectors.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1136
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1137
    (mainItems includes:#about) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1138
	"/ if not redefined without an about-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1139
	self setupAboutMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1140
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1141
    (mainItems includes:#file) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1142
	"/ if not redefined without a file-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1143
	self setupFileMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1144
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1145
    (mainItems includes:#classes) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1146
	"/ if not redefined without a classes-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1147
	self setupClassesMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1148
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1149
    (mainItems includes:#projects) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1150
	"/ if not redefined without a projects-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1151
	self setupProjectsMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1152
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1153
    (mainItems includes:#settings) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1154
	"/ if not redefined without a settings-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1155
	self setupSettingsMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1156
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1157
    (mainItems includes:#tools) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1158
	"/ if not redefined without a tools-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1159
	self setupToolsMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1160
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1161
    (mainItems includes:#demos) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1162
	"/ if not redefined without a demos-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1163
	self setupDemoMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1164
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1165
    (mainItems includes:#help) ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1166
	"/ if not redefined without a help-menu ...
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1167
	self setupHelpMenu
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1168
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1169
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1170
    self disableDangerousMenuItemsInRemoteLauncher
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1171
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1172
    "Modified: 8.1.1997 / 14:09:47 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1173
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1174
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1175
setupProjectsMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1176
    "setup the projects- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1177
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1178
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1179
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1180
    myMenu at:#projects 
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1181
           putLabels:(resources array:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1182
                                        'New Project'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1183
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1184
                                        'Select Project...'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1185
                                        ))
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1186
           selectors:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1187
                                        #newProject 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1188
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1189
                                        #selectProject 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1190
                      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1191
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1192
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1193
    "Created: / 8.1.1997 / 14:06:18 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1194
    "Modified: / 29.10.1997 / 03:41:09 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1195
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1196
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1197
setupSettingsMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1198
    "setup the settings- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1199
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1200
    <resource: #programMenu >
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1201
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1202
    myMenu at:#settings 
1923
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1203
           putLabels:(resources array:#(
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1204
                                        'Language...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1205
                                        'Show keyboard mappings...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1206
                                        'View style...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1207
                                        'Fonts...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1208
                                        'Printer...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1209
                                        'Messages...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1210
                                        'Compilation...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1211
                                        'Source & debugger...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1212
                                        'Tools...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1213
                                        'Object memory...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1214
                                        'Screen...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1215
"/                                        'Java...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1216
                                        'Editing...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1217
                                        'Misc...'
1923
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1218
                                        '='
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1219
                                        'Save settings...'
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1220
                                        'Restore settings...'
1923
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1221
                                        ))
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1222
           selectors:#(
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1223
                                        #languageSetting 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1224
                                        #keyboardSetting 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1225
                                        #viewStyleSetting 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1226
                                        #fontSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1227
                                        #printerSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1228
                                        #messageSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1229
                                        #compilerSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1230
                                        #sourceAndDebuggerSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1231
                                        #toolSettings
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1232
                                        #memorySettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1233
                                        #displaySettings 
1729
79a4d5dd4c13 added (hidden) java-settings dialog.
Claus Gittinger <cg@exept.de>
parents: 1718
diff changeset
  1234
"/                                        #javaSettings
1977
0ff4d80c7f32 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1973
diff changeset
  1235
                                        #editSettings
1923
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1236
                                        #miscSettings
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1237
                                        nil
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1238
                                        #saveSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1239
                                        #restoreSettings 
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1240
                      )
c1bd25dbfcc1 extra config dialog for tools (new/old changesBrowser ...)
Claus Gittinger <cg@exept.de>
parents: 1921
diff changeset
  1241
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1242
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1243
    "Created: / 8.1.1997 / 14:07:00 / cg"
1977
0ff4d80c7f32 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1973
diff changeset
  1244
    "Modified: / 6.1.1999 / 14:13:57 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1245
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1246
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1247
setupToolsMenu
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1248
    "setup the tools- pulldown menu"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1249
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1250
    <resource: #programMenu>
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1251
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1252
    |m |
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1253
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1254
    myMenu at:#tools 
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1255
           putLabels:(resources array:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1256
                                        'Workspace'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1257
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1258
                                        'GUI builder'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1259
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1260
                                        'New Launcher'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1261
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1262
                                        'Monitors'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1263
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1264
                                        'Views'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1265
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1266
                                        'Hardcopy'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1267
                                        '-'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1268
                                        'misc'
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1269
                                        ))
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1270
           selectors:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1271
                                        #startWorkspace 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1272
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1273
                                        #startGUIBuilder
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1274
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1275
                                        #startNewLauncher
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1276
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1277
                                        #monitors
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1278
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1279
                                        #views
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1280
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1281
                                        #hardcopy 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1282
                                        nil
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1283
                                        #misc 
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1284
                      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1285
           receiver:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1286
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1287
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1288
    m := myMenu menuAt:#tools.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1289
    m subMenuAt:#monitors 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1290
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1291
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1292
                           ('Process'      #startApplication:  nil  #ProcessMonitor          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1293
                           ('Semaphores'   #startApplication:  nil  #SemaphoreMonitor        )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1294
                           ('Memory'       #startApplication:  nil  #MemoryMonitor           )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1295
                           ('Irq Latency'  #startApplication:  nil  #InterruptLatencyMonitor )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1296
                           ('Event View'   #startApplication:  nil  #EventMonitor            )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1297
                           ('Event Trace'  #startApplication:  nil  #StopEventTrace          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1298
                           ('-'                                                              )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1299
                           ('Memory usage' #startApplication:  nil  #MemoryUsageView         )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1300
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1301
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1302
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1303
    m subMenuAt:#views 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1304
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1305
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1306
                           ('Iconify all'           #iconifyAllWindows        )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1307
                           ('Deiconify all'         #deIconifyAllWindows      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1308
                           ('-'                                               )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1309
                           ('Find & Raise...'       #findAndRaiseWindow       )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1310
                           ('-'                                               )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1311
                           ('View Tree (all views)' #startFullWindowTreeView  )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1312
                           ('View Tree'             #startWindowTreeView      )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1313
                           ('-'                                               )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1314
                           ('Select & Inspect View' #viewInspect              )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1315
                           ('-'                                               )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1316
                           ('Select & Destroy View' #viewDestroy              )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1317
                           ('Find & Destroy...'     #findAndDestroyWindow     )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1318
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1319
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1320
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1321
    m subMenuAt:#misc 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1322
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1323
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1324
                           ('Garbage Collect'            #garbageCollect            )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1325
                           ('Garbage Collect & Compress' #compressingGarbageCollect )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1326
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1327
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1328
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1329
    m subMenuAt:#hardcopy 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1330
      put:(PopUpMenu
5709
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1331
                itemList:#(
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1332
                           ('Screen' #fullScreenHardcopy )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1333
                           ('Area'   #screenHardcopy     )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1334
                           ('View'   #viewHardcopy       )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1335
                          )
be6b78e5cd7c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3647
diff changeset
  1336
                resources:resources).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1337
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1338
    "Modified: / 31.10.1997 / 16:01:53 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1339
    "Modified: / 19.12.1997 / 13:15:27 / stefan"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1340
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1341
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1342
!Launcher methodsFor:'initialize / release'!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1343
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1344
buttonPanelSpec
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1345
    "return a spec for the buttons in the panel;
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1346
     entries consists of selector and bitmap-filename.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1347
     nil selectors are taken as separators (see setupButtonPanel)"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1348
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1349
    ^ #(
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1350
	#(startSystemBrowser 'SBrowser32x32.xbm')
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1351
	#(startFileBrowser   'FBrowser32x32.xbm')
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1352
"/        #(startWorkspace      'Workspace32x32.xbm')
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1353
	#(nil nil)
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1354
	#(startChangesBrowser 'CBrowser32x32.xbm')
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1355
"/        #(nil nil)
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1356
"/        #(nil nil)
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1357
"/        #(startDocumentationTool 'book11.ico')
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1358
     )
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1359
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1360
    "Created: 4.12.1995 / 20:16:18 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1361
    "Modified: 19.4.1996 / 16:37:46 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1362
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1363
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1364
closeDownViews
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1365
    OpenLaunchers removeIdentical:self ifAbsent:nil.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1366
    super closeDownViews.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1367
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1368
    "Created: 5.7.1996 / 13:33:36 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1369
    "Modified: 1.2.1997 / 12:07:53 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1370
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1371
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1372
focusSequence
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1373
    ^ (Array with:myMenu) 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1374
      , 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1375
      (buttonPanel subViews select:[:element | element isKindOf:Button])
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1376
"/      , (Array with:Transcript)
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1377
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1378
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1379
openInterface
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1380
    "sent by my superclass to open up my interface"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1381
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1382
    ^ self openInterfaceAt:nil
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1383
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1384
    "Modified: / 5.2.1998 / 19:57:39 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1385
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1386
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1387
openInterfaceAt:aPoint
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1388
    "sent by my superclass to open up my interface"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1389
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1390
    |top icn w sz|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1391
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1392
    "/ if there is already a transcript on my device,
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1393
    "/ I am a slave launcher with limited functionality.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1394
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1395
    Transcript notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1396
	Transcript ~~ Stderr ifTrue:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1397
	    isMainLauncher := (Transcript graphicsDevice == device).
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1398
	] ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1399
	    isMainLauncher := true
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1400
	]
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1401
    ] ifFalse:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1402
	isMainLauncher := true
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1403
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1404
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1405
    top := StandardSystemView onDevice:device.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1406
    top label:'Smalltalk/X'; iconLabel:'ST/X Launcher'.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1407
    top extent:(400@300 ).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1408
    aPoint notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1409
	top origin:aPoint
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1410
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1411
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1412
    icn := self class aboutIcon.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1413
    icn notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1414
	icn := icn magnifiedTo:(sz := device preferredIconSize).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1415
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1416
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1417
    icn notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1418
	(device supportsDeepIcons not
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1419
	and:[device supportsIconViews
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1420
	and:[device depth > 1]]) ifTrue:[    
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1421
	    w := View extent:sz. 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1422
	    w viewBackground:icn.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1423
	    top iconView:w
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1424
	] ifFalse:[
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1425
	    top icon:icn.
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1426
	]
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1427
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1428
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1429
"/    device supportsDeepIcons ifTrue:[
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1430
"/        icn := self class aboutIcon.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1431
"/        icn notNil ifTrue:[
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1432
"/            icn := icn magnifiedTo:(sz := device preferredIconSize).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1433
"/            icn := Depth8Image fromImage:icn.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1434
"/            top icon:icn
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1435
"/        ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1436
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1437
"/    ] ifFalse:[
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1438
"/        device supportsIconViews ifTrue:[
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1439
"/            icn := self class aboutIcon.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1440
"/            icn notNil ifTrue:[
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1441
"/                icn := icn magnifiedTo:(sz := device preferredIconSize).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1442
"/                w := View extent:sz. 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1443
"/                w viewBackground:icn.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1444
"/                top iconView:w
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1445
"/            ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1446
"/        ]
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1447
"/    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1448
1707
4c495fd678dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1705
diff changeset
  1449
    self createBuilder.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1450
    self setupViewsIn:top.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1451
    top application:self.   
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1452
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1453
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1454
     open with higher prio to allow interaction even while things
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1455
     are running ...
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1456
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1457
    top openWithPriority:(Processor userSchedulingPriority + 1).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1458
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1459
    OpenLaunchers isNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1460
	OpenLaunchers := OrderedCollection new.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1461
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1462
    OpenLaunchers add:self.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1463
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1464
    ^ builder
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1465
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1466
    "Created: / 5.2.1998 / 19:43:44 / cg"
1707
4c495fd678dc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1705
diff changeset
  1467
    "Modified: / 19.6.1998 / 03:35:41 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1468
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1469
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1470
release
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1471
    OpenLaunchers removeIdentical:self ifAbsent:nil.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1472
    super release
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1473
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1474
    "Modified: 28.7.1997 / 18:40:55 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1475
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1476
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1477
restarted
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1478
    "image restart - since WindowGroup recreates the process with
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1479
     the default priority, we have to raise the prio again.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1480
     Mhmh - this looks like a bug to me ...
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1481
     Also, the cursor (which was stored as a write or waitCursor) must
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1482
     be reset to normal."
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1483
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1484
    Processor activeProcess priority:(Processor userSchedulingPriority + 1).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1485
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1486
    super restarted
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1487
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1488
    "Modified: 1.6.1996 / 16:58:25 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1489
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1490
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1491
setupButtonPanelIn:aTopView
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1492
    "create the buttonPanel"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1493
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1494
    |spc mh buttonSize|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1495
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1496
    spc := View viewSpacing // 2.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1497
    buttonPanel := HorizontalPanelView in:aTopView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1498
    buttonPanel level:-1; borderWidth:0.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1499
    buttonPanel horizontalLayout:#leftSpace.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1500
"/    buttonPanel verticalLayout:#centerSpace.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1501
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1502
    buttonSize := self class buttonImageSize.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1503
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1504
    "/
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1505
    "/ the buttonSpec is a collection of:
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1506
    "/   #( selector  iconFileName )
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1507
    "/ or:
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1508
    "/   #( selector  (className iconQuerySelector) )
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1509
    "/ or"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1510
    "/   #( nil )
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1511
    "/
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1512
    self buttonPanelSpec do:[:entry |
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1513
        |sel b sep img iconSpec v|
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1514
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1515
        sel := entry at:1.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1516
        sel isNil ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1517
            sep := View in:buttonPanel.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1518
            sep extent:32@1; borderWidth:0.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1519
        ] ifFalse:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1520
            iconSpec := entry at:2.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1521
            iconSpec isArray ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1522
                img := (Smalltalk classNamed:(iconSpec at:1)) perform:(iconSpec at:2).
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1523
            ] ifFalse:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1524
                img := Smalltalk imageFromFileNamed:iconSpec forClass:self class.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1525
                img isNil ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1526
                    img := Smalltalk imageFromFileNamed:iconSpec forClass:Launcher.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1527
                ]
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1528
            ].
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1529
            (img notNil and:[buttonSize notNil]) ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1530
                img extent ~= buttonSize ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1531
                    img := img magnifiedTo:buttonSize       
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1532
                ]
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1533
            ].
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1534
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1535
            b := Button new.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1536
            b form:img.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1537
            b model:self; changeMessage:sel.
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1538
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1539
            b styleSheet name = 'win95' ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1540
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1541
                false ifTrue:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1542
                    "/ make buttons flat, popping up when entered ...
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1543
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1544
                    b enterLevel: 1.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1545
                    b leaveLevel: 0.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1546
                    buttonPanel addSubView:b.
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1547
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1548
                ] ifFalse:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1549
                    "/ make buttons flat, but given them a 3D frame ...
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1550
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1551
                    v := View in:buttonPanel.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1552
                    v addSubView:b.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1553
                    v level:-1.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1554
                    b passiveLevel:1; activeLevel:-1.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1555
                    v extent:(b preferredExtent 
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1556
                              + b borderWidth + b borderWidth 
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1557
                              + b margin + b margin 
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1558
                              + v margin + v margin).
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1559
                    v preferredExtent:v extent.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1560
                    b origin:(v margin asPoint).
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1561
                ].
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1562
                b enteredBackgroundColor:(Color grey:80).
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1563
            ] ifFalse:[
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1564
                buttonPanel addSubView:b.
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1565
            ].
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1566
        ]
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1567
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1568
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1569
    mh := myMenu height.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1570
    buttonPanel origin:0.0 @ (mh + spc)
2532
28861484ed47 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2437
diff changeset
  1571
                corner:(1.0 @ (mh + spc + buttonPanel preferredExtent y)).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1572
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1573
    buttonPanel leftInset:spc; rightInset:spc.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1574
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1575
    "Modified: 26.4.1997 / 21:02:39 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1576
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1577
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1578
setupInfoViewIn:topView 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1579
    "create the infoView"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1580
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1581
    |spc halfSpc|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1582
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1583
    spc := View viewSpacing.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1584
    infoView := Label label:'' in:topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1585
    infoView adjust:#left; borderWidth:0.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1586
    infoView level:-1.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1587
    transcript superView bottomInset:(infoView height + spc).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1588
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1589
    infoView is3D ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1590
	halfSpc := spc // 2.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1591
    ] ifFalse:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1592
	halfSpc := 0
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1593
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1594
    infoView topInset:(infoView height negated - spc + transcript borderWidth);
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1595
	     bottomInset:halfSpc;
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1596
	     leftInset:halfSpc; 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1597
	     rightInset:halfSpc.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1598
    infoView origin:0.0 @ 1.0 corner:1.0 @ 1.0.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1599
    projectInfoHolder := '' asValue.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1600
    infoView labelChannel:projectInfoHolder.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1601
    self updateInfo.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1602
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1603
    Project notNil ifTrue:[
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1604
	Project addDependent:self.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1605
    ]
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1606
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1607
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1608
     Launcher open
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1609
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1610
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1611
    "Modified: 9.9.1996 / 22:44:15 / stefan"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1612
    "Modified: 28.7.1997 / 18:42:30 / cg"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1613
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1614
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1615
setupOtherViewsIn:aTopView
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1616
    "a hook - allows redefinition in your personal subclass.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1617
     For example, add a clock:"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1618
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1619
"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1620
    |sz clock space halfSpace|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1621
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1622
    sz := buttonPanel innerHeight - (buttonPanel level abs*2).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1623
    space := View viewSpacing.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1624
    halfSpace := space // 2.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1625
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1626
    buttonPanel rightInset:sz+(space  * 2).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1627
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1628
    clock := ClockView in:buttonPanel topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1629
    clock borderWidth:1.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1630
    clock showSeconds:false.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1631
    clock extent:(sz @ sz).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1632
    clock origin:(1.0 @ (buttonPanel origin y + halfSpace)).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1633
    clock leftInset:sz negated - 2 - halfSpace.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1634
    clock rightInset:halfSpace.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1635
    clock level:1.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1636
"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1637
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1638
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1639
setupTranscriptIn:aView 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1640
    "create the transcript view"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1641
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1642
    |v launcher|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1643
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1644
    "/ check if this is an additional launcher on a remote display.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1645
    "/ if so, do not close the real launcher.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1646
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1647
    (Transcript notNil and:[Transcript ~~ Stderr]) ifTrue:[
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1648
        isMainLauncher ifTrue:[
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1649
            launcher := Transcript topView application
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1650
        ] ifFalse:[
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1651
            launcher := self class current.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1652
            (launcher isNil and: [NewLauncher notNil]) ifTrue: [launcher := NewLauncher current].
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1653
        ].
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1654
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1655
        launcher notNil ifTrue:[
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1656
            launcher window graphicsDevice == device ifTrue:[
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1657
                OpenLaunchers notNil ifTrue:[
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1658
                    OpenLaunchers removeIdentical:launcher ifAbsent:nil.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1659
                ].
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1660
                launcher class = NewLauncher
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1661
                    ifTrue:  [launcher close]
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1662
                    ifFalse: [launcher window destroy]
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1663
            ]
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1664
        ]
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1665
    ].
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1666
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1667
    v := HVScrollableView 
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1668
                for:TextCollector
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1669
                miniScrollerH:true 
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1670
                miniScrollerV:false 
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1671
                in:aView.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1672
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1673
    v origin:(0.0 @ (buttonPanel corner y + View viewSpacing)) 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1674
      corner:(1.0 @ 1.0).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1675
    transcript := v scrolledView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1676
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1677
    isMainLauncher ifTrue:[
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1678
        transcript beTranscript.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1679
        transcript showCR:'**************** Notice ***********************'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1680
        transcript showCR:'**  This Launcher is obsolete and no longer  **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1681
        transcript showCR:'**  maintained. Please use the new launcher: **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1682
        transcript showCR:'**             NewLauncher open              **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1683
        transcript showCR:'**                                           **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1684
        transcript showCR:'***********************************************'.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1685
    ] ifFalse:[
3647
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1686
        transcript showCR:'**************** Notice ***********************'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1687
        transcript showCR:'**       this is NOT the Transcript          **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1688
        transcript showCR:'** The real Transcript is on the main screen **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1689
        transcript showCR:'**                                           **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1690
        transcript showCR:'** Menus affecting common state are disabled **'.
dae513f07a2e checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2532
diff changeset
  1691
        transcript showCR:'***********************************************'.
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1692
    ]
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1693
1840
c7a6ec4fdede replace yield by a delay.
Claus Gittinger <cg@exept.de>
parents: 1839
diff changeset
  1694
    "Modified: / 18.8.1998 / 15:03:54 / cg"
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1695
!
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1696
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1697
setupViewsIn:topView 
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1698
    "create the pulldown menu, buttonPanel and transcript view"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1699
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1700
    |tFont|
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1701
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1702
    topView model:self.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1703
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1704
    myMenu := PullDownMenu in:topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1705
    myMenu origin:0.0 @ 0.0 corner:(1.0 @ myMenu height).
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1706
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1707
    self setupMenu.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1708
    self setupButtonPanelIn:topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1709
    self setupTranscriptIn:topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1710
    self setupInfoViewIn:topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1711
    self setupOtherViewsIn:topView.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1712
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1713
    tFont := transcript font.
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1714
    topView extent:(((tFont widthOf:'3')*60) max:myMenu preferredExtent x)
1910
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1715
		    @ 
ff7233dcd313 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1909
diff changeset
  1716
		    ((tFont height) * 20).
1599
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1717
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1718
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1719
     Launcher open
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1720
    "
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1721
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1722
    "Modified: 9.9.1996 / 22:44:31 / stefan"
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1723
! !
60c649f423e8 moved settingsDialogs into separate class
Claus Gittinger <cg@exept.de>
parents: 1591
diff changeset
  1724
760
39e3f920b233 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 743
diff changeset
  1725
!Launcher class methodsFor:'documentation'!
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
  1726
219
379dfea373d7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 205
diff changeset
  1727
version
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
  1728
    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.407 2015-01-31 13:28:01 cg Exp $'
86
11b4ce85104e Initial revision
claus
parents:
diff changeset
  1729
! !
15143
afe9ea05ebe9 class: Launcher
Claus Gittinger <cg@exept.de>
parents: 5709
diff changeset
  1730