equal
deleted
inserted
replaced
93 !Launcher class methodsFor:'accessing'! |
93 !Launcher class methodsFor:'accessing'! |
94 |
94 |
95 current |
95 current |
96 "return the launcher running on the current screen. |
96 "return the launcher running on the current screen. |
97 (for access via addMenu/ removeMenu)" |
97 (for access via addMenu/ removeMenu)" |
98 |
|
99 |screen| |
|
100 |
98 |
101 OpenLaunchers do:[:aLauncher | |
99 OpenLaunchers do:[:aLauncher | |
102 aLauncher window graphicsDevice == Screen current ifTrue:[ |
100 aLauncher window graphicsDevice == Screen current ifTrue:[ |
103 ^ aLauncher |
101 ^ aLauncher |
104 ] |
102 ] |
405 ! |
403 ! |
406 |
404 |
407 objectModuleDialog |
405 objectModuleDialog |
408 |allModules moduleNames |
406 |allModules moduleNames |
409 allObjects methodObjects methodNames |
407 allObjects methodObjects methodNames |
410 cObjects cObjectNames cFunctionNames |
408 cObjects cObjectNames |
411 otherObjects otherObjectNames |
409 otherObjects otherObjectNames |
412 box l handles unloadButton |
410 box l handles unloadButton |
413 list1 list2 listView1 listView2 |
411 list1 list2 listView1 listView2 |
414 y panel |
412 y panel |
415 showBuiltIn showModules showMethods showCObjects showOthers |
413 showBuiltIn showModules showMethods showCObjects showOthers |
420 |
418 |
421 showModules := canDoIt asValue. |
419 showModules := canDoIt asValue. |
422 showMethods := canDoIt asValue. |
420 showMethods := canDoIt asValue. |
423 showCObjects := canDoIt asValue. |
421 showCObjects := canDoIt asValue. |
424 showOthers := canDoIt asValue. |
422 showOthers := canDoIt asValue. |
|
423 |
|
424 list1 := SelectionInList new. |
|
425 list2 := SelectionInList new. |
425 |
426 |
426 moduleListUpdater := [ |
427 moduleListUpdater := [ |
427 |l| |
428 |l| |
428 |
429 |
429 list2 list:nil. |
430 list2 list:nil. |
483 ]. |
484 ]. |
484 |
485 |
485 list1 list:l. |
486 list1 list:l. |
486 unloadButton disable. |
487 unloadButton disable. |
487 ]. |
488 ]. |
488 |
|
489 list1 := SelectionInList new. |
|
490 list2 := SelectionInList new. |
|
491 |
489 |
492 showBuiltIn onChangeSend:#value to:moduleListUpdater. |
490 showBuiltIn onChangeSend:#value to:moduleListUpdater. |
493 showModules onChangeSend:#value to:moduleListUpdater. |
491 showModules onChangeSend:#value to:moduleListUpdater. |
494 showMethods onChangeSend:#value to:moduleListUpdater. |
492 showMethods onChangeSend:#value to:moduleListUpdater. |
495 showCObjects onChangeSend:#value to:moduleListUpdater. |
493 showCObjects onChangeSend:#value to:moduleListUpdater. |
839 |
837 |
840 compilerSettings |
838 compilerSettings |
841 |box warnings warnSTX warnUnderscore warnOldStyle allowUnderscore immutableArrays |
839 |box warnings warnSTX warnUnderscore warnOldStyle allowUnderscore immutableArrays |
842 warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox |
840 warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox |
843 stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions |
841 stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions |
844 stcLibraries stcLibraryPath historyLines sourceMode catchRedefs keepSourceOptions keepSource |
842 stcLibraries stcLibraryPath historyLines catchRedefs keepSourceOptions keepSource |
845 foldConstants constantFoldingOptions constantFolding justInTimeCompilation |
843 constantFoldingOptions constantFolding justInTimeCompilation |
846 warnEnabler check component oldIndent t supportsJustInTimeCompilation y| |
844 warnEnabler check component oldIndent t supportsJustInTimeCompilation y| |
847 |
845 |
848 warnings := Compiler warnings asValue. |
846 warnings := Compiler warnings asValue. |
849 |
847 |
850 warnSTX := Compiler warnSTXSpecials asValue. |
848 warnSTX := Compiler warnSTXSpecials asValue. |
1098 ! |
1096 ! |
1099 |
1097 |
1100 displaySettings |
1098 displaySettings |
1101 |box |
1099 |box |
1102 sizes sizeNames sizeList sizeX sizeY deepIcons |
1100 sizes sizeNames sizeList sizeX sizeY deepIcons |
1103 isColorMonitor useFixPalette dither idx ditherStyles ditherSyms ditherList |
1101 isColorMonitor useFixPalette idx ditherStyles ditherSyms ditherList |
1104 check y component oldIndent commandList screen visual| |
1102 y component screen visual| |
1105 |
1103 |
1106 sizeNames := #( |
1104 sizeNames := #( |
1107 '9'' (212mm x 160mm) GAS plasma/LCD' |
1105 '9'' (212mm x 160mm) GAS plasma/LCD' |
1108 '11.3'' (235mm x 175mm) LCD' |
1106 '11.3'' (235mm x 175mm) LCD' |
1109 '16'' (275mm x 208mm)' |
1107 '16'' (275mm x 208mm)' |
1339 macroTextView contents:macro. |
1337 macroTextView contents:macro. |
1340 ]. |
1338 ]. |
1341 |
1339 |
1342 list1 := SelectionInList with:listOfRawKeys. |
1340 list1 := SelectionInList with:listOfRawKeys. |
1343 list1 onChangeSend:#showFunction to:selectionForwarder. |
1341 list1 onChangeSend:#showFunction to:selectionForwarder. |
|
1342 |
1344 list2 := SelectionInList with:listOfFunctions. |
1343 list2 := SelectionInList with:listOfFunctions. |
1345 list2 onChangeSend:#showRawKey to:selectionForwarder. |
1344 list2 onChangeSend:#showRawKey to:selectionForwarder. |
1346 list2 onChangeSend:#value to:macroForwarder. |
1345 list2 onChangeSend:#value to:macroForwarder. |
1347 |
1346 |
1348 box := Dialog new. |
1347 box := Dialog new. |
1436 "Modified: 5.7.1996 / 13:12:39 / cg" |
1435 "Modified: 5.7.1996 / 13:12:39 / cg" |
1437 "Modified: 9.9.1996 / 22:43:27 / stefan" |
1436 "Modified: 9.9.1996 / 22:43:27 / stefan" |
1438 ! |
1437 ! |
1439 |
1438 |
1440 memorySettings |
1439 memorySettings |
1441 |box check igcLimit igcFreeLimit igcFreeAmount newSpaceSize |
1440 |box igcLimit igcFreeLimit igcFreeAmount newSpaceSize |
1442 compressLimit |
1441 compressLimit |
1443 oldIncr component fields| |
1442 oldIncr component fields| |
1444 |
1443 |
1445 "/ |
1444 "/ |
1446 "/ extract relevant system settings ... |
1445 "/ extract relevant system settings ... |
1789 ! |
1788 ! |
1790 |
1789 |
1791 printerSettings |
1790 printerSettings |
1792 |box |
1791 |box |
1793 possiblePrinters possibleTypes printerType printCommand |
1792 possiblePrinters possibleTypes printerType printCommand |
1794 possiblePageFormats pageFormat landscape format updater |
1793 pageFormat landscape updater |
1795 formatLabel formatComponent landscapeLabel landscapeComponent |
1794 formatLabel formatComponent landscapeLabel landscapeComponent |
1796 topMargin leftMargin rightMargin bottomMargin unitList unit |
1795 topMargin leftMargin rightMargin bottomMargin unitList unit |
1797 topMarginLabel topMarginComponent leftMarginLabel leftMarginComponent |
1796 topMarginComponent leftMarginComponent |
1798 rightMarginLabel rightMarginComponent |
1797 rightMarginComponent |
1799 bottomMarginLabel bottomMarginComponent supportsColor supportsColorComponent |
1798 bottomMarginComponent supportsColor supportsColorComponent |
1800 check y y1 commandListPop component oldIndent commandList row| |
1799 y y1 commandListPop component commandList row| |
1801 |
1800 |
1802 possiblePrinters := PrinterStream withAllSubclasses asArray. |
1801 possiblePrinters := PrinterStream withAllSubclasses asArray. |
1803 possibleTypes := possiblePrinters collect:[:cls | cls printerTypeName]. |
1802 possibleTypes := possiblePrinters collect:[:cls | cls printerTypeName]. |
1804 |
1803 |
1805 printerType := SelectionInList new list:(resources array:possibleTypes). |
1804 printerType := SelectionInList new list:(resources array:possibleTypes). |
3292 ! ! |
3291 ! ! |
3293 |
3292 |
3294 !Launcher methodsFor:'private'! |
3293 !Launcher methodsFor:'private'! |
3295 |
3294 |
3296 fontBoxForEncoding:encodingMatch |
3295 fontBoxForEncoding:encodingMatch |
3297 |box defaultFont y b |
3296 |box y b |
3298 labelDef buttonDef listDef menuDef textDef |
3297 labelDef buttonDef listDef menuDef textDef |
3299 models labels allOfThem filter| |
3298 models labels allOfThem filter| |
3300 |
3299 |
3301 encodingMatch notNil ifTrue:[ |
3300 encodingMatch notNil ifTrue:[ |
3302 filter := [:f | f encoding notNil |
3301 filter := [:f | f encoding notNil |
3421 |
3420 |
3422 reopenLauncher |
3421 reopenLauncher |
3423 "for now (since style & language settings currently do |
3422 "for now (since style & language settings currently do |
3424 not affect living views ...)" |
3423 not affect living views ...)" |
3425 |
3424 |
3426 |contents fontPref enc fontList newDefault newLauncher| |
3425 |contents fontPref enc newLauncher| |
3427 |
3426 |
3428 fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'. |
3427 fontPref := self class classResources at:'PREFERRED_FONT_ENCODING'. |
3429 enc := MenuView defaultFont encoding. |
3428 enc := MenuView defaultFont encoding. |
3430 (fontPref match:enc) ifFalse:[ |
3429 (fontPref match:enc) ifFalse:[ |
3431 (self confirm:'menu font is not ' , fontPref , '-encoded.\\Change it ?' withCRs) |
3430 (self confirm:'menu font is not ' , fontPref , '-encoded.\\Change it ?' withCRs) |
3486 ! ! |
3485 ! ! |
3487 |
3486 |
3488 !Launcher class methodsFor:'documentation'! |
3487 !Launcher class methodsFor:'documentation'! |
3489 |
3488 |
3490 version |
3489 version |
3491 ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.193 1996-09-30 20:40:18 cg Exp $' |
3490 ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.194 1996-09-30 21:01:34 cg Exp $' |
3492 ! ! |
3491 ! ! |