--- a/AbstractLauncherApplication.st Mon Dec 16 11:55:59 2002 +0100
+++ b/AbstractLauncherApplication.st Mon Dec 16 18:22:19 2002 +0100
@@ -148,6 +148,32 @@
BGV:.(IQ)I<LQS@R^VE([P@@(E9OZQT/[[*:-9=YO8M''S6B ZF4@@@@@[0@[M0I5.)!!!!(4NE@F<@&$&C@@@@@@@@G&PCBGYV&;@<!!P@@#$^P@@@@@@@@@FN@
[R<#+J2,PHT@%$2E@@@@@@@@@@BEA7>"I;B/''$*H%$"I@@@@@@@@@@@@$#D]^RF''*F]5$D2I@@@@@@@@@@@@@@BIKB<F(VHIHSNE@@@@@@@@@@@@@@@@@I$>
MVY7@@@@@@@@@@@@@@@@@@@@@@@@!!3Y9@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 7 7 7 12 12 12 20 20 20 23 23 23 24 24 24 28 28 28 30 30 30 32 32 32 35 35 35 40 40 40 41 41 41 43 43 43 45 45 45 48 47 48 50 49 50 51 50 51 52 52 52 54 53 54 55 54 55 56 56 56 58 57 58 58 58 58 59 59 59 60 59 60 60 60 60 61 61 61 62 62 62 66 65 66 66 66 66 67 66 67 68 67 68 69 69 69 70 69 70 70 70 70 71 71 71 72 71 72 73 73 73 74 73 74 75 75 75 76 75 76 76 76 76 77 76 77 78 78 78 79 79 79 80 80 80 85 84 85 86 84 86 86 85 86 87 86 87 87 87 87 88 87 88 89 88 89 89 89 89 90 88 90 90 89 90 93 91 93 93 93 93 94 92 94 94 93 94 96 94 96 97 96 97 98 97 98 99 98 99 99 99 99 100 99 100 100 100 100 102 102 102 103 103 103 104 103 104 104 104 104 105 105 105 106 106 106 108 107 108 109 109 109 110 110 110 111 110 111 113 113 113 114 113 114 114 114 114 115 115 115 116 116 116 117 115 117 118 118 118 120 120 120 121 121 121 122 121 122 122 122 122 123 122 123 123 123 123 124 124 124 125 125 125 127 127 127 128 128 128 129 129 129 130 130 130 131 131 131 132 131 132 132 132 132 133 132 133 134 134 134 135 135 135 136 136 136 137 137 137 138 138 138 140 139 140 142 142 142 147 147 147 151 151 151 153 153 153 154 154 154 155 155 155 156 155 156 156 156 156 159 159 159 164 163 164 165 165 165 167 167 167 168 168 168 170 170 170 172 172 172 174 174 174 175 174 175 177 177 177 178 178 178 181 181 181 182 182 182 183 183 183 185 185 185 189 189 189 190 190 190 191 191 191 192 192 192 194 192 194 194 194 194 195 195 195 196 196 196 198 196 198 199 198 199 200 200 200 201 200 201 201 201 201 202 201 202 202 202 202 203 203 203 204 204 204 205 204 205 205 205 205 206 205 206 206 206 206 209 209 209 210 210 210 211 211 211 212 212 212 213 212 213 213 213 213 214 214 214 215 213 215 215 215 215 216 216 216 217 216 217 217 217 217 218 217 218 219 219 219 221 219 221 222 221 222 224 222 224 224 223 224 225 223 225 225 224 225 225 225 225 226 224 226 226 225 226 227 226 227 228 226 228 229 228 229 231 231 231 232 231 232 235 234 235 237 237 237 239 239 239 241 241 241 244 244 244 247 247 247 248 248 248 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(W<?8_<???<=:^<???<???<???<_??<O??<O??<B?=\@?<8@?=0@?? @??@@_>@@O @@G@@') ; yourself); yourself]
+!
+
+compilerIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self compilerIcon inspect
+ ImageEditor openOnClass:self andSelector:#compilerIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'AbstractLauncherApplication class compilerIcon'
+ ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
+@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PD@@PD@@@H@@@D@@@@@@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@@DA@P@A@P@A@P@@@ @@@P@@
+@@@A@P@A@PDA@PD@@PD@@@H@@@DA@PDA@PD@@PDA@PDA@@DA@@@B@@@A@@@@@@DA@@DA@PDA@P@A@P@@@ @@@PDA@PDA@P@A@PD@@PD@@PD@@@H@@@D@@@@@
+@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
! !
!AbstractLauncherApplication class methodsFor:'queries'!
@@ -187,7 +213,9 @@
#('Keyboard Mappings' #'AbstractSettingsApplication::KbdMappingSettingsAppl' )
#('Style Selection' #'AbstractSettingsApplication::StyleSettingsAppl' )
#('System Messages' #'AbstractSettingsApplication::SystemMessageSettingsAppl' )
- #('Compiler' #'AbstractSettingsApplication::CompilerSettingsAppl' )
+ #('Compiler' #'AbstractSettingsApplication::GeneralCompilerSettingsAppl' )
+ #('Compiler/Byte Code' #'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl' )
+ #('Compiler/Compiler' #'AbstractSettingsApplication::STCCompilerSettingsAppl' )
#('Memory' #'AbstractSettingsApplication::MemorySettingsAppl' )
#('SourceCode & Debugger' #'AbstractSettingsApplication::SourceAndDebuggerSettingsAppl' )
#('Printer' #'AbstractSettingsApplication::PrinterSettingsAppl' )
@@ -198,12 +226,15 @@
#('Communication/HTTP Server' #'AbstractSettingsApplication::HTTPServerSettingsAppl' )
#('Communication/OSI Protocol' #'AbstractSettingsApplication::OsiSettingsAppl' )
#('Communication/Misc' #'AbstractSettingsApplication::MiscCommunicationSettingsAppl' )
- ) asOrderedCollection
+ ) asOrderedCollection
+
+ "Modified: / 16.12.2002 / 18:12:28 / penk"
!
installSettingsApplicationsIn:aSettingsApp
aSettingsApp addIcon:self communicationIcon forCategory:'Communication'.
+ aSettingsApp addIcon:self compilerIcon forCategory:'Compiler'.
self settingsList do:[ :entry| | applName applClass |
self installSettingsEntry:entry forSettingsApp:aSettingsApp.
@@ -227,9 +258,9 @@
remItem := setList detect:[:item| (item at:2) = aClass] ifNone:[nil].
remItem notNil ifTrue:[
setList remove:remItem.
- ].
- OpenSettinsDialog notNil ifTrue:[
- self removeSettingsEntry:remItem forSettingsApp:OpenSettinsDialog.
+ OpenSettinsDialog notNil ifTrue:[
+ self removeSettingsEntry:remItem forSettingsApp:OpenSettinsDialog.
+ ].
].
!
@@ -248,6 +279,11 @@
SettingsList := self defaultSettingsApplicationList.
].
^ SettingsList
+"
+ SettingsList := nil
+"
+
+ "Modified: / 16.12.2002 / 18:12:50 / penk"
! !
!AbstractLauncherApplication methodsFor:'private'!
@@ -2687,6 +2723,9 @@
].
box destroy
+"
+ self compilerSettings
+"
"Modified: / 10.9.1995 / 19:19:18 / claus"
"Modified: / 9.9.1996 / 22:42:47 / stefan"
"Modified: / 5.11.1998 / 14:25:59 / cg"
@@ -4558,7 +4597,7 @@
stcIncludes stcDefines stcOptions
stcLibraries stcLibraryPath cc stc ccOptions
linkCommand linkArgs
- component t
+ component
canLoadBinaries thisIsADemoVersion
resources|
@@ -4577,6 +4616,7 @@
linkArgs := ObjectFileLoader linkArgs asValue.
ObjectFileLoader notNil ifTrue:[
+ | t |
(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
stcLibraries := (String fromStringCollection:t separatedBy:' ') asValue.
].
@@ -4738,7 +4778,9 @@
].
].
box destroy
-
+"
+ self stcCompilerSettings
+"
"Modified: / 10.9.1995 / 19:19:18 / claus"
"Modified: / 9.9.1996 / 22:42:47 / stefan"
"Created: / 2.10.1998 / 16:27:49 / cg"
@@ -4751,7 +4793,7 @@
|box resources currentUserPrefs in acceptChannel
useNewInspector useNewChangesBrowser useNewSystemBrowser useNewVersionDiffBrowser
useNewFileBrowser showClockInLauncher showClock launcher
- transcriptBufferSize useNewFileDialog useNewSettinsApplication|
+ transcriptBufferSize useNewFileDialog useNewSettingsApplication|
currentUserPrefs := UserPreferences current.
@@ -4767,7 +4809,7 @@
useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
useNewFileDialog := currentUserPrefs useNewFileDialog asValue.
- useNewSettinsApplication := currentUserPrefs useNewSettinsApplication asValue.
+ useNewSettingsApplication := currentUserPrefs useNewSettingsApplication asValue.
transcriptBufferSize := Transcript current lineLimit printString asValue.
acceptChannel := false asValue.
@@ -4794,7 +4836,7 @@
box addHorizontalLine.
].
(Smalltalk at:#SettingsDialog) isBehavior ifTrue:[
- box addCheckBox:(resources string:'Use the New Settings Dialog') on:useNewSettinsApplication.
+ box addCheckBox:(resources string:'Use the New Settings Dialog') on:useNewSettingsApplication.
box addHorizontalLine.
].
box addCheckBox:(resources string:'Use Hierarchical Inspector') on:useNewInspector.
@@ -4831,8 +4873,8 @@
currentUserPrefs useNewVersionDiffBrowser:useNewVersionDiffBrowser value.
currentUserPrefs useNewFileBrowser:useNewFileBrowser value.
currentUserPrefs useNewFileDialog:useNewFileDialog value.
- currentUserPrefs useNewSettinsApplication ~= useNewSettinsApplication value ifTrue:[
- currentUserPrefs useNewSettinsApplication:useNewSettinsApplication value.
+ currentUserPrefs useNewSettingsApplication ~= useNewSettingsApplication value ifTrue:[
+ currentUserPrefs useNewSettingsApplication:useNewSettingsApplication value.
NewLauncher open.
].
(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
@@ -6597,5 +6639,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.243 2002-12-16 10:55:59 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.244 2002-12-16 17:22:19 penk Exp $'
! !