SettingsDialog.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 13 Apr 2016 22:53:21 +0100
branchjv
changeset 16286 845a3d624cb7
parent 16213 f667b5b42a11
child 16315 73c4f82ca456
permissions -rw-r--r--
Settings: Removed SQLServer settings. This is eXept's addon which cannot be shipped with Smalltalk/X jv-bramch. Therefore should removed from settings as it only causes confusion.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
5140
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     1
"
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     2
 COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     3
              All Rights Reserved
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     4
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     5
 This software is furnished under a license and may be used
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     6
 only in accordance with the terms of that license and with the
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     8
 be provided or otherwise made available to, or used by, any
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
     9
 other person.  No title to or ownership of the software is
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    10
 hereby transferred.
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    11
"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    12
"{ Package: 'stx:libtool' }"
7021197a578f initial checkin
penk
parents:
diff changeset
    13
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
    14
"{ NameSpace: Smalltalk }"
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
    15
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    16
ApplicationModel subclass:#SettingsDialog
13116
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    17
	instanceVariableNames:'requestor subCanvasApplicationHolder help doReload doSave
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    18
		enableReload enableHelp enableOK selectedItem applicationList
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    19
		categoryIcons lastSelection whyDisabledInfoHolder'
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    20
	classVariableNames:'ApplicationList IconList'
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    21
	poolDictionaries:''
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    22
	category:'Interface-Smalltalk'
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    23
!
7021197a578f initial checkin
penk
parents:
diff changeset
    24
7021197a578f initial checkin
penk
parents:
diff changeset
    25
HierarchicalList subclass:#HierarchicalApplicationList
13116
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    26
	instanceVariableNames:''
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    27
	classVariableNames:''
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    28
	poolDictionaries:''
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    29
	privateIn:SettingsDialog
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    30
!
7021197a578f initial checkin
penk
parents:
diff changeset
    31
6688
a191e7822668 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6635
diff changeset
    32
HierarchicalItemWithLabelAndIcon subclass:#ApplicationItem
13116
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    33
	instanceVariableNames:'application applicationClass nameString'
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    34
	classVariableNames:''
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    35
	poolDictionaries:''
9e874b8306a7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13115
diff changeset
    36
	privateIn:SettingsDialog::HierarchicalApplicationList
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    37
!
7021197a578f initial checkin
penk
parents:
diff changeset
    38
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
    39
AbstractSettingsApplication subclass:#SettingsFilenameAppl
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
    40
	instanceVariableNames:'settingsFilenameHolder infoLabelHolder'
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
    41
	classVariableNames:''
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
    42
	poolDictionaries:''
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
    43
	privateIn:SettingsDialog
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
    44
!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
    45
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    46
!SettingsDialog class methodsFor:'documentation'!
7021197a578f initial checkin
penk
parents:
diff changeset
    47
5140
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    48
copyright
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    49
"
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    50
 COPYRIGHT (c) 2002 by eXept Software AG
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    51
              All Rights Reserved
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    52
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    53
 This software is furnished under a license and may be used
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    54
 only in accordance with the terms of that license and with the
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    55
 inclusion of the above copyright notice.   This software may not
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    56
 be provided or otherwise made available to, or used by, any
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    57
 other person.  No title to or ownership of the software is
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    58
 hereby transferred.
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    59
"
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    60
!
36c7da05d814 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5080
diff changeset
    61
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    62
documentation
7021197a578f initial checkin
penk
parents:
diff changeset
    63
"
6019
001740075800 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5975
diff changeset
    64
    This is an application which presents a hierarchy of settings applications.
001740075800 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5975
diff changeset
    65
    It is used (among others) in the launcher's and filebrowser's settings-dialogs.
13114
e14beaa8fbf3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13086
diff changeset
    66
e14beaa8fbf3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13086
diff changeset
    67
    However, it is rather generic and can be setup for any application's setting dialog.
e14beaa8fbf3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13086
diff changeset
    68
    The actual contents (i.e. the arganization tree and tab contents) is provided
e14beaa8fbf3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13086
diff changeset
    69
    by a spec-array (the settingsList).
e14beaa8fbf3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13086
diff changeset
    70
    You will find a default settings list here, but in theory, applications may provide
e14beaa8fbf3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13086
diff changeset
    71
    their own one, or modify a copy of that list for specialized settings dialogs.
13115
bb83def3ead7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13114
diff changeset
    72
    See class >> examples, #defaultSettingsApplicationList
bb83def3ead7 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13114
diff changeset
    73
    and AbstractLauncherApplication >> settingsList for more info.
4494
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
    74
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    75
    [author:]
7021197a578f initial checkin
penk
parents:
diff changeset
    76
        Christian Penk, eXept Software AG
4494
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
    77
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
    78
    [see also:]
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
    79
        AbstractLauncherApplication defaultSettingsApplicationList 
4378
7021197a578f initial checkin
penk
parents:
diff changeset
    80
"
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    81
!
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    82
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    83
examples
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    84
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    85
"
4494
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
    86
  start a Settings Dialog with a language Settings Application under root
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    87
                                                                [exBegin]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    88
    | settingsApp |
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    89
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    90
    settingsApp := self new.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    91
    settingsApp addApplClass:#'AbstractSettingsApplication::LanguageSettingsAppl' 
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    92
                withName:'Language'.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    93
    settingsApp open.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    94
                                                                [exEnd]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    95
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    96
4494
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
    97
  start a Settings Dialog with a language Settings Application under root/Test
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    98
                                                                [exBegin]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
    99
    | settingsApp |
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   100
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   101
    settingsApp := self new.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   102
    settingsApp addApplClass:#'AbstractSettingsApplication::LanguageSettingsAppl' 
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   103
                withName:'Test/Language'.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   104
    settingsApp open.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   105
                                                                [exEnd]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   106
4494
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
   107
  start a Settings Dialog with a language Settings Application under root/Test
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
   108
  with an other category test icon
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   109
                                                                [exBegin]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   110
    | settingsApp |
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   111
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   112
    settingsApp := self new.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   113
    settingsApp addApplClass:#'AbstractSettingsApplication::LanguageSettingsAppl' 
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   114
                withName:'Test/Language'.
4401
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   115
    settingsApp addIcon:ToolbarIconLibrary start22x22Icon forCategory:'Test'.
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   116
    settingsApp open.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   117
                                                                [exEnd]
4401
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   118
4494
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
   119
  start a Settings Dialog with a language and memory Settings Application 
1a4271d84f7e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4470
diff changeset
   120
  in different categories
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   121
                                                                [exBegin]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   122
    | settingsApp |
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   123
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   124
    settingsApp := self new.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   125
    settingsApp addIcon:ToolbarIconLibrary start22x22Icon forCategory:'Test'.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   126
    settingsApp addApplClass:#'AbstractSettingsApplication::LanguageSettingsAppl' 
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   127
                withName:'Test/Language'.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   128
    settingsApp addApplClass:#'AbstractSettingsApplication::MemorySettingsAppl' 
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   129
                withName:'Test2/Memory'.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   130
    settingsApp open.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   131
                                                                [exEnd]
5b1bf011547f add examples
penk
parents: 4397
diff changeset
   132
"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   133
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   134
5399
3fa323d28c8e category rename
Claus Gittinger <cg@exept.de>
parents: 5363
diff changeset
   135
!SettingsDialog class methodsFor:'initialization'!
3fa323d28c8e category rename
Claus Gittinger <cg@exept.de>
parents: 5363
diff changeset
   136
3fa323d28c8e category rename
Claus Gittinger <cg@exept.de>
parents: 5363
diff changeset
   137
initialize
3fa323d28c8e category rename
Claus Gittinger <cg@exept.de>
parents: 5363
diff changeset
   138
    AbstractSettingsApplication autoload.
3fa323d28c8e category rename
Claus Gittinger <cg@exept.de>
parents: 5363
diff changeset
   139
! !
3fa323d28c8e category rename
Claus Gittinger <cg@exept.de>
parents: 5363
diff changeset
   140
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   141
!SettingsDialog class methodsFor:'accessing'!
7021197a578f initial checkin
penk
parents:
diff changeset
   142
7021197a578f initial checkin
penk
parents:
diff changeset
   143
itemClass
7021197a578f initial checkin
penk
parents:
diff changeset
   144
7021197a578f initial checkin
penk
parents:
diff changeset
   145
    ^ SettingsDialog::HierarchicalApplicationList::ApplicationItem
7021197a578f initial checkin
penk
parents:
diff changeset
   146
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   147
7021197a578f initial checkin
penk
parents:
diff changeset
   148
!SettingsDialog class methodsFor:'application icons'!
7021197a578f initial checkin
penk
parents:
diff changeset
   149
7021197a578f initial checkin
penk
parents:
diff changeset
   150
defaultSettingsAppIcon
7021197a578f initial checkin
penk
parents:
diff changeset
   151
15919
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   152
    ^ self settingsIcon2
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   153
!
7021197a578f initial checkin
penk
parents:
diff changeset
   154
15919
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   155
settingsFolderIcon
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   156
    "This resource specification was automatically generated
7021197a578f initial checkin
penk
parents:
diff changeset
   157
     by the ImageEditor of ST/X."
7021197a578f initial checkin
penk
parents:
diff changeset
   158
7021197a578f initial checkin
penk
parents:
diff changeset
   159
    "Do not manually edit this!! If it is corrupted,
7021197a578f initial checkin
penk
parents:
diff changeset
   160
     the ImageEditor may not be able to read the specification."
7021197a578f initial checkin
penk
parents:
diff changeset
   161
7021197a578f initial checkin
penk
parents:
diff changeset
   162
    "
7021197a578f initial checkin
penk
parents:
diff changeset
   163
     self settingsIcon inspect
7021197a578f initial checkin
penk
parents:
diff changeset
   164
     ImageEditor openOnClass:self andSelector:#settingsIcon
7021197a578f initial checkin
penk
parents:
diff changeset
   165
     Icon flushCachedIcons
7021197a578f initial checkin
penk
parents:
diff changeset
   166
    "
7021197a578f initial checkin
penk
parents:
diff changeset
   167
7021197a578f initial checkin
penk
parents:
diff changeset
   168
    <resource: #image>
7021197a578f initial checkin
penk
parents:
diff changeset
   169
7021197a578f initial checkin
penk
parents:
diff changeset
   170
    ^Icon
8476
84fa59f05e50 image resource method fixes (key must be name of method)
Claus Gittinger <cg@exept.de>
parents: 8268
diff changeset
   171
        constantNamed:#'SettingsDialog class settingsIcon'
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   172
        ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
7021197a578f initial checkin
penk
parents:
diff changeset
   173
@@BP#8>O#8>M  @@@@@@@@@@@@@@@@BJ%9&Y&Y&Y%R^B@@@@@@@@@@@@@@BI&J^(*J"(*JZTIIFQ$YFQ$YH@@@@@ JN#(:N#(:N#(9.V%)ZV%)ZKZP@@@HOU
7021197a578f initial checkin
penk
parents:
diff changeset
   174
4=OS4=OL3,''I0<B;/]F3*TE?@@BC5MKR4-KM,\^:.MJ:-;21/:1D_@@@ =SR4-KM3<+K/<J01,R20+R+QG0@@HOT4-KR/,^?-\[H1(Q^WW"1*4Q<@@BC5MKR
7021197a578f initial checkin
penk
parents:
diff changeset
   175
,-CO1<>/+(X*F1(S,Z1D_@@@ =SR4-J:2,[J0X  TU!!BE+F$GS!!=@HOT,+WK.\J/28\&TV=EKAV1RELG  BC5L7H0-KB/HT TV-CKA8>TG@=_H8M ;[H1+::
7021197a578f initial checkin
penk
parents:
diff changeset
   176
-;8\TWECKBD9)T=0]R40AXOE2;F5-;:/G6)EKBD?ZF5KV#ITJ0M>''*B_''ZF]''5,(KA8)X8ENU#XR@ )L^1$YFQ$YFQ$WBA PE@QMVSDON82S@@@@@@@@@@@@
7021197a578f initial checkin
penk
parents:
diff changeset
   177
@@A_@F)IU#DQMWH@@@@@@@@@@@@@@@@@@F1JWC\LMJI''^ @@@@@@@@@@@@@@@F9GU28ROGI%+VY4@@@@@@@@@@@@@GIFXC(IL9(@^VR*X''\@@@@@@@@@@@AU
7021197a578f initial checkin
penk
parents:
diff changeset
   178
IPXKP@@@@@A3XZ4#@@@@@@@@@@@@# 8AK90@@@@@@GX"T @a') ; colorMapFromArray:#[0 0 0 0 60 60 0 84 84 4 45 45 21 20 15 38 38 38 38 192 192 43 43 43 45 45 45 45 151 151 46 99 99 46 147 147 46 151 151 47 47 47 47 88 88 47 151 151 48 48 48 48 144 144 48 145 145 56 53 38 57 57 49 59 52 40 62 56 43 65 65 53 65 65 65 67 67 54 68 68 68 70 70 70 72 64 47 72 72 35 72 72 72 73 69 48 73 73 73 74 74 74 80 44 10 80 62 43 81 81 24 84 132 132 85 85 76 86 86 36 86 86 86 87 87 49 87 87 77 87 193 193 88 88 88 91 101 101 92 193 193 94 117 117 97 97 97 97 193 193 98 195 195 99 120 120 101 75 31 101 107 89 101 193 193 102 193 193 103 103 103 104 86 69 106 193 193 107 120 120 107 121 121 109 109 109 110 96 70 111 78 42 111 119 119 113 113 60 113 113 113 115 115 115 116 116 56 116 116 116 116 145 145 118 147 147 119 121 85 121 150 150 122 151 151 122 152 148 124 124 124 124 146 139 124 151 149 127 118 78 127 119 78 128 128 128 129 120 112 133 157 157 135 216 216 137 137 137 139 207 207 140 206 206 141 141 141 141 201 201 141 202 202 142 136 75 142 201 201 143 128 88 143 143 88 144 144 144 144 204 204 145 85 24 146 126 100 147 82 13 148 83 17 148 86 24 148 123 91 148 127 98 149 122 89 150 150 150 151 151 151 152 152 152 152 155 155 153 129 100 154 154 154 156 156 156 156 199 199 157 157 157 158 158 158 159 159 159 160 160 160 162 179 179 163 161 159 163 163 162 164 151 101 164 160 156 164 163 161 165 165 150 165 165 165 168 168 168 169 169 62 171 171 171 172 172 71 174 117 58 177 177 177 178 178 89 185 174 113 186 178 115 186 186 115 189 179 116 189 189 115 189 189 132 190 190 139 192 192 142 192 192 192 193 193 154 194 194 194 196 196 155 197 197 159 200 200 168 202 202 174 202 202 202 204 204 102 205 205 97 206 206 149 210 210 144 210 210 149 213 213 103 213 213 213 215 215 164 215 215 215 227 212 124 227 213 140 227 217 124 227 220 124 227 227 124 234 156 79 236 236 197 239 214 144 243 201 148 243 243 146 243 243 155 244 244 147 245 232 157 247 165 83 248 215 149 248 231 149 255 170 86 255 227 156 255 228 156 255 229 156 255 230 156 255 231 156 255 233 168 255 234 156 255 235 156 255 235 193 255 236 156 255 237 156 255 238 156 255 239 156 255 239 168 255 240 156 255 240 168 255 241 156 255 242 156 255 242 168 255 243 156 255 244 156 255 244 168 255 245 156 255 245 193 255 246 156 255 247 156 255 248 156 255 248 168 255 249 156 255 250 156 255 250 168 255 251 156 255 251 168 255 252 156 255 253 156 255 253 168 255 255 156 255 255 168 255 255 193 255 255 200]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'O<@@_>@@???@??? ???0???0???0???0???0???8???8???<???<???<???<???8@B? @A?0@C?8@G=<@G0<@G0\') ; yourself); yourself]
5892
Claus Gittinger <cg@exept.de>
parents: 5838
diff changeset
   179
!
Claus Gittinger <cg@exept.de>
parents: 5838
diff changeset
   180
15919
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   181
settingsIcon
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   182
    ^ self settingsIcon2
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   183
!
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   184
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   185
settingsIcon2
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   186
    "This resource specification was automatically generated
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   187
     by the ImageEditor of ST/X."
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   188
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   189
    "Do not manually edit this!! If it is corrupted,
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   190
     the ImageEditor may not be able to read the specification."
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   191
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   192
    "
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   193
     self settingsIcon2 inspect
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   194
     ImageEditor openOnClass:self andSelector:#settingsIcon2
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   195
     Icon flushCachedIcons
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   196
    "
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   197
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   198
    <resource: #image>
5892
Claus Gittinger <cg@exept.de>
parents: 5838
diff changeset
   199
15919
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   200
    ^Icon
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   201
        constantNamed:'SettingsDialog settingsIcon2'
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   202
        ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   203
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BDW%58@@@@@@@@@@@@@@@@
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   204
@@@@@@BFJ!!,ZD0@@@@@@@@@@@@@@@@@@@@BHHEEXP!!X@@A48@@@@@@@@@@@@@@BGI%E/QR0U@D!!SA0@@@@@@@@@@@@BEHEE+P20^O%A0OW0@@@@@@@@@@@@@
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   205
GEE1P20!!NPAO\GT-L@T@@@@@@@@@@A=*QR0!!O6!!-R5(2UB,C@@@@@@@@@@A[JB0^JVNAS%X6D HJS@@@@@@@@@@@E0 XDAPDSU$1C3.L$0@@@@@@@@@@@@@@
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   206
W0A*RUX1DSU2@@@@@@@@@@@@@@@@@@A,R%07CCR"Y7(@@@@@@@@@@@@@@@A.Q5\.D#12YZ5&]@@@@@@@@@@@@@A2Q&@:BSNZ@G%$*&I7@@@@@@@@@@@@URTF
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   207
B4@@@@@@\6F-H0@@@@@@@@@@@H8N@R>\@@@@@@A6H%H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   208
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') colorMapFromArray:#[0 0 0 0 60 60 0 84 84 4 45 45 21 20 15 38 38 38 38 192 192 43 43 43 45 45 45 45 151 151 46 99 99 46 147 147 46 151 151 47 47 47 47 88 88 47 151 151 48 48 48 48 144 144 48 145 145 56 53 38 57 57 49 59 52 40 62 56 43 65 65 53 65 65 65 67 67 54 68 68 68 70 70 70 72 64 47 72 72 35 72 72 72 73 69 48 73 73 73 74 74 74 80 44 10 80 62 43 81 81 24 84 132 132 85 85 76 86 86 36 86 86 86 87 87 49 87 87 77 87 193 193 88 88 88 91 101 101 92 193 193 94 117 117 97 97 97 97 193 193 98 195 195 99 120 120 101 75 31 101 107 89 101 193 193 102 193 193 103 103 103 104 86 69 106 193 193 107 120 120 107 121 121 109 109 109 110 96 70 111 78 42 111 119 119 113 113 60 113 113 113 115 115 115 116 116 56 116 116 116 116 145 145 118 147 147 119 121 85 121 150 150 122 151 151 122 152 148 124 124 124 124 146 139 124 151 149 127 118 78 127 119 78 128 128 128 129 120 112 133 157 157 135 216 216 137 137 137 139 207 207 140 206 206 141 141 141 141 201 201 141 202 202 142 136 75 142 201 201 143 128 88 143 143 88 144 144 144 144 204 204 145 85 24 146 126 100 147 82 13 148 83 17 148 86 24 148 123 91 148 127 98 149 122 89 150 150 150 151 151 151 152 152 152 152 155 155 153 129 100 154 154 154 156 156 156 156 199 199 157 157 157 158 158 158 159 159 159 160 160 160 162 179 179 163 161 159 163 163 162 164 151 101 164 160 156 164 163 161 165 165 150 165 165 165 168 168 168 169 169 62 171 171 171 172 172 71 174 117 58 177 177 177 178 178 89 185 174 113 186 178 115 186 186 115 189 179 116 189 189 115 189 189 132 190 190 139 192 192 142 192 192 192 193 193 154 194 194 194 196 196 155 197 197 159 200 200 168 202 202 174 202 202 202 204 204 102 205 205 97 206 206 149 210 210 144 210 210 149 213 213 103 213 213 213 215 215 164 215 215 215 227 212 124 227 213 140 227 217 124 227 220 124 227 227 124 234 156 79 236 236 197 239 214 144 243 201 148 243 243 146 243 243 155 244 244 147 245 232 157 247 165 83 248 215 149 248 231 149 255 170 86] mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@O@@@_@@@?L@A?\@C?<@C>?@C??@C??@C?>@@/8@@_<@@?>@A?_@A<O@A<G@@@@@@@@@@@@@@@@@'); yourself); yourself]
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   209
!
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   210
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   211
wheelIcon
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   212
    "This resource specification was automatically generated
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   213
     by the ImageEditor of ST/X."
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   214
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   215
    "Do not manually edit this!! If it is corrupted,
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   216
     the ImageEditor may not be able to read the specification."
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   217
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   218
    "
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   219
     self wheelIcon inspect
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   220
     ImageEditor openOnClass:self andSelector:#wheelIcon
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   221
     Icon flushCachedIcons
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   222
    "
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   223
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   224
    <resource: #image>
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   225
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   226
    ^Icon
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   227
        constantNamed:'SettingsDialog wheelIcon'
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   228
        ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   229
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT@@@@@@@@@@@@@@CT@@@@@@@@@@@T0@2H0@5@@@@@@@@D#L"
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   230
H#L!!@@@@@@@@ARH"H"IP@@@@@@@@@2IQURH0@@@@@@@@L"TP@UH#@@@@@@@3H"DDPAH"L0@@@@@QH"TDPEH"DP@@@@@@URH0@2IU@@@@@@@@ARH#L"IP@@@@
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   231
@@@@@2H"H"H0@@@@@@@@L!!T"H%D#@@@@@@@@TP@2H0@U@@@@@@@@@@@BH@@@@@@@@@@@@@@BH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   232
@@@@@@@@@@@@@@@@@@@@@@@@') colorMapFromArray:#[0 0 0 127 127 127 194 194 194 255 255 255 236 233 216 161 161 165] mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@'); yourself); yourself]
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   233
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   234
16201
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   235
!SettingsDialog class methodsFor:'default settingslist'!
5892
Claus Gittinger <cg@exept.de>
parents: 5838
diff changeset
   236
8621
0cc9ef232220 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8476
diff changeset
   237
defaultSettingsApplicationList
16201
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   238
    "unless the settingsDialog is opened with an explicit settings list,
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   239
     this one is used (it is also the one used by the ST/X IDE"
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   240
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   241
    ^ OrderedCollection new
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   242
        addAll:#(          
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   243
                #('Language'                            #'AbstractSettingsApplication::LanguageSettingsAppl'            )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   244
                #('Keyboard Mappings'                   #'AbstractSettingsApplication::KbdMappingSettingsAppl'          )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   245
                #('ViewStyle'                           #'AbstractSettingsApplication::MiscDisplaySettingsAppl'         )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   246
                #('ViewStyle/Style'                     #'AbstractSettingsApplication::StyleSettingsAppl'               )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   247
                #('ViewStyle/Other'                     #'AbstractSettingsApplication::MiscDisplay2SettingsAppl'        )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   248
                #('ViewStyle/Fonts'                     #'Tools::FontSettingsApplication'                               )
15919
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   249
                #('System/System Messages'                     #'AbstractSettingsApplication::SystemMessageSettingsAppl'       )
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   250
                #('System/Memory'                              #'AbstractSettingsApplication::MemorySettingsAppl'              )
fbc792e7c1b3 #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15881
diff changeset
   251
                #('System/Processor & Scheduler'               #'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl'  )
16201
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   252
                #('System/Autoloaded Packages'                 #'AbstractSettingsApplication::AutoloadedPackagesSettingsAppl'  )
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   253
                #('Tools'                               #'AbstractSettingsApplication::ToolsSettingsAppl'               )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   254
                #('Tools/Toolbox'                       #'AbstractSettingsApplication::ToolboxSettingsAppl'             )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   255
                #('Tools/Editor'                        #'AbstractSettingsApplication::EditSettingsAppl'                )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   256
                #('Tools/Editor/Code Editor 2'          #'Tools::CodeView2SettingsAppl'                                 )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   257
                #('Tools/Editor/Syntax Color'           #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   258
                #('Tools/Editor/Code Format'            #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   259
                #('Tools/System Browser'                #'AbstractSettingsApplication::SystemBrowserSettingsAppl'       )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   260
                #('Tools/System Browser/Code Generator' #'AbstractSettingsApplication::CodeGeneratorSettingsAppl'       )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   261
                #('Tools/Changes'                       #'AbstractSettingsApplication::ChangeFileSettingsAppl'          )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   262
                #('Tools/Debugger'                      #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   263
                #('Tools/Terminal'                      #'AbstractSettingsApplication::TerminalViewSettingsAppl'        )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   264
                #('Tools/Compiler'                      #'AbstractSettingsApplication::GeneralCompilerSettingsAppl'     )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   265
                #('Tools/Compiler/ByteCode'             #'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl'    )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   266
                #('Tools/Compiler/STC'                  #'AbstractSettingsApplication::STCCompilerSettingsAppl'         )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   267
                #('Tools/Compiler/Build'                #'AbstractSettingsApplication::BuildSettingsAppl'               )
16165
c7b29d2a5d8e #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15919
diff changeset
   268
                #('Workspace'                           #'AbstractSettingsApplication::WorkspaceSettingsAppl'               )
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   269
                #('Source Code Management'              #'AbstractSettingsApplication::SourceCodeManagementSettingsAppl')
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   270
            );
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   271
        add:
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   272
            "/ see initializeSettingsList for how the following is expanded...
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   273
            { 'Source Code Management/[% managerTypeName]' .     
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   274
                                                 [ AbstractSourceCodeManager availableManagers 
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   275
                                                     collect:[:each | each settingsApplicationClass] ] .    
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   276
                                                                                              '[% defaultIcon]' };
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   277
        addAll: 
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   278
            #(
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   279
                #('Printer'                             #'AbstractSettingsApplication::PrinterSettingsAppl'             )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   280
                #('Display'                             #'AbstractSettingsApplication::DisplaySettingsAppl'             )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   281
                #('Communication'                       nil                                           #communicationIcon)
9275
bff5fac9e455 changed: #defaultSettingsApplicationList
Claus Gittinger <cg@exept.de>
parents: 9186
diff changeset
   282
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   283
                #('Communication/Logging'               #'AbstractSettingsApplication::CommunicationLoggingSettingsAppl')
16165
c7b29d2a5d8e #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15919
diff changeset
   284
                #('Communication/RDoIt & Telnet'        #'AbstractSettingsApplication::RDoItServerSettingsAppl'         )
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   285
                #('Communication/Misc'                  #'AbstractSettingsApplication::MiscCommunicationSettingsAppl'   )
16165
c7b29d2a5d8e #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15919
diff changeset
   286
                #('Communication/Misc/Bridges'          #'AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl'   )
c7b29d2a5d8e #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15919
diff changeset
   287
                #('Communication/Misc/Smalltalk'        #'AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl'   )
c7b29d2a5d8e #UI_ENHANCEMENT
Claus Gittinger <cg@exept.de>
parents: 15919
diff changeset
   288
                #('Communication/Misc/OSI Protocol'     #'AbstractSettingsApplication::OsiSettingsAppl'                 )
16286
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
   289
                "/#('Communication/SQLServer'             #'AbstractSettingsApplication::SQLServerSettingsAppl'           )
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   290
                #('Communication/HTTPServer'            #'AbstractSettingsApplication::HTTPStartServerSettingsApplication'   )
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   291
            );
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   292
        yourself
8621
0cc9ef232220 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8476
diff changeset
   293
0cc9ef232220 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8476
diff changeset
   294
    "Modified: / 16-12-2002 / 18:12:28 / penk"
10905
7ec7015ab744 changed: #defaultSettingsApplicationList
Claus Gittinger <cg@exept.de>
parents: 10824
diff changeset
   295
    "Modified: / 25-11-2011 / 15:28:42 / cg"
16286
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
   296
    "Modified: / 13-04-2016 / 22:49:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16201
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   297
! !
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   298
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   299
!SettingsDialog class methodsFor:'defaults'!
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   300
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   301
defaultIcon
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   302
    <resource: #programImage>
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   303
639512eafece #FEATURE
Claus Gittinger <cg@exept.de>
parents: 16165
diff changeset
   304
    ^ ToolbarIconLibrary stxSettings24x24Icon
8621
0cc9ef232220 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8476
diff changeset
   305
!
0cc9ef232220 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 8476
diff changeset
   306
4397
21f99307336a expand all parents on startup
penk
parents: 4388
diff changeset
   307
expandParents
21f99307336a expand all parents on startup
penk
parents: 4388
diff changeset
   308
21f99307336a expand all parents on startup
penk
parents: 4388
diff changeset
   309
    ^ true
5577
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
   310
!
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
   311
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
   312
resourcePackName
7873
9e88f7f30bca comment
Claus Gittinger <cg@exept.de>
parents: 7719
diff changeset
   313
    "return the name which is used as the fileNameBase of my resource file.
9e88f7f30bca comment
Claus Gittinger <cg@exept.de>
parents: 7719
diff changeset
   314
     Here, use the same resources as the Launcher"
9e88f7f30bca comment
Claus Gittinger <cg@exept.de>
parents: 7719
diff changeset
   315
5577
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
   316
    ^ AbstractLauncherApplication resourcePackName
4397
21f99307336a expand all parents on startup
penk
parents: 4388
diff changeset
   317
! !
21f99307336a expand all parents on startup
penk
parents: 4388
diff changeset
   318
12029
fa8f6787ea95 category of: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11983
diff changeset
   319
!SettingsDialog class methodsFor:'help specs'!
11982
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   320
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   321
flyByHelpSpec
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   322
    <resource: #help>
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   323
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   324
    ^ super flyByHelpSpec addPairsFrom:#(
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   325
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   326
#acceptChangedSettings
13270
73c12fa47f29 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13116
diff changeset
   327
'Accept changed settings for the current ST/X session.\Notice, that these affect the current session only.\To make the current settings the default in the future, save them to the settings file (using the "Save" button).\Also notice, that some values affect new opened windows/tools only.'
11982
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   328
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   329
#discardChangedSettings
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   330
'Discard changes and revert to the current active settings values'
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   331
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   332
#helpOnSettings
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   333
'Show the online documentation on the shown values in an HTML viewer'
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   334
11983
4b9d7ce885b7 changed:
Claus Gittinger <cg@exept.de>
parents: 11982
diff changeset
   335
#loadSettingsFromFile
13270
73c12fa47f29 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13116
diff changeset
   336
'Load the settings from a file.\At initial startup, the "settings.stx" file is read automatically.'
11983
4b9d7ce885b7 changed:
Claus Gittinger <cg@exept.de>
parents: 11982
diff changeset
   337
4b9d7ce885b7 changed:
Claus Gittinger <cg@exept.de>
parents: 11982
diff changeset
   338
#saveSettingsToFile
13270
73c12fa47f29 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13116
diff changeset
   339
'Save the current settings into a file.\The "settings.stx" file is automatically read upon every fresh start of ST/X.'
11983
4b9d7ce885b7 changed:
Claus Gittinger <cg@exept.de>
parents: 11982
diff changeset
   340
11982
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   341
)
13270
73c12fa47f29 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13116
diff changeset
   342
73c12fa47f29 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13116
diff changeset
   343
    "Modified: / 31-07-2013 / 09:52:36 / cg"
11982
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   344
! !
027f2e7a175e added: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 11739
diff changeset
   345
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   346
!SettingsDialog class methodsFor:'interface specs'!
7021197a578f initial checkin
penk
parents:
diff changeset
   347
7021197a578f initial checkin
penk
parents:
diff changeset
   348
windowSpec
7021197a578f initial checkin
penk
parents:
diff changeset
   349
    "This resource specification was automatically generated
7021197a578f initial checkin
penk
parents:
diff changeset
   350
     by the UIPainter of ST/X."
7021197a578f initial checkin
penk
parents:
diff changeset
   351
7021197a578f initial checkin
penk
parents:
diff changeset
   352
    "Do not manually edit this!! If it is corrupted,
7021197a578f initial checkin
penk
parents:
diff changeset
   353
     the UIPainter may not be able to read the specification."
7021197a578f initial checkin
penk
parents:
diff changeset
   354
7021197a578f initial checkin
penk
parents:
diff changeset
   355
    "
7021197a578f initial checkin
penk
parents:
diff changeset
   356
     UIPainter new openOnClass:SettingsDialog andSelector:#windowSpec
7021197a578f initial checkin
penk
parents:
diff changeset
   357
     SettingsDialog new openInterface:#windowSpec
7021197a578f initial checkin
penk
parents:
diff changeset
   358
     SettingsDialog open
7021197a578f initial checkin
penk
parents:
diff changeset
   359
    "
7021197a578f initial checkin
penk
parents:
diff changeset
   360
7021197a578f initial checkin
penk
parents:
diff changeset
   361
    <resource: #canvas>
7021197a578f initial checkin
penk
parents:
diff changeset
   362
7021197a578f initial checkin
penk
parents:
diff changeset
   363
    ^ 
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   364
    #(FullSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   365
       name: windowSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   366
       window: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   367
      (WindowSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   368
         label: 'Settings Dialog'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   369
         name: 'Settings Dialog'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   370
         min: (Point 10 10)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   371
         bounds: (Rectangle 0 0 789 642)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   372
         menu: mainMenu
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   373
         icon: defaultIcon
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   374
       )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   375
       component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   376
      (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   377
         collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   378
          (VariableHorizontalPanelSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   379
             name: 'VariableHorizontalPanel1'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   380
             layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   381
             showHandle: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   382
             snapMode: both
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   383
             component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   384
            (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   385
               collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   386
                (ViewSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   387
                   name: 'Box1'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   388
                   component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   389
                  (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   390
                     collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   391
                      (HierarchicalListViewSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   392
                         name: 'HierarchicalListView1'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   393
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -34 1)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   394
                         model: selectedItem
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   395
                         hasHorizontalScrollBar: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   396
                         hasVerticalScrollBar: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   397
                         listModel: applicationList
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   398
                         useIndex: false
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   399
                         highlightMode: label
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   400
                         showLeftIndicators: false
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   401
                         indicatorSelector: doIndicatorClick:
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   402
                       )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   403
                      (HorizontalPanelViewSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   404
                         name: 'HorizontalPanel2'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   405
                         layout: (LayoutFrame 0 0.0 -34 1 0 1.0 0 1)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   406
                         visibilityChannel: loadAndSaveSettingsItemVisible
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   407
                         horizontalLayout: fitSpace
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   408
                         verticalLayout: center
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   409
                         horizontalSpace: 3
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   410
                         verticalSpace: 3
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   411
                         component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   412
                        (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   413
                           collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   414
                            (ActionButtonSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   415
                               label: 'Save'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   416
                               name: 'Button3'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   417
                               activeHelpKey: saveSettingsToFile
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   418
                               translateLabel: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   419
                               tabable: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   420
                               model: saveSettingsWithoutAskingForFile
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   421
                               extent: (Point 126 22)
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   422
                             )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   423
                            (ActionButtonSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   424
                               label: 'Load From...'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   425
                               name: 'Button2'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   426
                               activeHelpKey: loadSettingsFromFile
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   427
                               translateLabel: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   428
                               tabable: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   429
                               model: loadSettingsFromFile
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   430
                               extent: (Point 126 22)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   431
                             )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   432
                            )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   433
                          
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   434
                         )
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   435
                       )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   436
                      )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   437
                    
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   438
                   )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   439
                 )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   440
                (ViewSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   441
                   name: 'Box2'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   442
                   component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   443
                  (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   444
                     collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   445
                      (ViewSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   446
                         name: 'DisabledSettingsBox'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   447
                         layout: (LayoutFrame 0 0 0 0 0 1 0 1)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   448
                         initiallyInvisible: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   449
                         component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   450
                        (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   451
                           collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   452
                            (LabelSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   453
                               label: 'whyDisabledLabel'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   454
                               name: 'whyDisabledLabel'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   455
                               layout: (LayoutFrame 0 0 0 0 0 1 0 1)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   456
                               translateLabel: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   457
                               labelChannel: whyDisabledInfoHolder
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
   458
                             )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   459
                            )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   460
                          
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   461
                         )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   462
                       )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   463
                      (SubCanvasSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   464
                         name: 'SubCanvas'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   465
                         layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -34 1)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   466
                         level: -1
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   467
                         hasHorizontalScrollBar: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   468
                         hasVerticalScrollBar: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   469
                         miniScrollerHorizontal: false
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   470
                         miniScrollerVertical: false
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   471
                         clientHolder: subCanvasApplicationHolder
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   472
                         createNewBuilder: false
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   473
                         postBuildCallback: postBuildSubCanvas:
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   474
                       )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   475
                      (HorizontalPanelViewSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   476
                         name: 'HorizontalPanel1'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   477
                         layout: (LayoutFrame 0 0.0 -34 1 -16 1.0 0 1)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   478
                         horizontalLayout: fitSpace
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   479
                         verticalLayout: center
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   480
                         horizontalSpace: 3
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   481
                         verticalSpace: 3
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   482
                         reverseOrderIfOKAtLeft: true
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   483
                         component: 
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   484
                        (SpecCollection
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   485
                           collection: (
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   486
                            (ActionButtonSpec
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   487
                               label: 'Help'
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   488
                               name: 'Help'
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   489
                               activeHelpKey: helpOnSettings
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   490
                               translateLabel: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   491
                               tabable: true
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   492
                               model: help
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   493
                               enableChannel: enableHelp
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   494
                               extent: (Point 163 22)
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   495
                             )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   496
                            (ActionButtonSpec
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   497
                               label: 'Discard'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   498
                               name: 'Reload'
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   499
                               activeHelpKey: discardChangedSettings
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   500
                               translateLabel: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   501
                               tabable: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   502
                               model: doReload
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   503
                               enableChannel: enableReload
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   504
                               extent: (Point 163 22)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   505
                             )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   506
                            (ActionButtonSpec
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   507
                               label: 'Apply'
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   508
                               name: 'Apply'
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   509
                               activeHelpKey: acceptChangedSettings
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   510
                               translateLabel: true
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   511
                               tabable: true
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   512
                               model: doSave
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   513
                               enableChannel: enableOK
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   514
                               extent: (Point 164 22)
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   515
                             )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   516
                            )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   517
                          
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   518
                         )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   519
                         keepSpaceForOSXResizeHandleH: true
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   520
                       )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   521
                      )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   522
                    
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   523
                   )
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   524
                 )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   525
                )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   526
              
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   527
             )
15348
2747dbea7233 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15048
diff changeset
   528
             handles: (Any 0.33750000000000002 1.0)
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   529
           )
14318
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   530
          )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   531
        
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   532
       )
9ba7b1cfc4c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14306
diff changeset
   533
     )
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   534
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   535
4548
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   536
!SettingsDialog class methodsFor:'menu actions'!
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   537
5465
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
   538
askForFileAndSaveSettings
4552
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   539
    |fileName resources|
4548
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   540
4552
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   541
    resources := self classResources.
4548
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   542
4552
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   543
    fileName := Dialog 
9608
0f2613d5fc3f changed:
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   544
        requestFileNameForSave:(resources string:'Save Settings in File') 
4552
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   545
        default:'settings.stx'
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   546
        ok:(resources string:'Save') 
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   547
        abort:(resources string:'Cancel') 
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   548
        pattern:'*.stx'
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   549
        fromDirectory:'.'.
4548
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   550
4552
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   551
    fileName size ~~ 0 ifTrue:[
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   552
        "not canceled"
4826
14296f826d27 next step
penk
parents: 4740
diff changeset
   553
        self saveSettingsTo:fileName.
4552
a8df4916183a saveSettings moved to UserPreferences
Claus Gittinger <cg@exept.de>
parents: 4548
diff changeset
   554
    ]
9608
0f2613d5fc3f changed:
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   555
0f2613d5fc3f changed:
Claus Gittinger <cg@exept.de>
parents: 9558
diff changeset
   556
    "Modified: / 27-10-2010 / 11:24:54 / cg"
4826
14296f826d27 next step
penk
parents: 4740
diff changeset
   557
!
14296f826d27 next step
penk
parents: 4740
diff changeset
   558
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   559
currentSettingsFilename
8119
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   560
    | file |
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   561
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   562
    "JV@2012-02-07: Changed to save preferences back to file from which
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   563
     they have been loaded (if known). If no such file is known,
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   564
     save to DEFAULT USER SETTINGS file (default ~/.smalltalk/settings.rc)"
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   565
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   566
    file := UserPreferences current at: #settingsFilename ifAbsent:[nil].
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   567
    file isNil ifTrue:[
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   568
        file := UserPreferences defaultUserSettingsFile.
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   569
    ].
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   570
    ^ file.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   571
!
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   572
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   573
saveSettingsAsDefaultSettings
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   574
    self saveSettingsTo:(self currentSettingsFilename).
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   575
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
   576
    "Modified: / 07-02-2012 / 00:45:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8119
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   577
!
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   578
4826
14296f826d27 next step
penk
parents: 4740
diff changeset
   579
saveSettingsTo:file
14296f826d27 next step
penk
parents: 4740
diff changeset
   580
    [
14296f826d27 next step
penk
parents: 4740
diff changeset
   581
        UserPreferences current saveIn:file.
14296f826d27 next step
penk
parents: 4740
diff changeset
   582
    ] on:StreamError do:[:ex|
8119
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   583
        self warn:(self resources 
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   584
                stringWithCRs:'Cannot save settings into: %1\(%2)' 
11739
fe57ab24ba67 changed:
Stefan Vogel <sv@exept.de>
parents: 10905
diff changeset
   585
                with:(file asAbsoluteFilename asString) 
8119
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   586
                with:ex description).
4826
14296f826d27 next step
penk
parents: 4740
diff changeset
   587
    ]
14296f826d27 next step
penk
parents: 4740
diff changeset
   588
!
14296f826d27 next step
penk
parents: 4740
diff changeset
   589
5465
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
   590
saveSettingsWithoutAskingForFile
8119
f3b1dfbeb5ce *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8034
diff changeset
   591
    self saveSettingsAsDefaultSettings.
4548
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   592
! !
337cca67b97e *** empty log message ***
penk
parents: 4494
diff changeset
   593
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   594
!SettingsDialog class methodsFor:'menu specs'!
7021197a578f initial checkin
penk
parents:
diff changeset
   595
7021197a578f initial checkin
penk
parents:
diff changeset
   596
mainMenu
7021197a578f initial checkin
penk
parents:
diff changeset
   597
    "This resource specification was automatically generated
7021197a578f initial checkin
penk
parents:
diff changeset
   598
     by the MenuEditor of ST/X."
7021197a578f initial checkin
penk
parents:
diff changeset
   599
7021197a578f initial checkin
penk
parents:
diff changeset
   600
    "Do not manually edit this!! If it is corrupted,
7021197a578f initial checkin
penk
parents:
diff changeset
   601
     the MenuEditor may not be able to read the specification."
7021197a578f initial checkin
penk
parents:
diff changeset
   602
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   603
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   604
    "
7021197a578f initial checkin
penk
parents:
diff changeset
   605
     MenuEditor new openOnClass:SettingsDialog andSelector:#mainMenu
7021197a578f initial checkin
penk
parents:
diff changeset
   606
     (Menu new fromLiteralArrayEncoding:(SettingsDialog mainMenu)) startUp
7021197a578f initial checkin
penk
parents:
diff changeset
   607
    "
7021197a578f initial checkin
penk
parents:
diff changeset
   608
7021197a578f initial checkin
penk
parents:
diff changeset
   609
    <resource: #menu>
7021197a578f initial checkin
penk
parents:
diff changeset
   610
7021197a578f initial checkin
penk
parents:
diff changeset
   611
    ^ 
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   612
     #(Menu
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   613
        (
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   614
         (MenuItem
7972
Claus Gittinger <cg@exept.de>
parents: 7895
diff changeset
   615
            label: '&File'
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   616
            submenu: 
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   617
           (Menu
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   618
              (
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   619
               (MenuItem
7972
Claus Gittinger <cg@exept.de>
parents: 7895
diff changeset
   620
                  label: '&Load From...'
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   621
                  itemValue: loadSettingsFromFile
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
   622
                  isVisible: loadAndSaveSettingsItemVisible
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   623
                )
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   624
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   625
                  label: '-'
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
   626
                  isVisible: loadAndSaveSettingsItemVisible
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   627
                )
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   628
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   629
                  label: 'Save'
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   630
                  itemValue: saveSettingsWithoutAskingForFile
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
   631
                  isVisible: loadAndSaveSettingsItemVisible
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   632
                )
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   633
               (MenuItem
7972
Claus Gittinger <cg@exept.de>
parents: 7895
diff changeset
   634
                  label: '&Save As...'
7473
3c436374677d *** empty log message ***
sr
parents: 7172
diff changeset
   635
                  itemValue: askForFileAndSaveSettings
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
   636
                  isVisible: loadAndSaveSettingsItemVisible
4740
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
   637
                )
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   638
               (MenuItem
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   639
                  label: '-'
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
   640
                  isVisible: loadAndSaveSettingsItemVisible
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   641
                )
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   642
               (MenuItem
7972
Claus Gittinger <cg@exept.de>
parents: 7895
diff changeset
   643
                  label: 'E&xit'
5624
Claus Gittinger <cg@exept.de>
parents: 5577
diff changeset
   644
                  itemValue: closeRequest
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   645
                )
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   646
               )
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   647
              nil
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   648
              nil
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   649
            )
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   650
          )
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   651
         (MenuItem
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   652
            label: 'View'
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   653
            submenu: 
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   654
           (Menu
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   655
              (
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   656
               (MenuItem
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   657
                  label: 'Expand All'
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   658
                  itemValue: menuExpandAll
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   659
                )
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   660
               (MenuItem
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   661
                  label: 'Collapse All'
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
   662
                  itemValue: menuCollapseAll
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   663
                )
7021197a578f initial checkin
penk
parents:
diff changeset
   664
               )
7021197a578f initial checkin
penk
parents:
diff changeset
   665
              nil
7021197a578f initial checkin
penk
parents:
diff changeset
   666
              nil
7021197a578f initial checkin
penk
parents:
diff changeset
   667
            )
7021197a578f initial checkin
penk
parents:
diff changeset
   668
          )
7021197a578f initial checkin
penk
parents:
diff changeset
   669
         )
7021197a578f initial checkin
penk
parents:
diff changeset
   670
        nil
7021197a578f initial checkin
penk
parents:
diff changeset
   671
        nil
7021197a578f initial checkin
penk
parents:
diff changeset
   672
      )
7021197a578f initial checkin
penk
parents:
diff changeset
   673
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   674
14555
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   675
!SettingsDialog class methodsFor:'startup'!
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   676
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   677
openWithList:settingsList label:label
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   678
    ^ self 
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   679
        openWithList:settingsList 
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   680
        label:label 
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   681
        initialSettingsClass:nil
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   682
!
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   683
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   684
openWithList:settingsList label:label initialSettingsClass:settingsClassToSelectOrNil
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   685
    "given a list of page-label/class pairs,
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   686
     open a settings dialog showing that set of items."
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   687
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   688
    |settingsApp|
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   689
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   690
    settingsApp := SettingsDialog new.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   691
    settingsApp installSettingsEntries:settingsList.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   692
    settingsApp allButOpen.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   693
    settingsApp showRoot: false.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   694
    settingsApp window label:label.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   695
    settingsClassToSelectOrNil notNil ifTrue:[
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   696
        settingsApp selectItemWithClass: settingsClassToSelectOrNil.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   697
    ].
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   698
    settingsApp openWindow.
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   699
    ^ settingsApp
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   700
! !
64c3a5f9e181 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14476
diff changeset
   701
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   702
!SettingsDialog methodsFor:'accessing'!
7021197a578f initial checkin
penk
parents:
diff changeset
   703
7021197a578f initial checkin
penk
parents:
diff changeset
   704
requestor
7021197a578f initial checkin
penk
parents:
diff changeset
   705
    "return the 'requestor' of the SettingsDialog"
7021197a578f initial checkin
penk
parents:
diff changeset
   706
7021197a578f initial checkin
penk
parents:
diff changeset
   707
    ^ requestor
7021197a578f initial checkin
penk
parents:
diff changeset
   708
!
7021197a578f initial checkin
penk
parents:
diff changeset
   709
7021197a578f initial checkin
penk
parents:
diff changeset
   710
requestor:something
7021197a578f initial checkin
penk
parents:
diff changeset
   711
    requestor := something.
6124
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
   712
!
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
   713
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   714
rootItem
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   715
    ^ self applicationList root.
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   716
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   717
    "Created: / 03-11-2007 / 14:23:01 / cg"
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   718
!
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   719
6126
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
   720
rootItemLabel
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   721
    ^ self rootItem label.
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   722
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   723
    "Modified: / 03-11-2007 / 14:23:18 / cg"
6126
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
   724
!
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
   725
6124
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
   726
rootItemLabel:aString
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   727
    self rootItem label:aString.
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   728
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
   729
    "Modified: / 03-11-2007 / 14:23:16 / cg"
6124
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
   730
!
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
   731
13086
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   732
selectedItemsName
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   733
    |sel|
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   734
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   735
    (sel := self selectedItem value) notNil ifTrue:[
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   736
        ^ sel value nameString
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   737
    ].
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   738
    ^ nil.
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   739
!
4964c4ee8a9c class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12765
diff changeset
   740
6124
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
   741
showRoot:aBoolean
10824
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   742
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   743
    self applicationList showRoot:aBoolean.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   744
    aBoolean ifFalse:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   745
        self applicationList root children do:[:e|e expand].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   746
    ]
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   747
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
   748
    "Modified: / 15-10-2011 / 12:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14306
9dfa3f159bd3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14305
diff changeset
   749
!
9dfa3f159bd3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14305
diff changeset
   750
9dfa3f159bd3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14305
diff changeset
   751
subCanvasApplication
9dfa3f159bd3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14305
diff changeset
   752
    ^ self subCanvasApplicationHolder value
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   753
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   754
7021197a578f initial checkin
penk
parents:
diff changeset
   755
!SettingsDialog methodsFor:'actions'!
7021197a578f initial checkin
penk
parents:
diff changeset
   756
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   757
changeLabelTo:aLabel application:aApplication
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   758
    | item |
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   759
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   760
    item := self getItemByApplication:aApplication.
5043
4ea8ed8336f4 checkin from browser
penk
parents: 5026
diff changeset
   761
    item notNil ifTrue:[
4ea8ed8336f4 checkin from browser
penk
parents: 5026
diff changeset
   762
        item label:aLabel.
4ea8ed8336f4 checkin from browser
penk
parents: 5026
diff changeset
   763
        item changed.
4ea8ed8336f4 checkin from browser
penk
parents: 5026
diff changeset
   764
    ].
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   765
!
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   766
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   767
destroyAll
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   768
    self realApplicationsDo:[:app | app close ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   769
!
7021197a578f initial checkin
penk
parents:
diff changeset
   770
7021197a578f initial checkin
penk
parents:
diff changeset
   771
doIndicatorClick:index 
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   772
    "handle a click on the indicator"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   773
7021197a578f initial checkin
penk
parents:
diff changeset
   774
    (self applicationList at:index) toggleExpand
7021197a578f initial checkin
penk
parents:
diff changeset
   775
!
7021197a578f initial checkin
penk
parents:
diff changeset
   776
7021197a578f initial checkin
penk
parents:
diff changeset
   777
doReload
4574
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
   778
    |item|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   779
7021197a578f initial checkin
penk
parents:
diff changeset
   780
    item := self selectedItem value.
4574
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
   781
    (item isNil or:[item isCategory or:[item application isNil]]) ifTrue:[
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
   782
        ^ self
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
   783
    ].
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
   784
    item application readSettings
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   785
!
7021197a578f initial checkin
penk
parents:
diff changeset
   786
7021197a578f initial checkin
penk
parents:
diff changeset
   787
doSave
7021197a578f initial checkin
penk
parents:
diff changeset
   788
    | item |
7021197a578f initial checkin
penk
parents:
diff changeset
   789
7021197a578f initial checkin
penk
parents:
diff changeset
   790
    item := self selectedItem value.
7021197a578f initial checkin
penk
parents:
diff changeset
   791
    (item isNil or:[item isCategory or:[item application isNil]]) ifTrue:[ ^ self].
4388
4302767e1720 ressources from AbstractLauncherApplication
penk
parents: 4384
diff changeset
   792
    self withWaitCursorDo:[
4574
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
   793
        item application saveSettingsIfUnsavedChangesArePresent.
4388
4302767e1720 ressources from AbstractLauncherApplication
penk
parents: 4384
diff changeset
   794
    ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   795
!
7021197a578f initial checkin
penk
parents:
diff changeset
   796
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   797
expandItemForApplication:aApplication
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   798
    | item |
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   799
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   800
    item := self applicationList detect:[:item | item application = aApplication] ifNone:[nil].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   801
    item notNil ifTrue:[
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   802
        item expand
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   803
    ].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   804
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   805
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   806
help
8034
0e1c05cd4bfa *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7972
diff changeset
   807
    |item |
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   808
7021197a578f initial checkin
penk
parents:
diff changeset
   809
    item := self selectedItem value.
7021197a578f initial checkin
penk
parents:
diff changeset
   810
    (item isNil or:[item isCategory or:[item application isNil]]) ifTrue:[ ^ self].
7021197a578f initial checkin
penk
parents:
diff changeset
   811
    item application help.
7021197a578f initial checkin
penk
parents:
diff changeset
   812
!
7021197a578f initial checkin
penk
parents:
diff changeset
   813
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   814
reopenLauncher
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   815
    "force the launcher to reopen an instance of itself.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   816
     Done whenever relevant look&feel settings are changed
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   817
     (actually a workaround - a much better solution would be to teach
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   818
     all smalltalk applications/views to dynamically update their style)."
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   819
14968
b6fc994956c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14872
diff changeset
   820
    |app|
b6fc994956c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14872
diff changeset
   821
b6fc994956c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14872
diff changeset
   822
    (app := self requestor) notNil ifTrue:[
b6fc994956c4 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14872
diff changeset
   823
        app reopenLauncher.
4740
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
   824
    ] ifFalse:[
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
   825
        NewLauncher current reopenLauncher.
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
   826
    ].
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
   827
!
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
   828
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   829
sendLoadRequestToAll
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   830
    "ask all subApps to reload their idea of the current settings.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   831
     Do this, after userPrefs have been loaded from a file,
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   832
     while a settingsDialog is open"
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   833
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   834
    self realApplicationsDo:[:app |
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   835
        app readSettings.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   836
        app clearDidModifySettings.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   837
    ].
9558
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
   838
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
   839
    "Modified: / 24-08-2010 / 18:41:36 / sr"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   840
!
7021197a578f initial checkin
penk
parents:
diff changeset
   841
7021197a578f initial checkin
penk
parents:
diff changeset
   842
sendSaveRequestToAll
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   843
    "give all subapps a chance to apply any changes.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   844
     No longer needed, as we do this at the time the subApp
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   845
     is changed; so only the current app needs this chance again,
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   846
     when about to close (seesendSaveRequestToCurrent) "
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   847
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   848
    self realApplicationsDo:[ :app |
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   849
        app saveRequest ifFalse:[
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   850
            ^ false
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   851
        ].
7021197a578f initial checkin
penk
parents:
diff changeset
   852
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
   853
    ^ true
4659
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   854
!
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   855
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   856
sendSaveRequestToCurrent
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   857
    "when about to close the dialog, give the current
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   858
     subapp a chance to apply any changes"
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   859
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   860
    | item currentApp |
4659
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   861
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   862
    item := self selectedItem value.
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   863
    (item isNil 
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   864
        or:[item isCategory 
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   865
        or:[(currentApp := item application) isNil]]
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   866
    ) ifTrue:[ ^ true].
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   867
4659
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   868
    self withWaitCursorDo:[
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
   869
        ^ currentApp saveRequest.
4659
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   870
    ].
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
   871
    ^ true
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   872
! !
7021197a578f initial checkin
penk
parents:
diff changeset
   873
7021197a578f initial checkin
penk
parents:
diff changeset
   874
!SettingsDialog methodsFor:'application list access'!
7021197a578f initial checkin
penk
parents:
diff changeset
   875
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   876
addApplClass:aClassName forApplication:anApplication label:aLabel expand:aBoolean
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   877
    "add an application to the settingsTree, take the icon from the application classes defaultIcon method"
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   878
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   879
    | class |
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   880
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   881
    class := Smalltalk classNamed:aClassName.
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   882
    class isNil ifTrue:[
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   883
        ('SettingsDialog [warning]: can''t find ', aClassName asString, ' to register') infoPrintCR.
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   884
        aClassName isString ifFalse:[
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   885
            thisContext fullPrintAll.
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   886
        ].
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   887
        ^ nil
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   888
    ].
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   889
    class autoload.
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   890
    ^ self createItemForApplication:anApplication class:aClassName label:aLabel icon:class defaultIcon expandParent:aBoolean replaceExisting:false
9781
9896a1dff42c changed:
Claus Gittinger <cg@exept.de>
parents: 9617
diff changeset
   891
9896a1dff42c changed:
Claus Gittinger <cg@exept.de>
parents: 9617
diff changeset
   892
    "Modified: / 14-02-2011 / 20:10:11 / cg"
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   893
!
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
   894
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   895
addApplClass:aClass withName:aName
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   896
   "add an application to the settingsTree, take the icon from the application classes defaultIcon method"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   897
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   898
    ^ self addApplClass:aClass withName:aName icon:nil.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   899
!
7021197a578f initial checkin
penk
parents:
diff changeset
   900
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   901
addApplClass:aClass withName:aName expand:aBoolean
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   902
   "add an application to the settingsTree, take the icon from the application classes defaultIcon method"
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   903
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   904
    ^ self addApplClass:aClass withName:aName icon:nil expand:aBoolean.
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   905
!
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   906
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   907
addApplClass:aClass withName:aName icon:icon
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   908
    ^ self addApplClass:aClass withName:aName icon:icon expand:false
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   909
!
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   910
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   911
addApplClass:aClassName withName:aName icon:icon expand:doExpand
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   912
    |applicationLabel locIcon locClass|
7021197a578f initial checkin
penk
parents:
diff changeset
   913
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
   914
"/    (self applicationNames includes:aName) ifTrue:[
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
   915
"/        ^ self getItemForName:aName.
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
   916
"/    ].
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
   917
    
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   918
    aClassName isNil ifTrue:[ 
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
   919
        self addIcon:icon forCategory:aName.
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
   920
        ^ self 
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
   921
    ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   922
    self addCategoriesFor:aName.
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
   923
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   924
    locIcon := icon.
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   925
    locClass := Smalltalk classNamed:aClassName.
4469
27a610981cb5 *** empty log message ***
penk
parents: 4435
diff changeset
   926
    locClass isNil ifTrue:[
15356
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   927
        ('SettingsDialog [warning]: can''t find ', aClassName asString, ' to register') infoPrintCR.
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   928
        aClassName isString ifFalse:[
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   929
            thisContext fullPrintAll.
f61e4fef74fb class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15348
diff changeset
   930
        ].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   931
        ^ nil
4469
27a610981cb5 *** empty log message ***
penk
parents: 4435
diff changeset
   932
    ].
4838
60dfab83c50b autoload is understood by all classes (dummy if already loaded)
Claus Gittinger <cg@exept.de>
parents: 4826
diff changeset
   933
    locClass autoload.
60dfab83c50b autoload is understood by all classes (dummy if already loaded)
Claus Gittinger <cg@exept.de>
parents: 4826
diff changeset
   934
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   935
    (locIcon isNil and:[locClass respondsTo:#defaultIcon]) ifTrue:[ locIcon := locClass defaultIcon].
7021197a578f initial checkin
penk
parents:
diff changeset
   936
    applicationLabel := (aName asCollectionOfSubstringsSeparatedBy:$/) last.
5577
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
   937
6325
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
   938
    ^ self 
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
   939
        createItemName:aName 
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
   940
        label:applicationLabel 
6325
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
   941
        class:locClass 
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
   942
        icon:locIcon 
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
   943
        expandParent:doExpand 
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
   944
        replaceExisting:false
9781
9896a1dff42c changed:
Claus Gittinger <cg@exept.de>
parents: 9617
diff changeset
   945
9896a1dff42c changed:
Claus Gittinger <cg@exept.de>
parents: 9617
diff changeset
   946
    "Modified: / 14-02-2011 / 20:10:04 / cg"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   947
!
7021197a578f initial checkin
penk
parents:
diff changeset
   948
7021197a578f initial checkin
penk
parents:
diff changeset
   949
addIcon:aIcon forCategory:aCategoryName
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   950
    "add a new category Icon for a category"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   951
4401
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   952
    |existingItem|
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   953
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   954
    self categoryIcons at:aCategoryName put:aIcon.
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   955
    existingItem := self getItemForName:aCategoryName.
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   956
    existingItem notNil ifTrue:[
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   957
        existingItem icon:aIcon
cf3b37e747bd *** empty log message ***
penk
parents: 4400
diff changeset
   958
    ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
   959
!
7021197a578f initial checkin
penk
parents:
diff changeset
   960
7021197a578f initial checkin
penk
parents:
diff changeset
   961
applicationNames
7021197a578f initial checkin
penk
parents:
diff changeset
   962
    ^ self applicationList collect:[:item | item nameString].
7021197a578f initial checkin
penk
parents:
diff changeset
   963
!
7021197a578f initial checkin
penk
parents:
diff changeset
   964
7021197a578f initial checkin
penk
parents:
diff changeset
   965
categoryIcons
7021197a578f initial checkin
penk
parents:
diff changeset
   966
    categoryIcons isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
   967
        categoryIcons := Dictionary new.
7021197a578f initial checkin
penk
parents:
diff changeset
   968
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
   969
    ^ categoryIcons 
7021197a578f initial checkin
penk
parents:
diff changeset
   970
!
7021197a578f initial checkin
penk
parents:
diff changeset
   971
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   972
childrenApplicationItemFor:aApplication fromItem:anItem
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   973
    anItem application = aApplication ifTrue:[
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   974
        ^ anItem
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   975
    ].
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   976
    anItem hasChildren ifTrue:[
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   977
        anItem children do:[:aChildItem |
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   978
            ^ self childrenApplicationItemFor:aApplication fromItem:aChildItem.
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   979
        ].
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   980
    ].
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   981
    ^ nil
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   982
!
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   983
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   984
getAllChildrenAppsForApplication:aApplication 
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   985
    ^ self getAllChildrenAppsForApplication:aApplication matchBlock:nil
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   986
!
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
   987
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   988
getAllChildrenAppsForApplication:aApplication childrenClass:aClass 
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   989
    |matchBlock|
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   990
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   991
    matchBlock := [:aSubApplication | aSubApplication class == aClass ].
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   992
    ^ self getAllChildrenAppsForApplication:aApplication matchBlock:matchBlock
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   993
!
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   994
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   995
getAllChildrenAppsForApplication:aApplication matchBlock:aMatchBlock
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
   996
    | children |
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   997
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
   998
    children := self getAllChildrenByApplication:aApplication.
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
   999
    aMatchBlock notNil ifTrue:[
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
  1000
        children := children select:[:aChild | aMatchBlock value:(aChild application)]
4716
3df92d455996 *** empty log message ***
penk
parents: 4703
diff changeset
  1001
    ].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1002
    ^ children collect:[:item | item application].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1003
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1004
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1005
getAllChildrenByApplication:aApplication
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1006
    | item |
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1007
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1008
    item := self getItemByApplication:aApplication.
4716
3df92d455996 *** empty log message ***
penk
parents: 4703
diff changeset
  1009
    item isNil ifTrue:[ ^ #()].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1010
    ^ item children.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1011
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1012
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1013
getApplicationsByClass:aClass
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1014
    | classEntries|
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1015
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1016
    self applicationList isNil ifTrue:[
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1017
        self initialize.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1018
    ].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1019
    classEntries := self applicationList select:[:aEntry | aEntry application class == aClass].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1020
    ^ classEntries collect:[:aItem | aItem application].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1021
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1022
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1023
getItemByApplication:anApplication
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1024
    |item|
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1025
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1026
    self applicationList do:[:anItem |
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1027
        item := self childrenApplicationItemFor:anApplication fromItem:anItem.
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1028
        item notNil ifTrue:[ ^ item ].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1029
    ].
5043
4ea8ed8336f4 checkin from browser
penk
parents: 5026
diff changeset
  1030
    ^ nil
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1031
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1032
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1033
getNameOfApplication:aApplication
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1034
    |item|
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1035
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1036
    self applicationList do:[:anItem |
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1037
        item := self childrenApplicationItemFor:aApplication fromItem:anItem.
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1038
        item notNil ifTrue:[ ^ item nameString].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1039
    ].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1040
    ^ ''
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1041
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1042
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1043
installSettingsEntries:aCollection
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1044
    aCollection do:[ :entry| 
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1045
        self installSettingsEntry:entry.
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1046
    ].
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1047
!
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1048
10824
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1049
installSettingsEntries: entries expand: expand
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1050
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1051
    "Installs given settings list. If expand is true,
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1052
     dynamic settings list is expanded"
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1053
    
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1054
    entries do:[ :entry| 
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1055
        self installSettingsEntry:entry expand: expand
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1056
    ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1057
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1058
    "Created: / 15-10-2011 / 11:45:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1059
!
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1060
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1061
installSettingsEntry:entry
4895
ccc8b0f0b666 *** empty log message ***
Michael Beyl <mb@exept.de>
parents: 4893
diff changeset
  1062
    |applName applClassOrNil iconHolderOrNil|
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1063
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1064
    applName := entry at:1.
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1065
    applClassOrNil := entry at:2.
4895
ccc8b0f0b666 *** empty log message ***
Michael Beyl <mb@exept.de>
parents: 4893
diff changeset
  1066
    iconHolderOrNil := entry at:3 ifAbsent:nil.
ccc8b0f0b666 *** empty log message ***
Michael Beyl <mb@exept.de>
parents: 4893
diff changeset
  1067
    self addApplClass:applClassOrNil withName:applName icon:iconHolderOrNil value
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1068
!
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1069
10824
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1070
installSettingsEntry:entry expand: expand
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1071
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1072
    | applName applClassOrNil iconHolderOrNil cookedList className code classList name nameCode nameBlock nameList|
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1073
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1074
    expand ifFalse:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1075
        applName := entry at:1.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1076
        applClassOrNil := entry at:2.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1077
        iconHolderOrNil := entry at:3 ifAbsent:nil.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1078
        self addApplClass:applClassOrNil withName:applName icon:iconHolderOrNil value.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1079
        ^self
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1080
    ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1081
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1082
    cookedList := OrderedCollection new.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1083
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1084
    className := entry at:2 ifAbsent:nil.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1085
    (className notNil and:[className startsWith:'[']) ifTrue:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1086
        code := className copyFrom:2 to:(className size - 1).
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1087
        classList := (Parser evaluate:code) select:[:clsOrNil | clsOrNil notNil].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1088
        name := entry at:1.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1089
        self assert:(name includesString:'[').
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1090
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1091
        nameCode := name copyFrom:(name indexOf:$[)+1 to:(name indexOf:$])-1.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1092
        nameCode := '^ [:each | ' , (nameCode copyReplaceString:'%' withString:'each') ,']'.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1093
        nameBlock := Parser evaluate:nameCode.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1094
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1095
        nameList := classList collect:nameBlock.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1096
        nameList sortWith:classList.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1097
        nameList with:classList do:[:eachName :eachClass |
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1098
            |newEntry|
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1099
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1100
            newEntry := entry copy.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1101
            newEntry at:1 put:(name copyTo:(name indexOf:$[)-1),eachName.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1102
            newEntry at:2 put:eachClass name.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1103
            cookedList add:newEntry.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1104
        ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1105
    ] ifFalse:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1106
        (className isNil "a directory entry"
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1107
        or:[ (Smalltalk at:className) notNil "a valid entry"]) ifTrue:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1108
            cookedList add:entry.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1109
        ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1110
    ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1111
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1112
    cookedList do:[:eachEntry |
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1113
        |iconCodeOrSelector iconCode iconBlock newEntry|
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1114
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1115
        iconCodeOrSelector := eachEntry at:3 ifAbsent:nil.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1116
        iconCodeOrSelector isNil ifTrue:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1117
            newEntry := eachEntry
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1118
        ] ifFalse:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1119
            newEntry := eachEntry copy.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1120
            (iconCodeOrSelector startsWith:'[') ifTrue:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1121
                iconCode := iconCodeOrSelector copyFrom:(iconCodeOrSelector indexOf:$[)+1 to:(iconCodeOrSelector indexOf:$])-1.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1122
                iconCode := '^ [:each | ' , (iconCode copyReplaceString:'%' withString:'each') ,']'.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1123
                iconBlock := Parser evaluate:iconCode.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1124
                newEntry at:3 put:(iconBlock value:(Smalltalk classNamed:(eachEntry at:2))).
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1125
            ] ifFalse:[
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1126
                newEntry at:3 put:(self perform:iconCodeOrSelector).
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1127
            ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1128
        ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1129
        self installSettingsEntry:newEntry expand: false.
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1130
    ].
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1131
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1132
    "
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1133
     self withAllSubclassesDo:[:cls | cls initializeSettingsList ]
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1134
    "
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1135
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1136
    "Modified: / 16-12-2002 / 18:12:50 / penk"
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1137
    "Modified: / 20-04-2011 / 17:03:33 / cg"
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1138
    "Created: / 15-10-2011 / 11:49:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1139
!
b27d09ac800b Added #installEntries:expand:
vrany
parents: 10742
diff changeset
  1140
5345
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1141
parentApplicationFor:aApplication
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1142
    |item parent|
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1143
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1144
    item := (self getItemByApplication:aApplication).
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1145
    parent := item parent.
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1146
    parent notNil ifTrue:[
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1147
        ^ parent application.
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1148
    ].
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1149
    ^ nil
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1150
!
66a91b703580 access to parent application
penk
parents: 5253
diff changeset
  1151
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1152
remApplClassByName:aName 
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1153
    "remove an application from the settingsTree"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1154
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1155
    |item|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1156
7021197a578f initial checkin
penk
parents:
diff changeset
  1157
    item := self getItemForName:aName.
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1158
    self removeItem:item 
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1159
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1160
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1161
removeAllApplicationsByClass:aClass
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1162
    |apps|
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1163
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1164
    apps := self getApplicationsByClass:aClass.
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1165
    apps do:[:aApp |
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1166
        self removeByApplication:aApp.
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1167
    ].
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1168
!
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1169
5050
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1170
removeAllSubApplicationsFor:aApp
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1171
    |apps|
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1172
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1173
    apps := self getAllChildrenAppsForApplication:aApp.
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1174
    apps do:[:aApp |
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1175
        self removeByApplication:aApp.
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1176
    ].
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1177
!
566eab79b16b checkin from browser
penk
parents: 5043
diff changeset
  1178
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1179
removeApplicationByClass:aClass
7021197a578f initial checkin
penk
parents:
diff changeset
  1180
    | classEntries|
7021197a578f initial checkin
penk
parents:
diff changeset
  1181
7021197a578f initial checkin
penk
parents:
diff changeset
  1182
    self applicationList isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1183
        self initialize.
7021197a578f initial checkin
penk
parents:
diff changeset
  1184
    ].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1185
    classEntries := self applicationList select:[:aEntry | aEntry application class == aClass].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1186
    classEntries do:[:aItem |
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1187
        self removeItem:aItem.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1188
    ].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1189
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1190
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1191
removeApplicationFromTree:aApplication
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1192
    | classEntries|
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1193
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1194
    self applicationList isNil ifTrue:[
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1195
        self initialize.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1196
    ].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1197
    classEntries := self applicationList select:[:aEntry | aEntry application == aApplication].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1198
    classEntries do:[:aItem |
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1199
        self removeItem:aItem.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1200
    ].
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1201
    self applicationList removeAllFoundIn:classEntries.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1202
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1203
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1204
removeByApplication:aApplication
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1205
    | item |
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1206
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1207
    item := self getItemByApplication:aApplication.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1208
    item notNil ifTrue:[
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1209
        self removeItem:item.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1210
    ]
5058
bfa6a2d39edb *** empty log message ***
penk
parents: 5050
diff changeset
  1211
!
bfa6a2d39edb *** empty log message ***
penk
parents: 5050
diff changeset
  1212
bfa6a2d39edb *** empty log message ***
penk
parents: 5050
diff changeset
  1213
sortSubApplicationsFor:anApplication
5059
a39dd428776c *** empty log message ***
penk
parents: 5058
diff changeset
  1214
    |item|
5058
bfa6a2d39edb *** empty log message ***
penk
parents: 5050
diff changeset
  1215
bfa6a2d39edb *** empty log message ***
penk
parents: 5050
diff changeset
  1216
    item := self getItemByApplication:anApplication.
8268
ad2da5c435b9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8119
diff changeset
  1217
    item sort:[:a :b| a label < b label].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1218
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1219
6325
0b18b7564248 code cleanup
Claus Gittinger <cg@exept.de>
parents: 6293
diff changeset
  1220
!SettingsDialog methodsFor:'application list access-private'!
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1221
7021197a578f initial checkin
penk
parents:
diff changeset
  1222
addCategoriesFor:aName
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1223
    "create all the categories"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1224
5253
193cbf909cef not ifTrue -> ifFalse
Claus Gittinger <cg@exept.de>
parents: 5164
diff changeset
  1225
    (aName includes:$/) ifFalse:[ ^ self].
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1226
    self treeName:aName butLast:1 do:[:currentLabel :currentName| 
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1227
        |length icon|
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1228
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1229
        currentLabel notEmpty ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1230
            icon := self categoryIcons at:currentName ifAbsent:[nil].
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1231
            self createItemName:currentName label:currentLabel icon:icon replaceExisting:true.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1232
        ]
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1233
    ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1234
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1235
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1236
createItemForApplication:anApplication class:aClass label:aLabel icon:anIcon expandParent:expandParent replaceExisting:doReplaceExisting
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1237
    "create an application item in my application list"
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1238
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1239
    | newItem parent locIcon item|
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1240
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1241
    parent := self getItemByApplication:anApplication.
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1242
    parent isNil ifTrue:[
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1243
        ^ nil
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1244
    ].
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1245
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1246
    doReplaceExisting ifTrue:[
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1247
        parent children notNil ifTrue:[
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1248
            (item := parent children detect:[ :anItem | anItem application == anApplication] ifNone:[nil]) notNil ifTrue:[
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1249
                ^ item.
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1250
            ]
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1251
        ]
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1252
    ].
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1253
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1254
    newItem := self class itemClass new.  
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1255
    "/ newItem label:(resources string:aLabel) "allBold".
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1256
    newItem label:aLabel "allBold".
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1257
    newItem nameString:(anApplication itemPathName , aLabel).
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1258
    newItem applicationClass:aClass.
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1259
    locIcon := anIcon.
4898
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1260
    locIcon isNil ifTrue:[ locIcon := self class defaultSettingsAppIcon].
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1261
    newItem icon:locIcon.
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1262
    parent add:newItem.
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1263
    expandParent ifTrue:[
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1264
        parent expand.
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1265
    ].
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1266
    ^ newItem
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1267
!
6205a8c28e30 *** empty log message ***
penk
parents: 4895
diff changeset
  1268
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1269
createItemName:aNameString label:aLabel class:aClass icon:anIcon
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1270
    ^ self createItemName:aNameString label:aLabel class:aClass icon:anIcon expandParent:false
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1271
!
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1272
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1273
createItemName:aNameString label:aLabel class:aClass icon:anIcon expandParent:expandParent
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1274
    ^ self
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1275
        createItemName:aNameString 
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1276
        label:aLabel 
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1277
        class:aClass 
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1278
        icon:anIcon 
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1279
        expandParent:expandParent
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1280
        replaceExisting:true
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1281
!
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1282
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1283
createItemName:aNameString label:untranslatedLabel class:aClass icon:anIcon expandParent:expandParent replaceExisting:doReplaceExisting
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1284
    "create an application item in my application list"
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1285
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1286
    |newItem parentsName parent locIcon item|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1287
5577
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
  1288
    (aNameString includes:$/) ifTrue:[
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
  1289
        parentsName := aNameString copyTo:(aNameString lastIndexOf:$/)-1.
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
  1290
        parent := self getItemForName:parentsName.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1291
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1292
    parent isNil ifTrue:[
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1293
        parent := self rootItem.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1294
    ].
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1295
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1296
    doReplaceExisting ifTrue:[
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1297
        parent children notNil ifTrue:[
5577
adcc748a39b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5465
diff changeset
  1298
            (item := parent children detect:[ :anItem | anItem nameString = aNameString] ifNone:[nil]) notNil ifTrue:[
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1299
                ^ item.
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1300
            ]
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1301
        ]
7021197a578f initial checkin
penk
parents:
diff changeset
  1302
    ].
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1303
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1304
    newItem := self class itemClass new.  
4740
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
  1305
    "/ newItem label:(resources string:aLabel) "allBold".
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1306
    newItem label:(resources string:untranslatedLabel) "allBold".
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1307
    newItem nameString:aNameString.
7021197a578f initial checkin
penk
parents:
diff changeset
  1308
    newItem applicationClass:aClass.
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1309
    locIcon := anIcon.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1310
    locIcon isNil ifTrue:[ locIcon := self class defaultSettingsAppIcon].
7021197a578f initial checkin
penk
parents:
diff changeset
  1311
    newItem icon:locIcon.
4384
e16e816f6680 *** empty log message ***
penk
parents: 4378
diff changeset
  1312
    parent add:newItem.
4873
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1313
    expandParent ifTrue:[
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1314
        parent expand.
3ffb8a8812ec *** empty log message ***
penk
parents: 4844
diff changeset
  1315
    ].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1316
    ^ newItem
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1317
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1318
    "Modified: / 03-11-2007 / 14:23:32 / cg"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1319
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1320
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1321
createItemName:aNameString label:aLabel icon:anIcon
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1322
    "create an application item in my application list"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1323
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1324
    self createItemName:aNameString label:aLabel class:nil icon:anIcon expandParent:false
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1325
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1326
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1327
createItemName:aNameString label:aLabel icon:anIcon replaceExisting:doReplaceExisting
6127
ffab88b8b1e5 beautified
Claus Gittinger <cg@exept.de>
parents: 6126
diff changeset
  1328
    "create an application item in my application list"
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1329
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1330
    self createItemName:aNameString label:aLabel class:nil icon:anIcon expandParent:false replaceExisting:doReplaceExisting
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1331
!
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1332
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1333
getItemForName:aName
7021197a578f initial checkin
penk
parents:
diff changeset
  1334
    | searchItem|
7021197a578f initial checkin
penk
parents:
diff changeset
  1335
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1336
    searchItem := self rootItem.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1337
    self treeName:aName do:[:currentLabel :currentName|
7021197a578f initial checkin
penk
parents:
diff changeset
  1338
        searchItem children isNil ifTrue:[ ^ nil].
7021197a578f initial checkin
penk
parents:
diff changeset
  1339
        searchItem := searchItem children detect:[: item | item nameString = currentName] ifNone:[nil].
7021197a578f initial checkin
penk
parents:
diff changeset
  1340
        searchItem isNil ifTrue:[ ^ nil].
7021197a578f initial checkin
penk
parents:
diff changeset
  1341
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1342
    ^ searchItem
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1343
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1344
    "Modified: / 03-11-2007 / 14:23:28 / cg"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1345
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1346
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1347
realApplications
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1348
    "return a collection of all real (non-folder) applications.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1349
     A helper to avoid code duplication"
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1350
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1351
    ^ self applicationList 
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1352
        select:[:appItem | appItem isCategory not and:[ appItem application notNil]]
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1353
        thenCollect:[:appItem | appItem application].
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1354
!
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1355
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1356
realApplicationsDo:aBlock
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1357
    "evaluate aBlock for all real (non-folder) applications.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1358
     A helper to avoid code duplication"
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1359
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1360
    self realApplications do:aBlock.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1361
!
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1362
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1363
removeItem:anItem 
7895
c658466812c9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7880
diff changeset
  1364
    "remove an application from the settingsTree"
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1365
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1366
    |parent remParent|
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1367
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1368
    anItem application release.
4893
39dec723f6ad *** empty log message ***
penk
parents: 4886
diff changeset
  1369
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1370
    parent := anItem parent.
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1371
    parent isNil ifTrue:[" already removed " ^ self].
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1372
    parent remove:anItem.
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1373
    
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1374
    [parent isCategory and:[parent children isEmptyOrNil]] whileTrue:[
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1375
        remParent := parent.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1376
        parent := remParent parent.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1377
        parent remove:remParent.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1378
    ].
6505
311c27b13f51 translation of empty (organization-only) items
Claus Gittinger <cg@exept.de>
parents: 6389
diff changeset
  1379
    self applicationList remove:anItem ifAbsent:[nil].
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1380
    self selectedItem value:parent.
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1381
!
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1382
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1383
treeName:aName butLast:last do:aBlock 
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1384
    | tree  length|
7021197a578f initial checkin
penk
parents:
diff changeset
  1385
7021197a578f initial checkin
penk
parents:
diff changeset
  1386
    tree := aName asCollectionOfSubstringsSeparatedBy:$/.
7021197a578f initial checkin
penk
parents:
diff changeset
  1387
    tree from:1 to:(tree size - last) keysAndValuesDo:[:idx :aCategory| | itemName |
7021197a578f initial checkin
penk
parents:
diff changeset
  1388
        length := 0.
7021197a578f initial checkin
penk
parents:
diff changeset
  1389
        tree from:1 to:idx keysAndValuesDo:[:idx2 : el | 
7021197a578f initial checkin
penk
parents:
diff changeset
  1390
            length := length + el size.
7021197a578f initial checkin
penk
parents:
diff changeset
  1391
            idx2 > 1 ifTrue:[length := length + 1].
7021197a578f initial checkin
penk
parents:
diff changeset
  1392
        ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1393
        itemName := aName copyTo:length.
7021197a578f initial checkin
penk
parents:
diff changeset
  1394
        aBlock value:aCategory value:itemName.
7021197a578f initial checkin
penk
parents:
diff changeset
  1395
    ].
4879
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1396
!
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1397
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1398
treeName:aName do:aBlock
0a36635a9193 registration changes
Claus Gittinger <cg@exept.de>
parents: 4873
diff changeset
  1399
    self treeName:aName butLast:0 do:aBlock
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1400
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1401
7021197a578f initial checkin
penk
parents:
diff changeset
  1402
!SettingsDialog methodsFor:'aspects'!
7021197a578f initial checkin
penk
parents:
diff changeset
  1403
7021197a578f initial checkin
penk
parents:
diff changeset
  1404
applicationList
7021197a578f initial checkin
penk
parents:
diff changeset
  1405
    applicationList isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1406
        applicationList := SettingsDialog::HierarchicalApplicationList new.
7021197a578f initial checkin
penk
parents:
diff changeset
  1407
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1408
    ^ applicationList.
7021197a578f initial checkin
penk
parents:
diff changeset
  1409
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1410
7021197a578f initial checkin
penk
parents:
diff changeset
  1411
enableHelp
7021197a578f initial checkin
penk
parents:
diff changeset
  1412
    enableHelp isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1413
        enableHelp := true asValue.
7021197a578f initial checkin
penk
parents:
diff changeset
  1414
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1415
    ^ enableHelp.
7021197a578f initial checkin
penk
parents:
diff changeset
  1416
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1417
7021197a578f initial checkin
penk
parents:
diff changeset
  1418
enableOK
7021197a578f initial checkin
penk
parents:
diff changeset
  1419
    enableOK isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1420
        enableOK := true asValue.
7021197a578f initial checkin
penk
parents:
diff changeset
  1421
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1422
    ^ enableOK.
7021197a578f initial checkin
penk
parents:
diff changeset
  1423
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1424
7021197a578f initial checkin
penk
parents:
diff changeset
  1425
enableReload
7021197a578f initial checkin
penk
parents:
diff changeset
  1426
    enableReload isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1427
        enableReload := true asValue.
7021197a578f initial checkin
penk
parents:
diff changeset
  1428
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1429
    ^ enableReload.
7021197a578f initial checkin
penk
parents:
diff changeset
  1430
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1431
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1432
loadAndSaveSettingsItemVisible
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1433
    "for now, only show these if I have a requestor 
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1434
     (i.e. I am a full settings Dialog as opposed to a DebugView, FileBrowser or other
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1435
     settingsDialog. I think this has to be reworked..."
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1436
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1437
    ^ requestor notNil "/ loadAndSaveSettingsItemVisible
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1438
!
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  1439
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1440
selectedItem
7021197a578f initial checkin
penk
parents:
diff changeset
  1441
    selectedItem isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1442
        selectedItem := ValueHolder new.
7021197a578f initial checkin
penk
parents:
diff changeset
  1443
        selectedItem addDependent:self.
7021197a578f initial checkin
penk
parents:
diff changeset
  1444
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1445
    ^ selectedItem.
7021197a578f initial checkin
penk
parents:
diff changeset
  1446
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1447
7021197a578f initial checkin
penk
parents:
diff changeset
  1448
subCanvasApplicationHolder
7021197a578f initial checkin
penk
parents:
diff changeset
  1449
    subCanvasApplicationHolder isNil ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1450
        subCanvasApplicationHolder := ValueHolder new.
7021197a578f initial checkin
penk
parents:
diff changeset
  1451
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1452
    ^ subCanvasApplicationHolder.
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1453
!
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1454
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1455
whyDisabledInfoHolder
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1456
    whyDisabledInfoHolder isNil ifTrue:[
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1457
        whyDisabledInfoHolder := '' asValue.
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1458
    ].
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1459
    ^ whyDisabledInfoHolder.
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1460
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1461
    "Created: / 25-01-2007 / 17:13:50 / cg"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1462
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1463
7021197a578f initial checkin
penk
parents:
diff changeset
  1464
!SettingsDialog methodsFor:'change & update'!
7021197a578f initial checkin
penk
parents:
diff changeset
  1465
7021197a578f initial checkin
penk
parents:
diff changeset
  1466
modifiedChanged
14305
be12b81e53ff class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14239
diff changeset
  1467
    |modified|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1468
14305
be12b81e53ff class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14239
diff changeset
  1469
    modified := self subCanvasApplication modifiedChannel value.
be12b81e53ff class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14239
diff changeset
  1470
    self enableOK value:modified.
be12b81e53ff class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14239
diff changeset
  1471
    self enableReload value:modified.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1472
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1473
7021197a578f initial checkin
penk
parents:
diff changeset
  1474
selectionChanged
7613
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1475
    |item oldAppl noApp lbl window app itemLabel|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1476
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1477
    self selectedItem value == lastSelection  ifTrue:[ ^ self].
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1478
14305
be12b81e53ff class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14239
diff changeset
  1479
    oldAppl := self subCanvasApplication.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1480
    oldAppl notNil ifTrue:[
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1481
        oldAppl saveRequest ifFalse:[
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1482
            lastSelection notNil ifTrue:[
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1483
            self
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1484
                enqueueMessage:#value 
9617
7c53e41f20cf added: #selectItemWithClass:
Claus Gittinger <cg@exept.de>
parents: 9608
diff changeset
  1485
                for:[ self selectedItem value:lastSelection ]
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1486
                arguments:#().
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1487
            ].
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1488
            ^ self
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1489
        ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1490
        oldAppl modifiedChannel removeDependent:self.
7021197a578f initial checkin
penk
parents:
diff changeset
  1491
    ].
4435
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1492
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1493
    item := self selectedItem value.
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1494
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1495
    item isNil ifTrue:[ item := applicationList root ].
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1496
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1497
    lastSelection := item.
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1498
    noApp := (item isNil) ifTrue:true ifFalse:[item isCategory].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1499
    self enableOK value:(noApp not).
7021197a578f initial checkin
penk
parents:
diff changeset
  1500
    self enableReload value:(noApp not).
7021197a578f initial checkin
penk
parents:
diff changeset
  1501
    self enableHelp value:(noApp not).
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1502
4435
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1503
    window := self window.
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1504
    window notNil ifTrue:[
6126
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
  1505
        lbl := self rootItemLabel ? 'Settings Dialog'.
4435
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1506
        item notNil ifTrue:[
14652
c87730707b26 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14555
diff changeset
  1507
            itemLabel := item label.
c87730707b26 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14555
diff changeset
  1508
            itemLabel := itemLabel copyReplaceAll:(Character cr) with:(Character space) ifNone:itemLabel.
6126
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
  1509
            itemLabel ~= lbl ifTrue:[
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
  1510
                lbl := lbl , ' [', itemLabel, ']'.
fbe0461cda6b window label handling
Claus Gittinger <cg@exept.de>
parents: 6124
diff changeset
  1511
            ]
4435
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1512
        ].
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1513
        window label:lbl.
4406
d157f56c5ac9 *** empty log message ***
penk
parents: 4405
diff changeset
  1514
    ].
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1515
7613
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1516
    builder notNil ifTrue:[ |box|
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1517
        "hide the DisabledSettingsBox"
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1518
        box := builder componentAt:#DisabledSettingsBox.
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1519
        box notNil ifTrue:[
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1520
            box beInvisible; lower.
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1521
        ].
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1522
    ].
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1523
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1524
    noApp ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1525
        self subCanvasApplicationHolder value:nil.
7021197a578f initial checkin
penk
parents:
diff changeset
  1526
        ^ self
7021197a578f initial checkin
penk
parents:
diff changeset
  1527
    ].
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1528
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1529
    app := item application.
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1530
    app isNil ifTrue:[
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1531
        app := item applicationClass basicNew.
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1532
        (app isEnabledInSettingsDialog:self) ifFalse:[
7613
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1533
            "raise the DisabledSettingsBox above the settings window"
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1534
            self whyDisabledInfoHolder value:('These Settings are currently disabled, because\',app whyDisabledInSettingsDialogInfo) withCRs.
7613
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1535
            builder notNil ifTrue:[ |box|
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1536
                box := builder componentAt:#DisabledSettingsBox.
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1537
                box notNil ifTrue:[
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1538
                    box beVisible; raise.
7b59de1f0350 Fix race when changing a selection
Stefan Vogel <sv@exept.de>
parents: 7609
diff changeset
  1539
                ].
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1540
            ].
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1541
            self subCanvasApplicationHolder value:nil.
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1542
            ^ self
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1543
        ].
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1544
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1545
        item application:app.
4703
deb516ae2481 a lot of changes - server is running but there is something left to do
penk
parents: 4659
diff changeset
  1546
        app basicInitialize.
5026
0eae1f1848ba instable state
penk
parents: 4898
diff changeset
  1547
        app settingsDialog:self.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1548
    ].
5164
35a9d096be9b *** empty log message ***
penk
parents: 5146
diff changeset
  1549
    self withWaitCursorDo:[
35a9d096be9b *** empty log message ***
penk
parents: 5146
diff changeset
  1550
        app initialize.
35a9d096be9b *** empty log message ***
penk
parents: 5146
diff changeset
  1551
        app readSettings.
35a9d096be9b *** empty log message ***
penk
parents: 5146
diff changeset
  1552
    ].
4435
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1553
    app modifiedChannel addDependent:self.
854d330d659e care for nil selection
Claus Gittinger <cg@exept.de>
parents: 4433
diff changeset
  1554
    self subCanvasApplicationHolder value:app.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1555
    self modifiedChanged.
7609
f9ed6dd88645 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7473
diff changeset
  1556
9617
7c53e41f20cf added: #selectItemWithClass:
Claus Gittinger <cg@exept.de>
parents: 9608
diff changeset
  1557
    "Modified: / 29-10-2010 / 11:51:13 / cg"
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1558
    "Modified: / 17-02-2012 / 10:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1559
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1560
7021197a578f initial checkin
penk
parents:
diff changeset
  1561
update:something with:aParameter from:changedObject
6293
1c16cd8fdb79 stupid comment
Claus Gittinger <cg@exept.de>
parents: 6127
diff changeset
  1562
    |subCanvasApplication|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1563
7021197a578f initial checkin
penk
parents:
diff changeset
  1564
    changedObject == self selectedItem ifTrue:[
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1565
        super update:something with:aParameter from:changedObject.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1566
        self selectionChanged.
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1567
        ^ self.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1568
    ].
14305
be12b81e53ff class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14239
diff changeset
  1569
    subCanvasApplication := self subCanvasApplication.
6293
1c16cd8fdb79 stupid comment
Claus Gittinger <cg@exept.de>
parents: 6127
diff changeset
  1570
    (subCanvasApplication notNil 
1c16cd8fdb79 stupid comment
Claus Gittinger <cg@exept.de>
parents: 6127
diff changeset
  1571
    and:[changedObject == subCanvasApplication modifiedChannel]) ifTrue:[
1c16cd8fdb79 stupid comment
Claus Gittinger <cg@exept.de>
parents: 6127
diff changeset
  1572
        self modifiedChanged.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1573
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1574
    super update:something with:aParameter from:changedObject
7021197a578f initial checkin
penk
parents:
diff changeset
  1575
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1576
7021197a578f initial checkin
penk
parents:
diff changeset
  1577
!SettingsDialog methodsFor:'initialization & release'!
7021197a578f initial checkin
penk
parents:
diff changeset
  1578
7021197a578f initial checkin
penk
parents:
diff changeset
  1579
closeRequest
15048
4e8598056078 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14968
diff changeset
  1580
    "This is a hook method.
4e8598056078 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14968
diff changeset
  1581
     It will be invoked when your app/dialog-window is about to be closed.
4e8598056078 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14968
diff changeset
  1582
     This method has a chance to suppress the close by returning false.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1583
     See also #closeDownViews, which is invoked when the close is really done."
7021197a578f initial checkin
penk
parents:
diff changeset
  1584
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
  1585
    | req |
6019
001740075800 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5975
diff changeset
  1586
4659
a7f00925e26b some errors fixed
penk
parents: 4639
diff changeset
  1587
    (self sendSaveRequestToCurrent == false) ifTrue:[^ self].
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1588
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1589
    "/ if any of my subApps has made a change, ask user if he wants
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1590
    "/ to write the settings file
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1591
    (self realApplications contains:[:app | app didModifySettings]) ifTrue:[
15523
429b7e780d5a class: SettingsDialog
ca
parents: 15487
diff changeset
  1592
        "D121136 - Filename doesnot understand allBold"
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1593
        (Dialog 
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1594
            confirm:(resources 
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1595
                        stringWithCRs:'Save your changed settings in the settings file?\(which is: "%1"\\If not saved, these changes only apply to your current session.'
15523
429b7e780d5a class: SettingsDialog
ca
parents: 15487
diff changeset
  1596
                        with:self class currentSettingsFilename asString allBold))
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1597
        ifTrue:[
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1598
            self saveSettingsWithoutAskingForFile.
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1599
        ].
15881
6b3577458a85 #BUGFIX
ca
parents: 15607
diff changeset
  1600
        "D122540 - Dialog opens twice"
6b3577458a85 #BUGFIX
ca
parents: 15607
diff changeset
  1601
        self realApplications do:[:each| each clearDidModifySettings ].
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1602
    ].
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1603
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1604
    self destroyAll.
4400
5b1bf011547f add examples
penk
parents: 4397
diff changeset
  1605
5b1bf011547f add examples
penk
parents: 4397
diff changeset
  1606
    req := self requestor.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
  1607
    req notNil ifTrue:[
5b1bf011547f add examples
penk
parents: 4397
diff changeset
  1608
        req settingsClosed.
5b1bf011547f add examples
penk
parents: 4397
diff changeset
  1609
    ].
6635
e20f08617728 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6505
diff changeset
  1610
    super closeRequest
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1611
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1612
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1613
createRootItem
7172
042c3e1278e4 order of setting items
Claus Gittinger <cg@exept.de>
parents: 7100
diff changeset
  1614
    |rootItem lbl|
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1615
7021197a578f initial checkin
penk
parents:
diff changeset
  1616
    resources := AbstractLauncherApplication resources.
7021197a578f initial checkin
penk
parents:
diff changeset
  1617
    rootItem := self class itemClass new.
7172
042c3e1278e4 order of setting items
Claus Gittinger <cg@exept.de>
parents: 7100
diff changeset
  1618
    lbl := resources string:'Settings'.
042c3e1278e4 order of setting items
Claus Gittinger <cg@exept.de>
parents: 7100
diff changeset
  1619
    rootItem label:lbl "allBold".
042c3e1278e4 order of setting items
Claus Gittinger <cg@exept.de>
parents: 7100
diff changeset
  1620
    rootItem nameString:lbl.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1621
    rootItem icon:self class settingsIcon.
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1622
    rootItem applicationClass: SettingsFilenameAppl.
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1623
    ^ rootItem
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1624
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1625
    "Created: / 03-11-2007 / 14:22:01 / cg"
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1626
    "Modified: / 07-02-2012 / 01:03:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1627
!
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1628
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1629
initialize
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1630
    |rootItem|
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1631
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1632
    rootItem := self createRootItem.
6124
233e703f84a4 access to rootItem & showRoot
Claus Gittinger <cg@exept.de>
parents: 6024
diff changeset
  1633
    self applicationList root:rootItem; showRoot:true "false".
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1634
    self selectedItem value:rootItem.
7021197a578f initial checkin
penk
parents:
diff changeset
  1635
    super initialize.
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1636
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1637
    "Modified: / 03-11-2007 / 14:22:18 / cg"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1638
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1639
7021197a578f initial checkin
penk
parents:
diff changeset
  1640
postBuildSubCanvas:aWidget
7021197a578f initial checkin
penk
parents:
diff changeset
  1641
    aWidget keepClientView:true. 
7021197a578f initial checkin
penk
parents:
diff changeset
  1642
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1643
7021197a578f initial checkin
penk
parents:
diff changeset
  1644
postOpenWith:aBuilder
14327
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1645
    |items|
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1646
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1647
    self rootItem expand.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1648
    super postOpenWith:aBuilder.
14327
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1649
    (items := self rootItem children) size == 1 ifTrue:[
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1650
        self selectedItem value: items anyOne.
10742
c6c9b272ac55 changed: #postOpenWith: (pre-select settings if there is only one child of the root)
vrany
parents: 10396
diff changeset
  1651
    ]
7880
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1652
c5e6528bd927 provide access to the rootItem
Claus Gittinger <cg@exept.de>
parents: 7873
diff changeset
  1653
    "Modified: / 03-11-2007 / 14:23:25 / cg"
10742
c6c9b272ac55 changed: #postOpenWith: (pre-select settings if there is only one child of the root)
vrany
parents: 10396
diff changeset
  1654
    "Modified: / 03-10-2011 / 16:27:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1655
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1656
7021197a578f initial checkin
penk
parents:
diff changeset
  1657
!SettingsDialog methodsFor:'menu actions'!
7021197a578f initial checkin
penk
parents:
diff changeset
  1658
5465
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
  1659
askForFileAndSaveSettings
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
  1660
    self class askForFileAndSaveSettings.
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1661
    self realApplicationsDo:[:app | app clearDidModifySettings].
5465
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
  1662
!
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
  1663
4574
bcc59a552bca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4552
diff changeset
  1664
loadSettingsFromFile
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1665
    "restore settings from a settings-file."
7021197a578f initial checkin
penk
parents:
diff changeset
  1666
7021197a578f initial checkin
penk
parents:
diff changeset
  1667
    "a temporary kludge - we need a central systemSettings object for this,
7021197a578f initial checkin
penk
parents:
diff changeset
  1668
     which can be saved/restored with a single store/read."
7021197a578f initial checkin
penk
parents:
diff changeset
  1669
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1670
    |oldFile dir fileName transcript launcher|
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1671
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1672
    (oldFile := UserPreferences current at:#settingsFilename) notNil ifTrue:[
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1673
        dir := oldFile asFilename directory.
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1674
    ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1675
7021197a578f initial checkin
penk
parents:
diff changeset
  1676
    fileName := Dialog 
4740
ecd679058be3 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4716
diff changeset
  1677
        requestFileName:(resources string:'Load Settings from File') 
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1678
        default:'settings.stx'
7021197a578f initial checkin
penk
parents:
diff changeset
  1679
        ok:(resources string:'Load') 
7021197a578f initial checkin
penk
parents:
diff changeset
  1680
        abort:(resources string:'Cancel') 
7021197a578f initial checkin
penk
parents:
diff changeset
  1681
        pattern:'*.stx'
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1682
        fromDirectory:dir.
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1683
7021197a578f initial checkin
penk
parents:
diff changeset
  1684
    (fileName size == 0) ifTrue:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1685
        "/ canceled
7021197a578f initial checkin
penk
parents:
diff changeset
  1686
        ^ self
7021197a578f initial checkin
penk
parents:
diff changeset
  1687
    ].
7021197a578f initial checkin
penk
parents:
diff changeset
  1688
7021197a578f initial checkin
penk
parents:
diff changeset
  1689
    self withWaitCursorDo:[
7021197a578f initial checkin
penk
parents:
diff changeset
  1690
        Smalltalk fileIn:fileName.
5629
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1691
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1692
        "/ Transcript current topView model reOpen.
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1693
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1694
        transcript := Transcript current.
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1695
        (transcript notNil and:[transcript isExternalStream not]) ifTrue:[
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1696
            launcher := transcript application.
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1697
            launcher notNil ifTrue:[
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1698
                launcher reopenLauncher.
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1699
            ]
2cb05ef96502 care for nonPosStream transcript
Claus Gittinger <cg@exept.de>
parents: 5624
diff changeset
  1700
        ].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1701
        self sendLoadRequestToAll.
7021197a578f initial checkin
penk
parents:
diff changeset
  1702
    ].
7100
e273c6f4602d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6688
diff changeset
  1703
e273c6f4602d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6688
diff changeset
  1704
    "Modified: / 08-09-2006 / 19:23:15 / cg"
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1705
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1706
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1707
menuCollapseAll
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1708
    applicationList root children do:[:each | each collapse].
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1709
!
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1710
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1711
menuExpandAll
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1712
    applicationList root children do:[:each | each recursiveExpand].
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1713
!
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1714
5465
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
  1715
saveSettingsWithoutAskingForFile
2c1dc7101e03 *** empty log message ***
ca
parents: 5422
diff changeset
  1716
    self class saveSettingsWithoutAskingForFile.
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1717
    self realApplicationsDo:[:app | app clearDidModifySettings].
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1718
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1719
14327
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1720
!SettingsDialog methodsFor:'selection'!
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1721
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1722
selectItemWithClass:aClass
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1723
    "select an item based on the sub-settings application class"
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1724
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1725
    |entry|
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1726
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1727
    entry := applicationList root
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1728
                recursiveDetect:[:entry | entry applicationClass = aClass].
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1729
    entry notNil ifTrue:[
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1730
        entry makeVisible.
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1731
        self selectedItem value:entry
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1732
    ].
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1733
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1734
    "Created: / 29-10-2010 / 11:54:13 / cg"
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1735
!
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1736
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1737
selectItemWithName:aPathString
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1738
    "select an item based on the sub-settings page name.
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1739
     See standardRawSettingsList for a list of names"
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1740
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1741
    |entry|
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1742
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1743
    entry := applicationList root
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1744
                recursiveDetect:[:entry | entry nameString = aPathString].
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1745
    entry notNil ifTrue:[
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1746
        entry makeVisible.
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1747
        self selectedItem value:entry
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1748
    ].
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1749
! !
195c096a4cc8 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14318
diff changeset
  1750
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1751
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'accessing'!
7021197a578f initial checkin
penk
parents:
diff changeset
  1752
7021197a578f initial checkin
penk
parents:
diff changeset
  1753
application
7021197a578f initial checkin
penk
parents:
diff changeset
  1754
    "return the value of the instance variable 'application' (automatically generated)"
7021197a578f initial checkin
penk
parents:
diff changeset
  1755
7021197a578f initial checkin
penk
parents:
diff changeset
  1756
    ^ application
7021197a578f initial checkin
penk
parents:
diff changeset
  1757
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1758
7021197a578f initial checkin
penk
parents:
diff changeset
  1759
application:something
7021197a578f initial checkin
penk
parents:
diff changeset
  1760
    "set the value of the instance variable 'application' (automatically generated)"
7021197a578f initial checkin
penk
parents:
diff changeset
  1761
7021197a578f initial checkin
penk
parents:
diff changeset
  1762
    application := something.
7021197a578f initial checkin
penk
parents:
diff changeset
  1763
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1764
7021197a578f initial checkin
penk
parents:
diff changeset
  1765
applicationClass
7021197a578f initial checkin
penk
parents:
diff changeset
  1766
    "return the value of the instance variable 'applicationClass' (automatically generated)"
7021197a578f initial checkin
penk
parents:
diff changeset
  1767
7021197a578f initial checkin
penk
parents:
diff changeset
  1768
    ^ applicationClass
7021197a578f initial checkin
penk
parents:
diff changeset
  1769
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1770
7021197a578f initial checkin
penk
parents:
diff changeset
  1771
applicationClass:something
7021197a578f initial checkin
penk
parents:
diff changeset
  1772
    "set the value of the instance variable 'applicationClass' (automatically generated)"
7021197a578f initial checkin
penk
parents:
diff changeset
  1773
7021197a578f initial checkin
penk
parents:
diff changeset
  1774
    applicationClass := something.
7021197a578f initial checkin
penk
parents:
diff changeset
  1775
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1776
9425
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1777
label:something
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1778
    "reset the with in pixels..."
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1779
    width := nil.
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1780
    label := something.
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1781
!
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1782
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1783
nameString
7021197a578f initial checkin
penk
parents:
diff changeset
  1784
    "return the value of the instance variable 'nameString' (automatically generated)"
7021197a578f initial checkin
penk
parents:
diff changeset
  1785
7021197a578f initial checkin
penk
parents:
diff changeset
  1786
    ^ nameString
7021197a578f initial checkin
penk
parents:
diff changeset
  1787
!
7021197a578f initial checkin
penk
parents:
diff changeset
  1788
7021197a578f initial checkin
penk
parents:
diff changeset
  1789
nameString:something
7021197a578f initial checkin
penk
parents:
diff changeset
  1790
    "set the value of the instance variable 'nameString' (automatically generated)"
7021197a578f initial checkin
penk
parents:
diff changeset
  1791
7021197a578f initial checkin
penk
parents:
diff changeset
  1792
    nameString := something.
7021197a578f initial checkin
penk
parents:
diff changeset
  1793
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1794
5078
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1795
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1796
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1797
middleButtonMenu
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1798
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1799
    <resource: #programMenu >
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1800
5838
290edc109c4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5629
diff changeset
  1801
    |application|
290edc109c4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5629
diff changeset
  1802
290edc109c4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5629
diff changeset
  1803
    (application := self application) isNil ifTrue:[ ^ nil].
290edc109c4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5629
diff changeset
  1804
    ^ application settingsDialogPopUpMenu
5078
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1805
! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog
penk
parents: 5059
diff changeset
  1806
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1807
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'printing & storing'!
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1808
13322
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1809
displayOn:aGCOrStream
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1810
13322
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1811
    "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1812
    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1813
    (aGCOrStream isStream) ifFalse:[
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1814
        ^ super displayOn:aGCOrStream
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1815
    ].
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1816
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1817
    super printOn:aGCOrStream.
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1818
    aGCOrStream nextPutAll:' ['.
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1819
    label printOn:aGCOrStream.
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1820
    aGCOrStream nextPut:$].
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1821
!
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1822
9558
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
  1823
printOn:aStream
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
  1824
    aStream 
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
  1825
        nextPutAll:self class nameWithoutPrefix;
13322
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1826
        space.
7932b47dbcc2 Refactor to implement #displayOn:aGcOrStream instead of #displayString
Stefan Vogel <sv@exept.de>
parents: 13270
diff changeset
  1827
    self label printOn:aStream.
9558
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
  1828
89e606407c4d changed: #sendLoadRequestToAll
sr
parents: 9425
diff changeset
  1829
    "Created: / 24-08-2010 / 18:36:17 / sr"
4405
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1830
! !
8b9a9ee966bf *** empty log message ***
penk
parents: 4401
diff changeset
  1831
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1832
!SettingsDialog::HierarchicalApplicationList::ApplicationItem methodsFor:'queries'!
7021197a578f initial checkin
penk
parents:
diff changeset
  1833
9425
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1834
canCollapse
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1835
    "the rootItem is cannot be collapsed"
14872
ed831f9b6aaf class: SettingsDialog
ca
parents: 14792
diff changeset
  1836
ed831f9b6aaf class: SettingsDialog
ca
parents: 14792
diff changeset
  1837
    "/ first check if we are expanded, if not answer false
15607
1e233fdc0cef class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15523
diff changeset
  1838
    ^ (self isExpanded and:[self isRootItem not])
9425
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1839
!
ca49e390fe41 *** empty log message ***
ca
parents: 9275
diff changeset
  1840
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  1841
isCategory
7021197a578f initial checkin
penk
parents:
diff changeset
  1842
7021197a578f initial checkin
penk
parents:
diff changeset
  1843
    ^ self applicationClass isNil
7021197a578f initial checkin
penk
parents:
diff changeset
  1844
! !
7021197a578f initial checkin
penk
parents:
diff changeset
  1845
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1846
!SettingsDialog::SettingsFilenameAppl class methodsFor:'help specs'!
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1847
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1848
flyByHelpSpec
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1849
    <resource: #help>
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1850
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1851
    ^ super flyByHelpSpec addPairsFrom:#(
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1852
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1853
#openSettingsFile
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1854
'Click to open a file browser on the settings file'
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1855
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1856
#reloadSettingsFile
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1857
'Reload the settings from the file'
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1858
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1859
#saveAsPrivateSettingsFile
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1860
'Save the settings into your private settings file'
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1861
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1862
)
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1863
! !
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1864
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1865
!SettingsDialog::SettingsFilenameAppl class methodsFor:'interface specs'!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1866
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1867
windowSpec
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1868
    "This resource specification was automatically generated
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1869
     by the UIPainter of ST/X."
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1870
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1871
    "Do not manually edit this!! If it is corrupted,
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1872
     the UIPainter may not be able to read the specification."
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1873
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1874
    "
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1875
     UIPainter new openOnClass:SettingsDialog::SettingsFilenameAppl andSelector:#windowSpec
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1876
     SettingsDialog::SettingsFilenameAppl new openInterface:#windowSpec
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1877
     SettingsDialog::SettingsFilenameAppl open
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1878
    "
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1879
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1880
    <resource: #canvas>
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1881
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1882
    ^ 
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1883
    #(FullSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1884
       name: windowSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1885
       window: 
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1886
      (WindowSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1887
         label: 'Settings File'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1888
         name: 'Settings File'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1889
         min: (Point 10 10)
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1890
         bounds: (Rectangle 0 0 426 359)
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1891
       )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1892
       component: 
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1893
      (SpecCollection
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1894
         collection: (
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1895
          (LabelSpec
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1896
             name: 'InfoLabel'
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1897
             layout: (LayoutFrame 0 0 -169 0.5 0 1 -45 0.5)
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1898
             translateLabel: true
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1899
             labelChannel: infoLabelHolder
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1900
           )
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1901
          (LabelSpec
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1902
             label: 'Preferences are stored in file:'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1903
             name: 'Label1'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1904
             layout: (LayoutFrame 0 0 -30 0.5 0 1 0 0.5)
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1905
             translateLabel: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1906
           )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1907
          (LinkButtonSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1908
             label: 'LinkButton'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1909
             name: 'EditPreferences'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1910
             layout: (LayoutFrame 0 0 0 0.5 0 1 30 0.5)
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1911
             activeHelpKey: openSettingsFile
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1912
             foregroundColor: (Color 0.0 0.0 100.0)
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1913
             translateLabel: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1914
             labelChannel: settingsFilenameHolder
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1915
             model: openSettingsFile
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1916
           )
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1917
          (HorizontalPanelViewSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1918
             name: 'HorizontalPanel1'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1919
             layout: (LayoutFrame 0 0 53 0.5 0 1 101 0.5)
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1920
             horizontalLayout: centerMax
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1921
             verticalLayout: center
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1922
             horizontalSpace: 3
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1923
             verticalSpace: 3
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1924
             component: 
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1925
            (SpecCollection
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1926
               collection: (
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1927
                (ActionButtonSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1928
                   label: 'Reload'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1929
                   name: 'Button2'
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1930
                   activeHelpKey: reloadSettingsFile
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1931
                   translateLabel: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1932
                   model: reloadSettingsFile
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1933
                   useDefaultExtent: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1934
                 )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1935
                (ActionButtonSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1936
                   label: 'Save as Private'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1937
                   name: 'Button3'
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1938
                   activeHelpKey: saveAsPrivateSettingsFile
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1939
                   translateLabel: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1940
                   model: saveAsPrivateSettingsFile
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1941
                   useDefaultExtent: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1942
                 )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1943
                (ActionButtonSpec
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1944
                   label: 'File Browser'
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1945
                   name: 'Button1'
14239
c7d2d44183d3 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14222
diff changeset
  1946
                   activeHelpKey: openSettingsFile
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1947
                   translateLabel: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1948
                   model: openSettingsFile
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1949
                   useDefaultExtent: true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1950
                 )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1951
                )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1952
              
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1953
             )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1954
           )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1955
          )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1956
        
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1957
       )
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1958
     )
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1959
! !
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1960
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1961
!SettingsDialog::SettingsFilenameAppl methodsFor:'actions'!
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1962
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1963
openSettingsFile
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1964
    self openSettingsFile: (self settingsFile)
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1965
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1966
    "Created: / 07-02-2012 / 11:15:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1967
!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1968
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1969
reloadSettingsFile
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1970
    self reloadSettingsFile: (self settingsFile)
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1971
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1972
    "Created: / 17-02-2012 / 10:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1973
!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  1974
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1975
saveAsPrivateSettingsFile
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1976
    |fn|
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1977
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  1978
    fn := UserPreferences defaultUserSettingsFile pathName.
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1979
    SettingsDialog saveSettingsTo:fn.
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1980
    UserPreferences current at:#settingsFilename put:fn.
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1981
    settingsFilenameHolder value:fn.
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1982
! !
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1983
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1984
!SettingsDialog::SettingsFilenameAppl methodsFor:'aspects'!
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1985
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1986
infoLabelHolder
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1987
    infoLabelHolder isNil ifTrue:[
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1988
        infoLabelHolder := nil asValue.
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1989
        infoLabelHolder value:
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1990
                     (resources 
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1991
                        stringWithCRs:(
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1992
                            'Unless saved via the "Save"-Button,'
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1993
                            , '\changes affect the current session only.')).
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1994
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1995
    ].
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1996
    ^ infoLabelHolder
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1997
!
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  1998
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  1999
settingsFilenameHolder
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2000
    settingsFilenameHolder isNil ifTrue:[
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2001
        settingsFilenameHolder := nil asValue.
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2002
        self basicReadSettings.
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2003
    ].
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2004
    ^ settingsFilenameHolder
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2005
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2006
    "Created: / 07-02-2012 / 01:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2007
! !
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2008
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2009
!SettingsDialog::SettingsFilenameAppl methodsFor:'private'!
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2010
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2011
openSettingsFile: filename 
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2012
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2013
    UserPreferences fileBrowserClass
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2014
        openOnFileNamed:filename editing:true
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2015
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2016
    "Created: / 07-02-2012 / 01:08:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2017
!
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2018
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2019
reloadSettingsFile: filename 
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2020
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2021
    filename asFilename fileIn.
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2022
    UserPreferences current at: #settingsFilename put: filename asFilename pathName
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2023
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2024
    "Created: / 17-02-2012 / 10:27:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2025
! !
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2026
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2027
!SettingsDialog::SettingsFilenameAppl methodsFor:'protocol'!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2028
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2029
basicReadSettings
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2030
    |filename|
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2031
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2032
    filename := self settingsFile.
14081
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2033
"/      filename := filename asText
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2034
"/        colorizeAllWith: Color blue;
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2035
"/        actionForAll:[ self openSettingsFile: filename ].
fc81617ae457 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 13796
diff changeset
  2036
    self settingsFilenameHolder value:filename.
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2037
!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2038
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2039
basicSaveSettings
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2040
    ^self
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2041
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2042
    "Modified: / 07-02-2012 / 01:03:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2043
!
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2044
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2045
editorHelpRelativeWikiURL
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2046
    "the relative URL of the dialog-description in the Wiki"
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2047
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2048
    ^ 'Settings'
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2049
!
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2050
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2051
helpFilename
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2052
    "subclasses must return the relative name of a helpFile
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2053
     in the doc/online/<language>/help directory.
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2054
     Or nil, if no help is available."
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2055
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2056
    ^ nil.
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2057
! !
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2058
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2059
!SettingsDialog::SettingsFilenameAppl methodsFor:'queries'!
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2060
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2061
hasUnsavedChanges
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2062
    ^false
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2063
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2064
    "Modified: / 07-02-2012 / 01:03:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14792
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2065
!
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2066
03a4d13a4ff5 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 14652
diff changeset
  2067
settingsFile
15487
a0612a561678 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 15356
diff changeset
  2068
    ^ SettingsDialog currentSettingsFilename
13796
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2069
! !
3113972f5e4b merged in jv's chenges
Claus Gittinger <cg@exept.de>
parents: 13545
diff changeset
  2070
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  2071
!SettingsDialog class methodsFor:'documentation'!
7021197a578f initial checkin
penk
parents:
diff changeset
  2072
7021197a578f initial checkin
penk
parents:
diff changeset
  2073
version
15881
6b3577458a85 #BUGFIX
ca
parents: 15607
diff changeset
  2074
    ^ '$Header$'
9021
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  2075
!
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  2076
7fe0760c4554 added: #loadAndSaveSettingsItemVisible
Claus Gittinger <cg@exept.de>
parents: 8624
diff changeset
  2077
version_CVS
15881
6b3577458a85 #BUGFIX
ca
parents: 15607
diff changeset
  2078
    ^ '$Header$'
16286
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
  2079
!
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
  2080
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
  2081
version_HG
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
  2082
845a3d624cb7 Settings: Removed SQLServer settings.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 16213
diff changeset
  2083
    ^ '$Changeset: <not expanded> $'
4378
7021197a578f initial checkin
penk
parents:
diff changeset
  2084
! !
4469
27a610981cb5 *** empty log message ***
penk
parents: 4435
diff changeset
  2085
12765
22dc3b61ae68 class: SettingsDialog
Claus Gittinger <cg@exept.de>
parents: 12029
diff changeset
  2086
4469
27a610981cb5 *** empty log message ***
penk
parents: 4435
diff changeset
  2087
SettingsDialog initialize!