--- a/NewLauncher.st Fri Jul 31 20:18:39 1998 +0200
+++ b/NewLauncher.st Fri Jul 31 22:50:22 1998 +0200
@@ -2370,7 +2370,7 @@
"reopen a new launcher.
for now (since style & language settings currently do
not affect living views ...)
- WARNING: bad design: Message known in SettingsDialogs"
+ WARNING: bad design: Message known in LauncherDialogs"
|contents builder newLauncher|
@@ -2381,7 +2381,7 @@
newLauncher transcript list:contents; hideCursor; scrollToBottom; cursorToEnd; showCursor.
DebugView newDebugger.
- "Modified: / 5.2.1998 / 20:08:31 / cg"
+ "Modified: / 31.7.1998 / 22:48:17 / cg"
! !
!NewLauncher methodsFor:'queries'!
@@ -2497,7 +2497,9 @@
for now (since style & language settings currently do
not affect living views ...)"
- self reopenLauncher "/ WARNING: bad design: Message known in SettingsDialogs
+ self reopenLauncher "/ WARNING: bad design: Message known in LauncherDialogs
+
+ "Modified: / 31.7.1998 / 22:48:12 / cg"
!
restarted
@@ -2907,835 +2909,41 @@
compilerSettings
"open a dialog on compiler related settings"
- Launcher::SettingsDialogs compilerSettingsFor:self.
-
-"/ |box warnings warnSTX warnUnderscore warnDollar warnOldStyle
-"/ allowDollar allowUnderscore immutableArrays
-"/ warnSTXBox warnUnderscoreBox warnOldStyleBox warnCommonMistakes warnCommonMistakesBox
-"/ warnCompatibility warnCompatibilityBox warnDollarBox
-"/ stcCompilation compilationList stcCompilationOptions stcIncludes stcDefines stcOptions
-"/ stcLibraries stcLibraryPath cc ccOptions historyLines fullHistoryUpdate catchRedefs keepSourceOptions keepSource
-"/ constantFoldingOptions constantFolding justInTimeCompilation
-"/ warnEnabler check component oldIndent t supportsJustInTimeCompilation y
-"/ y2 fullDebugSupport yMax
-"/ compileLazy loadBinaries canLoadBinaries strings idx thisIsADemoVersion|
-"/
-"/ canLoadBinaries := ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles].
-"/ loadBinaries := Smalltalk loadBinaries asValue.
-"/ compileLazy := Autoload compileLazy asValue.
-"/
-"/ warnings := Compiler warnings asValue.
-"/
-"/ warnSTX := Compiler warnSTXSpecials asValue.
-"/ warnUnderscore := Compiler warnUnderscoreInIdentifier asValue.
-"/ warnDollar := Compiler warnDollarInIdentifier asValue.
-"/ warnOldStyle := Compiler warnOldStyleAssignment asValue.
-"/ warnCommonMistakes := Compiler warnCommonMistakes asValue.
-"/ warnCompatibility := Compiler warnPossibleIncompatibilities asValue.
-"/ allowUnderscore := Compiler allowUnderscoreInIdentifier asValue.
-"/ allowDollar := Compiler allowDollarInIdentifier asValue.
-"/ immutableArrays := Compiler arraysAreImmutable asValue.
-"/
-"/ constantFoldingOptions := #( nil #level1 #level2 #full ).
-"/ constantFolding := SelectionInList new list:(resources array:#('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')).
-"/ constantFolding selectionIndex:3.
-"/
-"/ thisIsADemoVersion := (Smalltalk releaseIdentification = 'ST/X_free_demo_vsn').
-"/ thisIsADemoVersion ifTrue:[
-"/ stcCompilationOptions := #( never).
-"/ strings := #('never').
-"/ idx := 1.
-"/ ] ifFalse:[
-"/ stcCompilationOptions := #( always default never).
-"/ strings := #('always' 'primitive code only' 'never').
-"/ idx := 2.
-"/ ].
-"/
-"/ stcCompilation := SelectionInList new list:(resources array:strings).
-"/ stcCompilation selectionIndex:idx.
-"/ (supportsJustInTimeCompilation := ObjectMemory supportsJustInTimeCompilation)
-"/ ifTrue:[
-"/ justInTimeCompilation := ObjectMemory justInTimeCompilation:nil.
-"/ fullDebugSupport := ObjectMemory fullSingleStepSupport:nil.
-"/ ] ifFalse:[
-"/ justInTimeCompilation := false.
-"/ fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
-"/ ].
-"/ justInTimeCompilation := justInTimeCompilation asValue.
-"/ fullDebugSupport := fullDebugSupport asValue.
-"/
-"/ stcIncludes := Compiler stcCompilationIncludes asValue.
-"/ stcDefines := Compiler stcCompilationDefines asValue.
-"/ stcOptions := Compiler stcCompilationOptions asValue.
-"/ ccOptions := Compiler ccCompilationOptions asValue.
-"/ cc := Compiler ccPath asValue.
-"/
-"/ ObjectFileLoader notNil ifTrue:[
-"/ (t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
-"/ stcLibraries := (String fromStringCollection:t separatedBy:' ') asValue.
-"/ ].
-"/ (t := ObjectFileLoader libPath) notNil ifTrue:[
-"/ stcLibraryPath := t asValue.
-"/ ]
-"/ ].
-"/
-"/ catchRedefs := Class catchMethodRedefinitions asValue.
-"/ historyLines := HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]].
-"/ historyLines ifFalse:[
-"/ fullHistoryUpdate := false
-"/ ] ifTrue:[
-"/ fullHistoryUpdate := HistoryManager fullHistoryUpdate asValue.
-"/ ].
-"/ historyLines := historyLines asValue.
-"/
-"/ keepSourceOptions := #( keep reference absReference sourceReference discard ).
-"/ keepSource := SelectionInList new list:(resources array:#('keep as string' 'reference to filename' 'reference to full path' 'append and ref in `st.src''' 'discard' )).
-"/ keepSource selectionIndex:1.
-"/
-"/ warnEnabler := [
-"/ warnings value ifTrue:[
-"/ warnSTXBox enable.
-"/ warnOldStyleBox enable.
-"/ warnCommonMistakesBox enable.
-"/ warnCompatibilityBox enable.
-"/ allowUnderscore value ifTrue:[
-"/ warnUnderscoreBox enable.
-"/ ] ifFalse:[
-"/ warnUnderscoreBox disable.
-"/ ].
-"/ allowDollar value ifTrue:[
-"/ warnDollarBox enable.
-"/ ] ifFalse:[
-"/ warnDollarBox disable.
-"/ ].
-"/ ] ifFalse:[
-"/ warnSTXBox disable.
-"/ warnUnderscoreBox disable.
-"/ warnDollarBox disable.
-"/ warnOldStyleBox disable.
-"/ warnCommonMistakesBox disable.
-"/ warnCompatibilityBox disable.
-"/ ]].
-"/
-"/ warnings onChangeSend:#value to:warnEnabler.
-"/ allowUnderscore onChangeSend:#value to:warnEnabler.
-"/ allowDollar onChangeSend:#value to:warnEnabler.
-"/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Compiler settings').
-"/
-"/ box addCheckBox:(resources string:'catch method redefinitions') on:catchRedefs.
-"/ y := box yPosition.
-"/ check := box addCheckBox:(resources string:'keep history line in methods') on:historyLines.
-"/ HistoryManager isNil ifTrue:[check disable].
-"/ box yPosition:y.
-"/ check := box addCheckBox:(resources string:'keep full class history') on:fullHistoryUpdate.
-"/ check left:0.5.
-"/ HistoryManager isNil ifTrue:[check disable] ifFalse:[check enableChannel:historyLines].
-"/
-"/ box addPopUpList:(resources string:'fileIn source mode:') on:keepSource.
-"/ keepSource selectionIndex:( keepSourceOptions indexOf:(ClassCategoryReader sourceMode) ifAbsent:1).
-"/
-"/ box addHorizontalLine.
-"/
-"/ box addCheckBox:(resources string:'lazy compilation when autoloading') on:compileLazy.
-"/ check := box addCheckBox:(resources string:'if present, load binary objects when autoloading') on:loadBinaries.
-"/ canLoadBinaries ifFalse:[
-"/ loadBinaries value:false.
-"/ check disable
-"/ ].
-"/ supportsJustInTimeCompilation ifTrue:[
-"/ component := box
-"/ addCheckBox:(resources string:'just in time compilation to machine code')
-"/ on:justInTimeCompilation.
-"/ ].
-"/
-"/ box addHorizontalLine.
-"/
-"/ ObjectFileLoader notNil ifTrue:[
-"/ compilationList := box addPopUpList:(resources string:'stc compilation to machine code') on:stcCompilation.
-"/
-"/ thisIsADemoVersion ifFalse:[
-"/ stcCompilation selectionIndex:( stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'include directories:')
-"/ adjust:#right
-"/ on:stcIncludes
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/
-"/"/ box addVerticalSpace.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'defines:')
-"/ adjust:#right
-"/ on:stcDefines
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/
-"/"/ box addVerticalSpace.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'stc options:')
-"/ adjust:#right
-"/ on:stcOptions
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/
-"/"/ box addVerticalSpace.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'cc command:')
-"/ adjust:#right
-"/ on:cc
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'cc options:')
-"/ adjust:#right
-"/ on:ccOptions
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/
-"/ stcLibraries notNil ifTrue:[
-"/"/ box addVerticalSpace.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'C-libraries:')
-"/ adjust:#right
-"/ on:stcLibraries
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/ ].
-"/
-"/ stcLibraryPath notNil ifTrue:[
-"/"/ box addVerticalSpace.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'stc libPath:')
-"/ adjust:#right
-"/ on:stcLibraryPath
-"/ tabable:true
-"/ separateAtX:0.3.
-"/ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ component preferredExtent:(250 @ component preferredExtent y).
-"/ canLoadBinaries ifFalse:[component disable].
-"/ ].
-"/ ].
-"/
-"/"/ box addVerticalSpace.
-"/ box addHorizontalLine.
-"/
-"/ "/ if there is no compiler around,
-"/ "/ change to compile nothing, and disable the checkBoxes
-"/ Compiler canCreateMachineCode ifFalse:[
-"/ stcCompilation selectionIndex:(3 min:stcCompilationOptions size).
-"/ compilationList disable.
-"/ ].
-"/ ].
-"/
-"/ y := box yPosition.
-"/
-"/ component := box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
-"/ component width:0.4.
-"/
-"/ component := box addCheckBox:(resources string:'allow dollar in identifiers') on:allowDollar.
-"/ component width:0.4.
-"/
-"/ component := box addCheckBox:(resources string:'literal arrays are immutable') on:immutableArrays.
-"/ component width:0.4.
-"/ y2 := box yPosition.
-"/
-"/ box yPosition:y.
-"/ box leftIndent:0.
-"/
-"/ component :=box addPopUpList:(resources string:'constant folding:') on:constantFolding.
-"/ component superView left:0.5; width:0.5.
-"/ constantFolding selectionIndex:( constantFoldingOptions indexOf:(Compiler foldConstants) ifAbsent:1).
-"/
-"/ component := box addCheckBox:(resources string:'full debug info') on:fullDebugSupport.
-"/ component left:0.5; width:0.4.
-"/ box yPosition:(box yPosition max:y2).
-"/
-"/
-"/ box addHorizontalLine.
-"/
-"/ box addCheckBox:(resources string:'warnings') on:warnings.
-"/"/ box addVerticalSpace.
-"/ oldIndent := box leftIndent.
-"/ box leftIndent:30.
-"/
-"/ y := box yPosition.
-"/
-"/ warnSTXBox := box addCheckBox:(resources string:'ST/X extensions') on:warnSTX.
-"/ warnSTXBox width:0.4.
-"/
-"/ warnUnderscoreBox := box addCheckBox:(resources string:'underscores in identifiers') on:warnUnderscore.
-"/ warnUnderscoreBox width:0.4.
-"/
-"/ warnDollarBox := box addCheckBox:(resources string:'dollars in identifiers') on:warnDollar.
-"/ warnDollarBox width:0.4.
-"/
-"/ yMax := box yPosition.
-"/
-"/ box yPosition:y.
-"/ box leftIndent:0.
-"/ warnOldStyleBox := box addCheckBox:(resources string:'oldStyle assignment') on:warnOldStyle.
-"/ warnOldStyleBox left:0.5; width:0.4.
-"/
-"/ warnCommonMistakesBox := box addCheckBox:(resources string:'common mistakes') on:warnCommonMistakes.
-"/ warnCommonMistakesBox left:0.5; width:0.4.
-"/
-"/ warnCompatibilityBox := box addCheckBox:(resources string:'possible incompatibilities') on:warnCompatibility.
-"/ warnCompatibilityBox left:0.5; width:0.4.
-"/
-"/ box leftIndent:oldIndent.
-"/ box yPosition:(yMax max: box yPosition).
-"/
-"/ box
-"/ addHelpButtonFor:'Launcher/compilerSettings.html';
-"/ addAbortButton;
-"/ addOkButton.
-"/
-"/ warnEnabler value.
-"/ box open.
-"/
-"/ box accepted ifTrue:[
-"/ HistoryManager notNil ifTrue:[
-"/ HistoryManager fullHistoryUpdate:fullHistoryUpdate value.
-"/ historyLines value ifTrue:[
-"/ HistoryManager activate
-"/ ] ifFalse:[
-"/ HistoryManager deactivate
-"/ ].
-"/ ].
-"/ Class catchMethodRedefinitions:catchRedefs value.
-"/ ClassCategoryReader sourceMode:(keepSourceOptions at:keepSource selectionIndex).
-"/ Compiler warnings:warnings value.
-"/ Compiler warnSTXSpecials:warnSTX value.
-"/ Compiler warnOldStyleAssignment:warnOldStyle value.
-"/ Compiler warnUnderscoreInIdentifier:warnUnderscore value.
-"/ Compiler warnDollarInIdentifier:warnDollar value.
-"/ Compiler warnCommonMistakes:warnCommonMistakes value.
-"/ Compiler warnPossibleIncompatibilities:warnCompatibility value.
-"/ Compiler allowUnderscoreInIdentifier:allowUnderscore value.
-"/ Compiler allowDollarInIdentifier:allowDollar value.
-"/ Compiler arraysAreImmutable:immutableArrays value.
-"/ fullDebugSupport value ifTrue:[
-"/ Compiler lineNumberInfo:#full.
-"/ ] ifFalse:[
-"/ Compiler lineNumberInfo:true
-"/ ].
-"/
-"/ Compiler stcCompilation:(stcCompilationOptions at:stcCompilation selectionIndex).
-"/ thisIsADemoVersion ifFalse:[
-"/ Compiler stcCompilationIncludes:stcIncludes value.
-"/ Compiler stcCompilationDefines:stcDefines value.
-"/ Compiler stcCompilationOptions:stcOptions value.
-"/ Compiler ccCompilationOptions:ccOptions value.
-"/ Compiler ccPath:cc value.
-"/ ].
-"/ Compiler foldConstants:(constantFoldingOptions at:constantFolding selectionIndex).
-"/
-"/ supportsJustInTimeCompilation ifTrue:[
-"/ justInTimeCompilation value ifTrue:[
-"/ Method allInstancesDo:[:m | m checked:false].
-"/ ].
-"/ ObjectMemory justInTimeCompilation:justInTimeCompilation value.
-"/ ObjectMemory fullSingleStepSupport:fullDebugSupport value.
-"/ ].
-"/ ObjectFileLoader notNil ifTrue:[
-"/ stcLibraries notNil ifTrue:[
-"/ ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
-"/ ].
-"/ stcLibraryPath notNil ifTrue:[
-"/ ObjectFileLoader libPath:(stcLibraryPath value).
-"/ ]
-"/ ].
-"/ Autoload compileLazy:compileLazy value.
-"/ Smalltalk loadBinaries:loadBinaries value.
-"/ ].
-"/ box destroy
-"/
-"/ "Modified: / 10.9.1995 / 19:19:18 / claus"
-"/ "Modified: / 9.9.1996 / 22:42:47 / stefan"
-"/ "Modified: / 23.4.1998 / 14:30:36 / cg"
+ Launcher::LauncherDialogs compilerSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:45:16 / cg"
!
displaySettings
"open a dialog on display related settings"
- Launcher::SettingsDialogs displaySettingsFor:self.
-
-"/ |box listOfSizes sizeInfos
-"/ sizes sizeNames sizeList sizeX sizeY deepIcons
-"/ isColorMonitor useFixPalette useFixGrayPalette idx ditherStyles ditherSyms ditherList
-"/ y component screen visual clipEncodings clipEncodingSyms clipEncodingList|
-"/
-"/ listOfSizes := resources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
-"/ listOfSizes == #default ifTrue:[
-"/ "/ nothing in resource file; offer at least some.
-"/ sizeInfos := #(
-"/ ( '11.3'' (235mm x 175mm) LCD' (235 175) )
-"/ ( '17'' (325mm x 245mm)' (325 245) )
-"/ ( '19'' (340mm x 270mm)' (340 270) )
-"/ ( '20'' (350mm x 280mm)' (350 280) )
-"/ ( '21'' (365mm x 285mm)' (365 285) )
-"/ ).
-"/ ] ifFalse:[
-"/ sizeInfos := resources array:listOfSizes.
-"/ ].
-"/ sizeNames := sizeInfos collect:[:entry | entry at:1].
-"/ sizes := sizeInfos collect:[:entry | entry at:2].
-"/
-"/ screen := Screen current.
-"/ visual := screen visualType.
-"/
-"/ isColorMonitor := screen hasColors asValue.
-"/ deepIcons := screen supportsDeepIcons asValue.
-"/ useFixPalette := screen fixColors notNil asValue.
-"/ useFixGrayPalette := screen fixGrayColors notNil asValue.
-"/
-"/ sizeList := SelectionInList with:sizeNames.
-"/ sizeX := screen widthInMillimeter asValue.
-"/ sizeY := screen heightInMillimeter asValue.
-"/
-"/ clipEncodingSyms := #(nil #iso8859 #jis #jis7 #sjis #euc #big5).
-"/ clipEncodings := resources array:#('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5').
-"/ clipEncodingList := SelectionInList new.
-"/ clipEncodingList list:clipEncodings.
-"/ clipEncodingList selectionIndex:(clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1).
-"/
-"/ ditherList := SelectionInList new.
-"/
-"/ (visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
-"/ ditherStyles := #('threshold' 'ordered dither' 'error diffusion').
-"/ ditherSyms := #(threshold ordered floydSteinberg).
-"/ ] ifFalse:[
-"/ visual ~~ #TrueColor ifTrue:[
-"/ ditherStyles := #('nearest color' 'error diffusion').
-"/ ditherSyms := #(ordered floydSteinberg).
-"/ ]
-"/ ].
-"/ ditherSyms notNil ifTrue:[
-"/ ditherList list:ditherStyles.
-"/ ditherList selectionIndex:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
-"/ ].
-"/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Display screen settings').
-"/
-"/ (box addTextLabel:(resources string:'Actual visible screen area:'))
-"/ adjust:#left.
-"/
-"/ (box addPopUpList:(resources string:'common sizes:') on:sizeList)
-"/ label:'monitor size'.
-"/
-"/ idx := sizes findFirst:[:entry |
-"/ ((entry at:1) = sizeX value)
-"/ and:[((entry at:2) = sizeY value)]
-"/ ].
-"/ idx ~~ 0 ifTrue:[
-"/ sizeList selectionIndex:idx
-"/ ].
-"/
-"/ sizeList onChangeSend:#value to:[
-"/ |idx|
-"/
-"/ idx := sizeList selectionIndex.
-"/ sizeX value:((sizes at:idx) at:1).
-"/ sizeY value:((sizes at:idx) at:2).
-"/ ].
-"/
-"/ y := box yPosition.
-"/ component := box addTextLabel:(resources string:'screen size:').
-"/ component width:0.3; adjust:#right; borderWidth:0.
-"/
-"/ box yPosition:y.
-"/ component := box addInputFieldOn:nil tabable:true.
-"/ component width:0.25; left:0.3;
-"/ immediateAccept:false; acceptOnLeave:false;
-"/ cursorMovementWhenUpdating:#beginOfLine;
-"/ converter:(PrintConverter new initForInteger);
-"/ model:sizeX.
-"/
-"/ box yPosition:y.
-"/ component := box addTextLabel:(' x ').
-"/ component width:0.1; left:0.55; adjust:#center; borderWidth:0.
-"/
-"/ box yPosition:y.
-"/ component := box addInputFieldOn:nil tabable:true.
-"/ component width:0.25; left:0.65;
-"/ immediateAccept:false; acceptOnLeave:false;
-"/ cursorMovementWhenUpdating:#beginOfLine;
-"/ converter:(PrintConverter new initForInteger);
-"/ model:sizeY.
-"/
-"/ box yPosition:y.
-"/ component := box addTextLabel:('(mm)').
-"/ component width:0.1; left:0.9; adjust:#center; borderWidth:0.
-"/
-"/ box addVerticalSpace.
-"/ box addHorizontalLine.
-"/ box addVerticalSpace.
-"/
-"/ (box addTextLabel:(resources string:'Screen: depth: %1 visual: %2 (%3)'
-"/ with:Screen current depth printString
-"/ with:Screen current visualType
-"/ with:Screen current serverVendor))
-"/ adjust:#left.
-"/
-"/ box addVerticalSpace.
-"/ box addHorizontalLine.
-"/ box addVerticalSpace.
-"/
-"/ box addCheckBox:(resources string:'color monitor') on:isColorMonitor.
-"/
-"/ visual == #PseudoColor ifTrue:[
-"/ box addVerticalSpace.
-"/ component := box addCheckBox:(resources string:'use fix color palette %1' with:'(4x8x4)') on:useFixPalette.
-"/
-"/ box addVerticalSpace.
-"/ component := box addCheckBox:(resources string:'use fix gray color palette %1' with:'(32)') on:useFixGrayPalette.
-"/ ].
-"/
-"/ ditherSyms notNil ifTrue:[
-"/ box addVerticalSpace.
-"/ component := box addPopUpList:(resources string:'image display:') on:ditherList.
-"/ component defaultLabel:'image display'.
-"/ component superView horizontalLayout:#leftSpace.
-"/ ].
-"/
-"/ box addVerticalSpace.
-"/ box addCheckBox:(resources string:'allow colored/grayscale icons') on:deepIcons.
-"/
-"/ box addVerticalSpace.
-"/ box addHorizontalLine.
-"/ box addVerticalSpace.
-"/
-"/ component := box addPopUpList:(resources string:'clipBoard encoding:') on:clipEncodingList.
-"/ component superView horizontalLayout:#leftSpace.
-"/
-"/ box
-"/ addHelpButtonFor:'Launcher/screenSettings.html';
-"/ addAbortButton; addOkButton.
-"/ box open.
-"/
-"/ box accepted ifTrue:[
-"/ Image flushDeviceImages.
-"/
-"/ screen visualType == #PseudoColor ifTrue:[
-"/ useFixPalette value ifTrue:[
-"/ Color colorAllocationFailSignal handle:[:ex |
-"/ self warn:(resources string:'Could not allocate colors.').
-"/ ] do:[
-"/ Color getColorsRed:4 green:8 blue:4 on:screen
-"/ ]
-"/ ] ifFalse:[
-"/ screen releaseFixColors
-"/ ].
-"/
-"/ useFixGrayPalette value ifTrue:[
-"/ Color colorAllocationFailSignal handle:[:ex |
-"/ self warn:(resources string:'Could not allocate colors.').
-"/ ] do:[
-"/ Color getGrayColors:32 on:screen
-"/ ]
-"/ ] ifFalse:[
-"/ screen releaseFixGrayColors
-"/ ]
-"/ ].
-"/ screen hasColors:isColorMonitor value.
-"/ screen widthInMillimeter:sizeX value.
-"/ screen heightInMillimeter:sizeY value.
-"/
-"/ screen supportsDeepIcons:deepIcons value.
-"/ ditherSyms notNil ifTrue:[
-"/ Image ditherAlgorithm:(ditherSyms at:ditherList selectionIndex).
-"/ ].
-"/
-"/ self withWaitCursorDo:[
-"/ View defaultStyle:(View defaultStyle).
-"/ ].
-"/
-"/ screen clipBoardEncoding:(clipEncodingSyms at:clipEncodingList selectionIndex).
-"/ ].
-"/ box destroy
-
+ Launcher::LauncherDialogs displaySettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:45:38 / cg"
!
fontSettings
"open a dialog on font related settings"
- Launcher::SettingsDialogs fontSettingsFor:self
-
-"/ (self fontBoxForEncoding:nil) ifTrue:[self reOpen]
-
+ Launcher::LauncherDialogs fontSettingsFor:self
+
+ "Modified: / 31.7.1998 / 22:45:44 / cg"
!
keyboardSetting
"open a dialog on keyboard related settings"
- Launcher::SettingsDialogs keyboardSettingsFor:self.
-
-"/ |mappings listOfRawKeys listOfFunctions
-"/ box l
-"/ list1 list2 listView1 listView2
-"/ frame selectionForwarder macroForwarder macroTextView y|
-"/
-"/ mappings := Screen current keyboardMap.
-"/
-"/ listOfRawKeys := (mappings keys asArray collect:[:key | key asString]) sort.
-"/ listOfFunctions := (mappings values asSet asArray collect:[:key | key asString]) sort.
-"/
-"/ selectionForwarder := Plug new.
-"/ selectionForwarder respondTo:#showFunction
-"/ with:[
-"/ |raw|
-"/ raw := list1 selection.
-"/ list2 retractInterestsFor:selectionForwarder.
-"/ list2 selection:(mappings at:raw asSymbol) asString.
-"/ list2 onChangeSend:#showRawKey to:selectionForwarder.
-"/ ].
-"/ selectionForwarder respondTo:#showRawKey
-"/ with:[
-"/ |f raw|
-"/
-"/ f := list2 selection.
-"/ list1 retractInterestsFor:selectionForwarder.
-"/ raw := mappings keyAtValue:f asString.
-"/ raw isNil ifTrue:[
-"/ raw := mappings keyAtValue:f first.
-"/ raw isNil ifTrue:[
-"/ raw := mappings keyAtValue:f asSymbol.
-"/ ]
-"/ ].
-"/ list1 selection:raw.
-"/ list1 onChangeSend:#showFunction to:selectionForwarder.
-"/ ].
-"/
-"/ macroForwarder := [
-"/ |f macro indent|
-"/ f := list2 selection.
-"/ (f startsWith:'Cmd') ifTrue:[
-"/ f := f copyFrom:4
-"/ ].
-"/ macro := FunctionKeySequences at:(f asSymbol) ifAbsent:nil.
-"/ macro notNil ifTrue:[
-"/ macro := macro asStringCollection.
-"/ indent := macro
-"/ inject:99999 into:[:min :element |
-"/ |stripped|
-"/
-"/ stripped := element withoutLeadingSeparators.
-"/ stripped size == 0 ifTrue:[
-"/ min
-"/ ] ifFalse:[
-"/ min min:(element size - stripped size)
-"/ ]
-"/ ].
-"/ indent ~~ 0 ifTrue:[
-"/ macro := macro collect:[:line |
-"/ line size > indent ifTrue:[
-"/ line copyFrom:indent+1
-"/ ] ifFalse:[
-"/ line
-"/ ].
-"/ ]
-"/ ].
-"/ ].
-"/ macroTextView contents:macro.
-"/ ].
-"/
-"/ list1 := SelectionInList with:listOfRawKeys.
-"/ list1 onChangeSend:#showFunction to:selectionForwarder.
-"/
-"/ list2 := SelectionInList with:listOfFunctions.
-"/ list2 onChangeSend:#showRawKey to:selectionForwarder.
-"/ list2 onChangeSend:#value to:macroForwarder.
-"/
-"/ box := Dialog new.
-"/ box label:(resources string:'Keyboard mappings').
-"/
-"/ l := box addTextLabel:(resources string:'KEY_MSG') withCRs.
-"/ l adjust:#left; borderWidth:0.
-"/
-"/ frame := View new.
-"/ frame extent:300 @ 300.
-"/ frame borderWidth:0.
-"/
-"/ listView1 := ScrollableView for:SelectionInListView in:frame.
-"/ listView1 model:list1.
-"/ listView1 origin:0.0@0.0 corner:0.5@1.0; inset:2.
-"/
-"/ listView2 := ScrollableView for:SelectionInListView in:frame.
-"/ listView2 model:list2.
-"/ listView2 origin:0.5@0.0 corner:1.0@1.0; inset:2.
-"/
-"/ frame topInset:box yPosition.
-"/ box addComponent:frame withExtent:350@200.
-"/ box makeTabable:listView1.
-"/ box makeTabable:listView2.
-"/ frame origin:0.0@0.0 corner:1.0@0.6.
-"/
-"/ box addVerticalSpace.
-"/
-"/ l := box addTextLabel:(resources string:'Macro text (if any):') withCRs.
-"/ l adjust:#left; borderWidth:0.
-"/ l origin:0.0@0.6 corner:1.0@0.6.
-"/ l topInset:(View viewSpacing).
-"/ l bottomInset:(l preferredExtent y negated - View viewSpacing).
-"/
-"/ macroTextView := HVScrollableView for:TextView miniScroller:true.
-"/ box addComponent:macroTextView tabable:true.
-"/ macroTextView origin:0.0@0.6 corner:1.0@1.0.
-"/ y := box yPosition.
-"/
-"/ box
-"/ addHelpButtonFor:'Launcher/keyboardSetting.html';
-"/ "addAbortButton;"
-"/ addOkButtonLabelled:(resources string:'dismiss').
-"/
-"/ macroTextView topInset:(l preferredExtent y + 5).
-"/ macroTextView bottomInset:(box preferredExtent y - y).
-"/
-"/ box open.
-"/
-"/ box accepted ifTrue:[
-"/ "no action yet ..."
-"/ ].
-"/ box destroy
-
-
+ Launcher::LauncherDialogs keyboardSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:45:56 / cg"
!
languageSetting
"open a dialog on language related settings"
- Launcher::SettingsDialogs languageSettingsFor:self.
-
-"/ |listOfLanguages translatedLanguages switch box languageList flags|
-"/
-"/ "
-"/ get list of supported languages from the launchers resources ...
-"/ "
-"/ listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
-"/ listOfLanguages := listOfLanguages asOrderedCollection.
-"/ translatedLanguages := listOfLanguages collect:[:lang | |item|
-"/ item := resources at:lang.
-"/ item isString ifTrue:[
-"/ item
-"/ ] ifFalse:[
-"/ item at:1
-"/ ]
-"/ ].
-"/ flags := listOfLanguages collect:[:lang | |item|
-"/ item := resources at:lang.
-"/ item isArray ifTrue:[
-"/ item at:2
-"/ ] ifFalse:[
-"/ nil
-"/ ]
-"/ ].
-"/ flags := flags collect:[:nm | nm notNil ifTrue:[Image fromFile:nm] ifFalse:[nil]].
-"/
-"/ languageList := translatedLanguages with:flags collect:[:lang :flag |
-"/ LabelAndIcon icon:flag string:lang.
-"/ ].
-"/
-"/ box := ListSelectionBox title:(resources string:'LANG_MSG') withCRs.
-"/ box label:(resources string:'Language selection').
-"/ box list:languageList.
-"/ box initialText:(Language).
-"/ box action:[:newLanguage |
-"/ self withWaitCursorDo:[
-"/ |fontPref idx language oldLanguage enc answer matchingFonts|
-"/
-"/ idx := translatedLanguages indexOf:newLanguage withoutSeparators.
-"/ idx ~~ 0 ifTrue:[
-"/ language := listOfLanguages at:idx
-"/ ] ifFalse:[
-"/ language := newLanguage
-"/ ].
-"/
-"/ "/ check if the new language needs a differently encoded font;
-"/ "/ ask user to switch font and allow cancellation.
-"/ "/ Otherwise, you are left with unreadable menu & button items ...
-"/
-"/ oldLanguage := Smalltalk language.
-"/ Smalltalk language:language asSymbol.
-"/ ResourcePack flushCachedResourcePacks.
-"/ fontPref := self class classResources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
-"/ Smalltalk language:oldLanguage.
-"/
-"/ switch := true.
-"/ enc := MenuView defaultFont encoding.
-"/ (fontPref match:enc) ifFalse:[
-"/ "/ look if there is one at all.
-"/ matchingFonts := Screen current listOfAvailableFonts select:[:f | fontPref match:f encoding].
-"/ matchingFonts size == 0 ifTrue:[
-"/ (Dialog
-"/ confirm:(resources
-"/ string:'your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
-"/ with:fontPref) withCRs)
-"/ ifFalse:[
-"/ switch := false
-"/ ]
-"/ ] ifFalse:[
-"/ answer := Dialog
-"/ confirmWithCancel:(resources
-"/ string:'menu font is not %1-encoded.\\Change it ?'
-"/ with:fontPref) withCRs
-"/ labels:(resources
-"/ array:#('cancel' 'no' 'yes'))
-"/ default:3.
-"/ answer isNil ifTrue:[
-"/ switch := false
-"/ ] ifFalse:[
-"/ answer ifTrue:[
-"/ switch := (self fontBoxForEncoding:fontPref)
-"/ ]
-"/ ].
-"/ ].
-"/ ].
-"/
-"/ switch ifTrue:[
-"/ transcript showCR:'change language to ' , newLanguage , ' ...'.
-"/ Smalltalk language:language asSymbol.
-"/ ResourcePack flushCachedResourcePacks
-"/ ].
-"/ ].
-"/ switch ifTrue:[
-"/ self reOpen.
-"/ DebugView newDebugger.
-"/ ]
-"/ ].
-"/ box
-"/ addHelpButtonFor:'Launcher/languageSetting.html'.
-"/ box open.
-"/ box destroy
-
- "Modified: / 6.2.1998 / 00:01:01 / cg"
+ Launcher::LauncherDialogs languageSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:46:13 / cg"
!
loadSettings
@@ -3770,1104 +2978,57 @@
memorySettings
"open a dialog on objectMemory related settings"
- Launcher::SettingsDialogs memorySettingsFor:self.
-
-"/ |box igcLimit igcFreeLimit igcFreeAmount newSpaceSize
-"/ compressLimit
-"/ oldIncr component fields codeLimit codeTrigger stackLimit|
-"/
-"/ "/
-"/ "/ extract relevant system settings ...
-"/ "/
-"/ igcLimit := ObjectMemory incrementalGCLimit asValue.
-"/ igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
-"/ igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
-"/ newSpaceSize := ObjectMemory newSpaceSize asValue.
-"/ oldIncr := ObjectMemory oldSpaceIncrement asValue.
-"/ compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
-"/ codeLimit := ObjectMemory dynamicCodeLimit asValue.
-"/ codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
-"/ stackLimit := Process defaultMaximumStackSize asValue.
-"/
-"/ "/
-"/ "/ create a box on those values ...
-"/ "/
-"/ fields := OrderedCollection new.
-"/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Memory manager settings').
-"/
-"/ (box addTextLabel:'Warning - invalid settings may result in failures or poor performance
-"/
-"/You have been warned.') adjust:#left.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'size of newSpace:')
-"/ adjust:#right
-"/ on:nil "/ newSpaceSize
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:newSpaceSize.
-"/ fields add:component.
-"/
-"/ box addHorizontalLine.
-"/
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'incremental GC allocation trigger:')
-"/ adjust:#right
-"/ on:nil "/ igcLimit
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:igcLimit.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(start IGC whenever this amount has been allocated)'.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'incremental GC freespace trigger:')
-"/ adjust:#right
-"/ on:nil "/ igcFreeLimit
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:igcFreeLimit.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(start IGC whenever freespace drops below this)'.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'incremental GC amount:')
-"/ adjust:#right
-"/ on:nil "/ igcFreeAmount
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:igcFreeAmount.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(try to keep this amount for peak requests)'.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'oldspace increment:')
-"/ adjust:#right
-"/ on:nil "/ oldIncr
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:oldIncr.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(increase oldSpace in chunks of this size)'.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'oldspace compress limit:')
-"/ adjust:#right
-"/ on:nil "/ compressLimit
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:compressLimit.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(suppress compressing GC if more memory is in use)'.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'stack limit:')
-"/ adjust:#right
-"/ on:nil
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumber).
-"/ component model:stackLimit.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(trigger recursionInterrupt if more stack is used by a process)'.
-"/ box addHorizontalLine.
-"/
-"/ ObjectMemory supportsJustInTimeCompilation ifTrue:[
-"/ component := box
-"/ addLabelledInputField:(resources string:'dynamic code limit:')
-"/ adjust:#right
-"/ on:nil
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumberOrNil).
-"/ component model:codeLimit.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(flush dynamic compiled code to stay within this limit)'.
-"/ box addHorizontalLine.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'dynamic code GC trigger:')
-"/ adjust:#right
-"/ on:nil
-"/ tabable:true
-"/ separateAtX:0.7.
-"/ component acceptOnLeave:false.
-"/ component converter:(PrintConverter new initForNumberOrNil).
-"/ component model:codeTrigger.
-"/ fields add:component.
-"/
-"/ box addTextLabel:'(start incremental GC whenever this amount of code has been allocated)'.
-"/ box addHorizontalLine.
-"/ ].
-"/
-"/ box addAbortButton; addOkButton.
-"/ box
-"/ addHelpButtonFor:'Launcher/memorySettings.html'.
-"/
-"/ "/
-"/ "/ show the box ...
-"/ "/
-"/ box open.
-"/
-"/ "/
-"/ "/ update system settings
-"/ "/
-"/ box accepted ifTrue:[
-"/ fields do:[:comp | comp accept].
-"/
-"/ igcFreeAmount value ~~ ObjectMemory freeSpaceGCAmount ifTrue:[
-"/ ObjectMemory freeSpaceGCAmount:igcFreeAmount value.
-"/ ].
-"/ igcFreeLimit value ~~ ObjectMemory freeSpaceGCLimit ifTrue:[
-"/ ObjectMemory freeSpaceGCLimit:igcFreeLimit value.
-"/ ].
-"/ igcLimit value ~~ ObjectMemory incrementalGCLimit ifTrue:[
-"/ ObjectMemory incrementalGCLimit:igcLimit value.
-"/ ].
-"/ newSpaceSize value ~~ ObjectMemory newSpaceSize ifTrue:[
-"/ ObjectMemory newSpaceSize:newSpaceSize value.
-"/ ].
-"/ oldIncr value ~~ ObjectMemory oldSpaceIncrement ifTrue:[
-"/ ObjectMemory oldSpaceIncrement:oldIncr value.
-"/ ].
-"/ stackLimit value ~~ Process defaultMaximumStackSize ifTrue:[
-"/ Process defaultMaximumStackSize:stackLimit value.
-"/ ].
-"/ ObjectMemory oldSpaceCompressLimit:compressLimit value.
-"/ ObjectMemory dynamicCodeLimit:codeLimit value.
-"/ ObjectMemory dynamicCodeGCTrigger:codeTrigger value.
-"/ ].
-"/ box destroy
+ Launcher::LauncherDialogs memorySettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:46:33 / cg"
!
messageSettings
"open a dialog on infoMessage related settings"
- Launcher::SettingsDialogs messageSettingsFor:self.
-
-"/ |box vmInfo vmErrors displayErrors classInfos|
-"/
-"/ vmInfo := ObjectMemory infoPrinting asValue.
-"/ vmErrors := ObjectMemory debugPrinting asValue.
-"/ classInfos := Object infoPrinting asValue.
-"/ displayErrors := DeviceWorkstation errorPrinting asValue.
-"/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Messages').
-"/
-"/ box addCheckBox:(resources string:'VM info messages') on:vmInfo.
-"/ box addCheckBox:(resources string:'VM error messages') on:vmErrors.
-"/ box addHorizontalLine.
-"/
-"/ box addCheckBox:(resources string:'Display error messages (Xlib, Xtlib ...)') on:displayErrors.
-"/ box addCheckBox:(resources string:'Other info messages') on:classInfos.
-"/
-"/ box addHelpButtonFor:'Launcher/messageSettings.html'.
-"/ box addAbortButton; addOkButton.
-"/ box open.
-"/
-"/ box accepted ifTrue:[
-"/ ObjectMemory infoPrinting:vmInfo value.
-"/ ObjectMemory debugPrinting:vmErrors value.
-"/ Object infoPrinting:classInfos value.
-"/ DeviceWorkstation errorPrinting:displayErrors value.
-"/ ].
-"/ box destroy
-
-
+ Launcher::LauncherDialogs messageSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:46:45 / cg"
!
miscSettings
"open a dialog on misc other settings"
- Launcher::SettingsDialogs miscSettingsFor:self.
-
-"/ |box shadows takeFocus returnFocus
-"/ hostNameInLabel showAccelerators
-"/ preemptive hostNameInLabelHolder|
-"/
-"/ "/
-"/ "/ extract relevant system settings ...
-"/ "/
-"/ shadows := PopUpView shadows asValue.
-"/ hostNameInLabel := StandardSystemView includeHostNameInLabel.
-"/ hostNameInLabelHolder := hostNameInLabel asValue.
-"/ returnFocus := StandardSystemView returnFocusWhenClosingModalBoxes asValue.
-"/ takeFocus := StandardSystemView takeFocusWhenMapped asValue.
-"/
-"/ showAccelerators := MenuView showAcceleratorKeys asValue.
-"/ preemptive := Processor isTimeSlicing asValue.
-"/
-"/ "/
-"/ "/ create a box on those values ...
-"/ "/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Other settings').
-"/
-"/ box addCheckBox:(resources string:'shadows under popup views') on:shadows.
-"/ box addCheckBox:(resources string:'boxes return focus to previously active view') on:returnFocus.
-"/ box addCheckBox:(resources string:'views catch focus when mapped') on:takeFocus.
-"/ box addCheckBox:(resources string:'hostname in window labels') on:hostNameInLabelHolder.
-"/ box addCheckBox:(resources string:'show accelerator keys in menus') on:showAccelerators.
-"/
-"/ box addHorizontalLine.
-"/
-"/ box addCheckBox:(resources string:'preemptive scheduling') on:preemptive.
-"/
-"/ box
-"/ addHelpButtonFor:'Launcher/miscSettings.html';
-"/ addAbortButton;
-"/ addOkButton.
-"/
-"/ "/
-"/ "/ show the box ...
-"/ "/
-"/ box open.
-"/
-"/ "/
-"/ "/ update system settings
-"/ "/
-"/ box accepted ifTrue:[
-"/ PopUpView shadows:shadows value.
-"/ hostNameInLabelHolder value ~~ hostNameInLabel ifTrue:[
-"/ StandardSystemView includeHostNameInLabel:hostNameInLabelHolder value.
-"/
-"/ Screen allScreens do:[:aDisplay |
-"/ aDisplay allViewsDo:[:aView |
-"/ |l|
-"/
-"/ aView isTopView ifTrue:[
-"/ aView isPopUpView ifFalse:[
-"/ l := aView label.
-"/ aView label:(l , ' '); label:l. "/ force a change
-"/ ]
-"/ ]
-"/ ]
-"/ ]
-"/ ].
-"/ StandardSystemView returnFocusWhenClosingModalBoxes:returnFocus value.
-"/ StandardSystemView takeFocusWhenMapped:takeFocus value.
-"/ MenuView showAcceleratorKeys:showAccelerators value.
-"/ Processor isTimeSlicing ~~ preemptive value ifTrue:[
-"/ preemptive value ifTrue:[
-"/ Processor startTimeSlicing
-"/ ] ifFalse:[
-"/ Processor stopTimeSlicing
-"/ ]
-"/ ]
-"/ ].
-"/ box destroy
-
-
+ Launcher::LauncherDialogs miscSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:46:56 / cg"
!
printerSettings
"open a dialog on printer related settings"
- Launcher::SettingsDialogs printerSettingsFor:self.
-
-"/ |box
-"/ possiblePrinters possibleTypes printerType printCommand
-"/ pageFormat landscape updater
-"/ formatLabel formatComponent landscapeLabel landscapeComponent
-"/ topMargin leftMargin rightMargin bottomMargin unitList unit
-"/ topMarginComponent leftMarginComponent
-"/ rightMarginComponent
-"/ bottomMarginComponent supportsColor supportsColorComponent
-"/ y y1 commandListPop component commandList row|
-"/
-"/ possiblePrinters := PrinterStream withAllSubclasses asArray.
-"/ possibleTypes := possiblePrinters collect:[:cls | cls printerTypeName].
-"/
-"/ printerType := SelectionInList new list:(resources array:possibleTypes).
-"/ printerType selectionIndex:(possiblePrinters identityIndexOf:Printer).
-"/ printCommand := Printer printCommand asValue.
-"/
-"/ pageFormat := SelectionInList new list:(Printer defaultPageFormats).
-"/ pageFormat selection:(Printer pageFormat).
-"/ landscape := Printer landscape asValue.
-"/
-"/ topMargin := Printer topMargin asValue.
-"/ leftMargin := Printer leftMargin asValue.
-"/ rightMargin := Printer rightMargin asValue.
-"/ bottomMargin := Printer bottomMargin asValue.
-"/ supportsColor := Printer supportsColor asValue.
-"/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Printer settings').
-"/
-"/"/ either use a popUpList ...
-"/"/ box addPopUpList:(resources string:'printer type:') on:printerType.
-"/
-"/"/ or a comboList;
-"/"/ which one looks better ?
-"/ y := box yPosition.
-"/ component := box addTextLabel:(resources string:'printer type:').
-"/ component width:0.25; adjust:#right; borderWidth:0.
-"/ box yPosition:y.
-"/ component := box addComboListOn:printerType tabable:true.
-"/ component aspect:#selectionIndex; changeMessage:#selectionIndex:; useIndex:true.
-"/ component width:0.75; left:0.25.
-"/"/ end of question
-"/
-"/ y := box yPosition.
-"/ component := box addTextLabel:(resources string:'print command:').
-"/ component width:0.25; adjust:#right; borderWidth:0.
-"/ box yPosition:y.
-"/ commandListPop := box addComboBoxOn:printCommand tabable:true.
-"/"/ commandListPop := box addInputFieldOn:printCommand tabable:true.
-"/ commandListPop width:0.75; left:0.25; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-"/ "/ some common print commands ...
-"/
-"/ commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
-"/ commandList isNil ifTrue:[
-"/ commandList := PrinterStream defaultCommands.
-"/ commandList isNil ifTrue:[
-"/ commandList := #('lpr'
-"/ 'lp'
-"/ ).
-"/ ]
-"/ ].
-"/
-"/ commandListPop list:commandList.
-"/ box addVerticalSpace.
-"/ box addHorizontalLine.
-"/ box addVerticalSpace.
-"/
-"/ row := OrderedCollection new.
-"/ row add:(formatLabel := Label label:(resources string:'page format:')).
-"/ formatLabel borderWidth:0.
-"/ row add:(formatComponent := PopUpList on:pageFormat).
-"/ formatComponent label:'unknown'.
-"/
-"/ row add:(landscapeLabel := Label label:(resources string:'landscape:')).
-"/ landscapeLabel borderWidth:0.
-"/ row add:(landscapeComponent := CheckToggle on:landscape).
-"/
-"/ y := box yPosition.
-"/ box
-"/ addRow:(1 to:2)
-"/ fromX:0
-"/ toX:0.5
-"/ collect:[:idx | row at:idx]
-"/ tabable:false
-"/ horizontalLayout:#leftSpace
-"/ verticalLayout:#center.
-"/ y1 := box yPosition.
-"/ box yPosition:y.
-"/
-"/ box
-"/ addRow:(3 to:4)
-"/ fromX:0.5
-"/ toX:1.0
-"/ collect:[:idx | row at:idx]
-"/ tabable:false
-"/ horizontalLayout:#leftSpace
-"/ verticalLayout:#center.
-"/
-"/ box yPosition:(box yPosition max:y1).
-"/
-"/ box makeTabable:(formatComponent).
-"/ box makeTabable:(landscapeComponent).
-"/
-"/ box addVerticalSpace.
-"/ box addHorizontalLine.
-"/ box addVerticalSpace.
-"/
-"/ y := box yPosition.
-"/
-"/ topMarginComponent := box
-"/ addLabelledInputField:(resources string:'top margin:')
-"/ adjust:#right
-"/ on:nil "/ topMargin
-"/ tabable:true
-"/ from:0.0 to:0.5
-"/ separateAtX:0.6.
-"/ topMarginComponent converter:(PrintConverter new initForNumber).
-"/ topMarginComponent model:topMargin.
-"/ y1 := box yPosition.
-"/
-"/ box yPosition:y.
-"/ unitList := SelectionInList with:#('inch' 'mm').
-"/ unitList selectionIndex:1.
-"/
-"/ component := box addComponent:(PopUpList on:unitList).
-"/ component
-"/ left:0.6;
-"/ width:0.3.
-"/
-"/ box yPosition:y1.
-"/
-"/ leftMarginComponent := box
-"/ addLabelledInputField:(resources string:'left margin:')
-"/ adjust:#right
-"/ on:nil "/ leftMargin
-"/ tabable:true
-"/ from:0.0 to:0.5
-"/ separateAtX:0.6.
-"/ leftMarginComponent converter:(PrintConverter new initForNumber).
-"/ leftMarginComponent model:leftMargin.
-"/
-"/ rightMarginComponent := box
-"/ addLabelledInputField:(resources string:'right margin:')
-"/ adjust:#right
-"/ on:nil "/ rightMargin
-"/ tabable:true
-"/ from:0.0 to:0.5
-"/ separateAtX:0.6.
-"/ rightMarginComponent converter:(PrintConverter new initForNumber).
-"/ rightMarginComponent model:rightMargin.
-"/
-"/ bottomMarginComponent := box
-"/ addLabelledInputField:(resources string:'bottom margin:')
-"/ adjust:#right
-"/ on:nil "/ bottomMargin
-"/ tabable:true
-"/ from:0.0 to:0.5
-"/ separateAtX:0.6.
-"/ bottomMarginComponent converter:(PrintConverter new initForNumber).
-"/ bottomMarginComponent model:bottomMargin.
-"/
-"/ box addHorizontalLine.
-"/ supportsColorComponent := box addCheckBox:(resources string:'Color printer') on:supportsColor.
-"/ box addVerticalSpace.
-"/
-"/ updater := [ |p fg hasPageSize hasMargins|
-"/
-"/ printerType selectionIndex ~~ 0 ifTrue:[
-"/ p := possiblePrinters at:(printerType selectionIndex).
-"/ hasPageSize := p supportsPageSizes.
-"/ hasMargins := p supportsMargins.
-"/ ] ifFalse:[
-"/ hasPageSize := false.
-"/ hasMargins := false.
-"/ ].
-"/ hasPageSize ifTrue:[
-"/ fg := Button new foregroundColor.
-"/ formatComponent enable.
-"/ landscapeComponent enable.
-"/
-"/ formatComponent label:p pageFormat.
-"/ pageFormat value:(p pageFormat).
-"/ landscape value:(p landscape).
-"/ ] ifFalse:[
-"/ fg := Button new disabledForegroundColor.
-"/ formatComponent disable.
-"/ landscapeComponent disable.
-"/
-"/ formatComponent label:'unknown'.
-"/ landscape value:nil.
-"/ ].
-"/ hasMargins ifTrue:[
-"/ unitList selectionIndex == 2 ifTrue:[
-"/ unit := #mm
-"/ ] ifFalse:[
-"/ unit := #inch
-"/ ].
-"/
-"/ topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
-"/ leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
-"/ rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
-"/ bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
-"/
-"/ topMarginComponent enable.
-"/ leftMarginComponent enable.
-"/ rightMarginComponent enable.
-"/ bottomMarginComponent enable.
-"/ ] ifFalse:[
-"/ topMarginComponent disable.
-"/ leftMarginComponent disable.
-"/ rightMarginComponent disable.
-"/ bottomMarginComponent disable.
-"/ ].
-"/ formatLabel foregroundColor:fg.
-"/ landscapeLabel foregroundColor:fg.
-"/
-"/ p notNil ifTrue:[
-"/ commandList := p defaultCommands.
-"/ commandList notNil ifTrue:[
-"/ commandListPop list:commandList
-"/ ].
-"/
-"/ printCommand value:(p printCommand).
-"/ ].
-"/ p supportsPostscript ifFalse:[
-"/ supportsColorComponent disable.
-"/ supportsColor value:false
-"/ ] ifTrue:[
-"/ supportsColorComponent enable.
-"/ supportsColor value:(Printer supportsColor).
-"/ ]
-"/ ].
-"/ unitList onChangeSend:#value to:updater.
-"/ printerType onChangeSend:#value to:updater.
-"/ updater value.
-"/
-"/ box addVerticalSpace;
-"/ addHelpButtonFor:'Launcher/printerSettings.html';
-"/ addAbortButton; addOkButton.
-"/ box open.
-"/
-"/ box accepted ifTrue:[
-"/ Printer := possiblePrinters at:(printerType selectionIndex).
-"/ Printer printCommand:printCommand value.
-"/
-"/ Printer supportsPageSizes ifTrue:[
-"/ Printer pageFormat:(pageFormat selection).
-"/ Printer landscape:(landscape value).
-"/ ].
-"/ Printer supportsMargins ifTrue:[
-"/ unitList selectionIndex == 2 ifTrue:[
-"/ unit := #mm
-"/ ] ifFalse:[
-"/ unit := #inch
-"/ ].
-"/ Printer topMargin:(UnitConverter convert:topMargin value from:unit to:#inch).
-"/ Printer leftMargin:(UnitConverter convert:leftMargin value from:unit to:#inch).
-"/ Printer rightMargin:(UnitConverter convert:rightMargin value from:unit to:#inch).
-"/ Printer bottomMargin:(UnitConverter convert:bottomMargin value from:unit to:#inch).
-"/ ].
-"/ Printer supportsPostscript ifTrue:[
-"/ Printer supportsColor:supportsColor value.
-"/ ].
-"/ ].
-"/ box destroy
-
+ Launcher::LauncherDialogs printerSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:47:05 / cg"
!
saveSettings
"save settings to a settings-file."
- Launcher::SettingsDialogs saveSettingsFor:self.
-
-"/ "a temporary kludge - we need a central systemSettings object for this,
-"/ which can be saved/restored with a single store/read."
-"/
-"/ |s screen fileName|
-"/
-"/ fileName := Dialog
-"/ requestFileName:(resources string:'save settings in:')
-"/ default:'settings.stx'
-"/ ok:(resources string:'save')
-"/ abort:(resources string:'cancel')
-"/ pattern:'*.stx'
-"/ fromDirectory:nil.
-"/
-"/ (fileName isNil or:[fileName isEmpty]) ifTrue:[
-"/ "/ canceled
-"/ ^ self
-"/ ].
-"/
-"/ s := fileName asFilename writeStream.
-"/ s isNil ifTrue:[
-"/ self warn:'cannot write the ''' , fileName , ''' file'.
-"/ ^ self
-"/ ].
-"/
-"/ s nextPutLine:'"/ ST/X saved settings';
-"/ nextPutLine:'"/ DO NOT MODIFY MANUALLY';
-"/ nextPutLine:'"/ (modifications would be lost with next save-settings)';
-"/ nextPutLine:'"/';
-"/ nextPutLine:'"/ this file was automatically generated by the';
-"/ nextPutLine:'"/ ''save settings'' function of the Launcher';
-"/ nextPutLine:'"/'.
-"/ s cr.
-"/
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ saved by ' , OperatingSystem getLoginName , '@' , OperatingSystem getHostName , ' at ' , AbsoluteTime now printString.
-"/ s nextPutLine:'"/'.
-"/ s cr.
-"/
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Display settings:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ only restore the display settings, if on the same Display ...'.
-"/ s nextPutLine:'Display displayName = ' , (Display displayName storeString) , ' ifTrue:['.
-"/ screen := Screen current.
-"/ screen fixColors notNil ifTrue:[
-"/ s nextPutLine:' Image flushDeviceImages.'.
-"/ s nextPutLine:' Color colorAllocationFailSignal catch:['.
-"/ s nextPutLine:' Color getColorsRed:6 green:6 blue:4 on:Display'.
-"/ s nextPutLine:' ].'.
-"/ ] ifFalse:[
-"/ s nextPutLine:' Display releaseFixColors.'.
-"/ ].
-"/ s nextPutLine:' Display hasColors: ' , (screen hasColors storeString) , '.'.
-"/ s nextPutLine:' Display widthInMillimeter: ' , (screen widthInMillimeter storeString) , '.'.
-"/ s nextPutLine:' Display heightInMillimeter: ' , (screen heightInMillimeter storeString) , '.'.
-"/ s nextPutLine:' Display supportsDeepIcons: ' , (screen supportsDeepIcons storeString) , '.'.
-"/ s nextPutLine:' Image ditherAlgorithm: ' , (Image ditherAlgorithm storeString) , '.'.
-"/ s nextPutLine:' View defaultStyle:(View defaultStyle). "/ to flush any device images'.
-"/ s nextPutLine:'].'.
-"/ s cr.
-"/
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Compiler settings:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'Compiler warnSTXSpecials: ' , (Compiler warnSTXSpecials storeString) , '.';
-"/ nextPutLine:'Compiler warnUnderscoreInIdentifier: ' , (Compiler warnUnderscoreInIdentifier storeString) , '.';
-"/ nextPutLine:'Compiler warnOldStyleAssignment: ' , (Compiler warnOldStyleAssignment storeString) , '.';
-"/ nextPutLine:'Compiler warnCommonMistakes: ' , (Compiler warnCommonMistakes storeString) , '.';
-"/ nextPutLine:'Compiler warnPossibleIncompatibilities: ' , (Compiler warnPossibleIncompatibilities storeString) , '.';
-"/ nextPutLine:'Compiler allowUnderscoreInIdentifier: ' , (Compiler allowUnderscoreInIdentifier storeString) , '.';
-"/ nextPutLine:'Compiler arraysAreImmutable: ' , (Compiler arraysAreImmutable storeString) , '.';
-"/ nextPutLine:'Compiler lineNumberInfo: ' , (Compiler lineNumberInfo storeString) , '.';
-"/
-"/ nextPutLine:'Compiler foldConstants: ' , (Compiler foldConstants storeString) , '.';
-"/
-"/ nextPutLine:'Compiler stcCompilationIncludes: ' , (Compiler stcCompilationIncludes storeString) , '.';
-"/ nextPutLine:'Compiler stcCompilationDefines: ' , (Compiler stcCompilationDefines storeString) , '.';
-"/ nextPutLine:'Compiler stcCompilationOptions: ' , (Compiler stcCompilationOptions storeString) , '.';
-"/ nextPutLine:'Compiler ccCompilationOptions: ' , (Compiler ccCompilationOptions storeString) , '.';
-"/ nextPutLine:'Compiler ccPath: ' , (Compiler ccPath storeString) , '.';
-"/
-"/ nextPutLine:'ObjectMemory justInTimeCompilation: ' , (ObjectMemory justInTimeCompilation storeString) , '.';
-"/ nextPutLine:'ObjectMemory fullSingleStepSupport: ' , (ObjectMemory fullSingleStepSupport storeString) , '.'.
-"/
-"/ HistoryManager notNil ifTrue:[
-"/ HistoryManager isActive ifTrue:[
-"/ s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager activate].'.
-"/ s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager fullHistoryUpdate:' , HistoryManager fullHistoryUpdate storeString , '].'.
-"/ ] ifFalse:[
-"/ s nextPutLine:'HistoryManager notNil ifTrue:[HistoryManager deactivate].'.
-"/ ].
-"/ ].
-"/
-"/ ObjectFileLoader notNil ifTrue:[
-"/ s nextPutLine:'ObjectFileLoader searchedLibraries: ' , (ObjectFileLoader searchedLibraries storeString) , '.'.
-"/ s nextPutLine:'ObjectFileLoader libPath: ' , (ObjectFileLoader libPath storeString) , '.'.
-"/ ].
-"/
-"/ s nextPutLine:'Class catchMethodRedefinitions: ' , (Class catchMethodRedefinitions storeString) , '.'.
-"/ s nextPutLine:'ClassCategoryReader sourceMode: ' , (ClassCategoryReader sourceMode storeString) , '.'.
-"/
-"/ s cr.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Info & Debug Messages:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'ObjectMemory infoPrinting: ' , (ObjectMemory infoPrinting storeString) , '.';
-"/ nextPutLine:'ObjectMemory debugPrinting: ' , (ObjectMemory debugPrinting storeString) , '.';
-"/ nextPutLine:'Object infoPrinting: ' , (Object infoPrinting storeString) , '.';
-"/ nextPutLine:'DeviceWorkstation errorPrinting: ' , (DeviceWorkstation errorPrinting storeString) , '.'.
-"/
-"/
-"/ s cr.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Misc settings:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'Class keepMethodHistory: ' , (Class methodHistory notNil storeString) , '.';
-"/ nextPutLine:'Smalltalk logDoits: ' , (Smalltalk logDoits storeString) , '.';
-"/ nextPutLine:'Autoload compileLazy: ' , (Autoload compileLazy storeString) , '.';
-"/ nextPutLine:'Smalltalk loadBinaries: ' , (Smalltalk loadBinaries storeString) , '.';
-"/ nextPutLine:'StandardSystemView includeHostNameInLabel: ' , (StandardSystemView includeHostNameInLabel storeString) , '.';
-"/
-"/ "/ claus - I dont think its a good idea to save those ...
-"/ nextPutLine:'"/ Class updateChanges: ' , (Class updatingChanges storeString) , '.';
-"/ nextPutLine:'"/ ObjectMemory nameForChanges: ' , (ObjectMemory nameForChanges storeString) , '.';
-"/
-"/ nextPutLine:'StandardSystemView returnFocusWhenClosingModalBoxes: ' , (StandardSystemView returnFocusWhenClosingModalBoxes storeString) , '.';
-"/ nextPutLine:'StandardSystemView takeFocusWhenMapped: ' , (StandardSystemView takeFocusWhenMapped storeString) , '.';
-"/ nextPutLine:'MenuView showAcceleratorKeys: ' , (MenuView showAcceleratorKeys storeString) , '.';
-"/ nextPutLine:'Class tryLocalSourceFirst: ' , (Class tryLocalSourceFirst storeString) , '.'.
-"/ (Exception emergencyHandler == Launcher notifyingEmergencyHandler) ifTrue:[
-"/ s nextPutLine:'Exception emergencyHandler:(Launcher notifyingEmergencyHandler).'.
-"/ ].
-"/
-"/ s cr.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Printer settings:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'Printer := ' , (Printer name) , '.';
-"/ nextPutLine:'Printer printCommand: ' , (Printer printCommand storeString) , '.'.
-"/
-"/ Printer supportsPageSizes ifTrue:[
-"/ s nextPutLine:'Printer pageFormat: ' , (Printer pageFormat storeString) , '.'.
-"/ s nextPutLine:'Printer landscape: ' , (Printer landscape storeString) , '.'.
-"/ ].
-"/ Printer supportsMargins ifTrue:[
-"/ s nextPutLine:'Printer topMargin: ' , (Printer topMargin storeString) , '.'.
-"/ s nextPutLine:'Printer leftMargin: ' , (Printer leftMargin storeString) , '.'.
-"/ s nextPutLine:'Printer rightMargin: ' , (Printer rightMargin storeString) , '.'.
-"/ s nextPutLine:'Printer bottomMargin: ' , (Printer bottomMargin storeString) , '.'.
-"/ ].
-"/ Printer supportsPostscript ifTrue:[
-"/ s nextPutLine:'Printer supportsColor: ' , (Printer supportsColor storeString) , '.'.
-"/ ].
-"/
-"/ s cr.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Font settings:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'View defaultFont: ' , (View defaultFont storeString) , '.'.
-"/ s nextPutLine:'Label defaultFont: ' , (Label defaultFont storeString) , '.'.
-"/ s nextPutLine:'Button defaultFont: ' , (Button defaultFont storeString) , '.'.
-"/ s nextPutLine:'Toggle defaultFont: ' , (Toggle defaultFont storeString) , '.'.
-"/ s nextPutLine:'SelectionInListView defaultFont: ' , (SelectionInListView defaultFont storeString) , '.'.
-"/ s nextPutLine:'MenuView defaultFont: ' , (MenuView defaultFont storeString) , '.'.
-"/ s nextPutLine:'PullDownMenu defaultFont: ' , (PullDownMenu defaultFont storeString) , '.'.
-"/ s nextPutLine:'TextView defaultFont: ' , (TextView defaultFont storeString) , '.'.
-"/ s nextPutLine:'EditTextView defaultFont: ' , (EditTextView defaultFont storeString) , '.'.
-"/ s nextPutLine:'CodeView defaultFont: ' , (CodeView defaultFont storeString) , '.'.
-"/
-"/ s cr.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'"/ Language setting:'.
-"/ s nextPutLine:'"/'.
-"/ s nextPutLine:'Smalltalk language: ' , (Smalltalk language storeString) , '.'.
-"/ s nextPutLine:'Smalltalk languageTerritory: ' , (Smalltalk languageTerritory storeString) , '.'.
-"/ s close.
-"/
-"/ "
-"/ Transcript topView application saveSettings
-"/ "
-
-
+ Launcher::LauncherDialogs saveSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:48:38 / cg"
!
sourceAndDebuggerSettings
"open a dialog on misc other settings"
- Launcher::SettingsDialogs sourceAndDebuggerSettingsFor:self.
-
-"/ |box check logDoits updChanges changeFileName
-"/ useManager hasManager
-"/ repository repositoryHolder localSourceFirst
-"/ sourceCacheDir cacheEntry
-"/ component localCheck oldIndent nm fn manager
-"/ keepMethodHistory showErrorNotifier showVerboseStack
-"/ syntaxColoring syntaxColor syntaxColors colorMenu oldUserPreferences
-"/ syntaxEmphasises syntaxColorSelector syntaxEmphasisSelector syntaxColoringBox
-"/ syntaxEmphasisesBox syntaxColoringResetBox syntaxColoringEnableBlock|
-"/
-"/ "/
-"/ "/ extract relevant system settings ...
-"/ "/
-"/ keepMethodHistory := Class methodHistory notNil asValue.
-"/ logDoits := Smalltalk logDoits asValue.
-"/ updChanges := Class updatingChanges asValue.
-"/ changeFileName := ObjectMemory nameForChanges asValue.
-"/
-"/ hasManager := AbstractSourceCodeManager notNil
-"/ and:[AbstractSourceCodeManager isLoaded].
-"/
-"/ hasManager ifTrue:[
-"/ useManager := (manager := Smalltalk at:#SourceCodeManager) notNil asValue.
-"/ localSourceFirst := Class tryLocalSourceFirst asValue.
-"/ manager notNil ifTrue:[
-"/ repository := manager repositoryName.
-"/ repository notNil ifTrue:[
-"/ repositoryHolder := repository asValue
-"/ ] ifFalse:[
-"/ repositoryHolder := '' asValue
-"/ ].
-"/ ].
-"/ ] ifFalse:[
-"/ useManager := false.
-"/ localSourceFirst := false
-"/ ].
-"/ showErrorNotifier := (Exception emergencyHandler == Launcher notifyingEmergencyHandler) asValue.
-"/ showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
-"/ syntaxColoring := UserPreferences current syntaxColoring asValue.
-"/
-"/ sourceCacheDir := nil asValue.
-"/
-"/ "/
-"/ "/ create a box on those values ...
-"/ "/
-"/ box := DialogBox new.
-"/ box label:(resources string:'Source & Debugger settings').
-"/
-"/ box addCheckBox:(resources string:'remember changed methods (for previous method in browser)') on:keepMethodHistory.
-"/ box addCheckBox:(resources string:'log compiles in changes file') on:updChanges.
-"/ box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
-"/
-"/ component := box
-"/ addLabelledInputField:(resources string:'change file name:')
-"/ adjust:#right
-"/ on:changeFileName
-"/ tabable:true
-"/ separateAtX:0.4.
-"/ component immediateAccept:true; acceptOnLeave:false.
-"/
-"/"/ y := box yPosition.
-"/"/ component := box addTextLabel:(resources string:'change file name:').
-"/"/ component width:0.5; adjust:#right; borderWidth:0.
-"/"/ box yPosition:y.
-"/"/ component := box addInputFieldOn:changeFileName tabable:true.
-"/"/ component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false.
-"/
-"/ box addHorizontalLine.
-"/
-"/ hasManager ifTrue:[
-"/ check := box addCheckBox:(resources string:'sourcecode from sourcecode management') on:useManager.
-"/ oldIndent := box leftIndent.
-"/ box leftIndent:30.
-"/
-"/ repositoryHolder notNil ifTrue:[
-"/ component := box
-"/ addLabelledInputField:(resources string:'repository:')
-"/ adjust:#right
-"/ on:repositoryHolder
-"/ tabable:true
-"/ separateAtX:0.4.
-"/ component immediateAccept:true; acceptOnLeave:false.
-"/ component enableChannel:useManager.
-"/ ].
-"/
-"/ cacheEntry := box
-"/ addLabelledInputField:(resources string:'source cache dir:')
-"/ adjust:#right
-"/ on:sourceCacheDir
-"/ tabable:true
-"/ separateAtX:0.4.
-"/ cacheEntry immediateAccept:true; acceptOnLeave:false.
-"/ cacheEntry enableChannel:useManager.
-"/
-"/ localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
-"/ localCheck enableChannel:useManager.
-"/
-"/ box leftIndent:oldIndent.
-"/
-"/ (AbstractSourceCodeManager isNil
-"/ or:[AbstractSourceCodeManager defaultManager isNil]) ifTrue:[
-"/ useManager value:false.
-"/ cacheEntry disable.
-"/ check disable.
-"/ localCheck enable.
-"/ ] ifFalse:[
-"/ sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
-"/ ].
-"/ box addHorizontalLine.
-"/ ].
-"/
-"/ box addCheckBox:(resources string:'show error notifier before opening debugger') on:showErrorNotifier.
-"/ box addCheckBox:(resources string:'verbose backtrace by default in debugger') on:showVerboseStack.
-"/
-"/ box addHorizontalLine.
-"/ box addCheckBox:(resources string:'syntax coloring') on:syntaxColoring.
-"/
-"/ oldUserPreferences := UserPreferences current copy.
-"/
-"/ syntaxColoringBox := box addComboListOn: (syntaxColors := SelectionInList with:UserPreferences syntaxColors asValue initialSelection:1).
-"/ syntaxColorSelector := [(syntaxColors selection replChar:$ withString: '') asLowercaseFirst asSymbol].
-"/ syntaxEmphasisSelector := [((syntaxColorSelector value readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol].
-"/ syntaxColor := (UserPreferences current perform: syntaxColorSelector value) asValue.
-"/ colorMenu := ColorMenu new.
-"/ colorMenu model: syntaxColor.
-"/ syntaxColor onChangeSend: #value to:
-"/ [UserPreferences current at: syntaxColorSelector value put: syntaxColor value].
-"/ syntaxColors onChangeSend: #value to:
-"/ [syntaxColor value: (UserPreferences current perform:syntaxColorSelector value).
-"/ syntaxEmphasises selection: (UserPreferences current perform: syntaxEmphasisSelector value)].
-"/ syntaxEmphasisesBox := box addComboListOn: (syntaxEmphasises := SelectionInList with:#(normal bold italic) asValue initialSelection:1).
-"/ syntaxEmphasises onChangeSend: #value to:
-"/ [UserPreferences current at: syntaxEmphasisSelector value put: syntaxEmphasises selection asSymbol].
-"/ syntaxColors changed:#value. "/ to force initial update of emphasis
-"/ box addComponent:colorMenu tabable:true.
-"/ syntaxColoringResetBox := box addComponent:(Button new label: (resources string:'reset'); action: [UserPreferences reset. syntaxColor value: (UserPreferences current perform:syntaxColorSelector value)]).
-"/
-"/ syntaxColoringEnableBlock :=
-"/ [syntaxColoring value
-"/ ifTrue: [syntaxColoringBox enable. colorMenu enable. syntaxEmphasisesBox enable. syntaxColoringResetBox enable]
-"/ ifFalse:[syntaxColoringBox disable. colorMenu disable. syntaxEmphasisesBox disable. syntaxColoringResetBox disable]
-"/ ].
-"/ syntaxColoringEnableBlock value.
-"/ syntaxColoring onChangeSend: #value to: syntaxColoringEnableBlock.
-"/
-"/ box addHorizontalLine.
-"/ box
-"/ addHelpButtonFor:'Launcher/sourceSettings.html';
-"/ addAbortButton;
-"/ addOkButton.
-"/
-"/ "/
-"/ "/ show the box ...
-"/ "/
-"/ box open.
-"/
-"/ "/
-"/ "/ update system settings
-"/ "/
-"/ box accepted ifTrue:[
-"/ Class keepMethodHistory:keepMethodHistory value.
-"/ Smalltalk logDoits:logDoits value.
-"/ Class updateChanges:updChanges value.
-"/ ObjectMemory nameForChanges:changeFileName value.
-"/
-"/ (hasManager and:[useManager value]) ifTrue:[
-"/ manager isNil ifTrue:[
-"/ Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
-"/ manager := Smalltalk at:#SourceCodeManager.
-"/ ].
-"/ Class tryLocalSourceFirst:(localSourceFirst value).
-"/ manager notNil ifTrue:[
-"/ localSourceFirst value ifFalse:[
-"/ nm := sourceCacheDir value.
-"/
-"/ (fn := nm asFilename) exists ifFalse:[
-"/ (self confirm:('cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
-"/ fn makeDirectory;
-"/ makeReadableForAll;
-"/ makeWritableForAll;
-"/ makeExecutableForAll.
-"/ ]
-"/ ].
-"/ (fn exists
-"/ and:[fn isDirectory
-"/ and:[fn isReadable
-"/ and:[fn isWritable]]]) ifTrue:[
-"/ AbstractSourceCodeManager cacheDirectoryName:(sourceCacheDir value).
-"/ ]
-"/ ]
-"/ ].
-"/
-"/ repositoryHolder notNil ifTrue:[
-"/ repositoryHolder value size > 0 ifTrue:[
-"/ manager initializeForRepository:repositoryHolder value.
-"/ ].
-"/ ].
-"/ ] ifFalse:[
-"/ Smalltalk at:#SourceCodeManager put:nil
-"/ ].
-"/
-"/ showErrorNotifier value ifFalse:[
-"/ Exception emergencyHandler:nil
-"/ ] ifTrue:[
-"/ Exception emergencyHandler:(Launcher notifyingEmergencyHandler)
-"/ ].
-"/ DebugView defaultVerboseBacktrace:(showVerboseStack value).
-"/ UserPreferences current syntaxColoring:syntaxColoring value.
-"/
-"/ ] ifFalse: [
-"/ (UserPreferences reset; current) declareAllFrom: oldUserPreferences
-"/ ].
-"/ box destroy
-"/
-"/ "Modified: / 15.4.1998 / 13:41:37 / cg"
-"/ "Modified: / 16.4.1998 / 17:18:16 / ca"
+ Launcher::LauncherDialogs sourceAndDebuggerSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:47:21 / cg"
!
viewStyleSetting
"open a dialog on viewStyle related settings"
- Launcher::SettingsDialogs viewStyleSettingsFor:self.
-
-"/ |listOfStyles resourceDir dir box
-"/ list listView scrView infoLabel infoForwarder newStyle
-"/ someRsrcFile didApply|
-"/
-"/ "
-"/ search resources directory for a list of .style files ...
-"/ "
-"/ someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
-"/ someRsrcFile notNil ifTrue:[
-"/ resourceDir := someRsrcFile asFilename directoryName
-"/ ] ifFalse:[
-"/ resourceDir := Smalltalk getSystemFileName:'resources'.
-"/ ].
-"/
-"/ resourceDir isNil ifTrue:[
-"/ self warn:'no styles found (missing ''resources'' directory)'.
-"/ ^ self
-"/ ].
-"/ dir := resourceDir asFilename directoryContents.
-"/
-"/ listOfStyles := dir select:[:aFileName | aFileName asFilename hasSuffix:'style'].
-"/ listOfStyles := listOfStyles collect:[:aFileName | aFileName asFilename withoutSuffix name].
-"/ Filename isCaseSensitive ifFalse:[
-"/ listOfStyles := listOfStyles collect:[:aStyleName | aStyleName asLowercase].
-"/ ].
-"/ listOfStyles sort.
-"/
-"/"/ old code: used a standard ListSelectionBox
-"/"/ changed to intercept selection and add info-output.
-"/
-"/"/ box := ListSelectionBox title:(resources string:'STYLE_MSG') withCRs.
-"/"/ box label:(resources string:'Style selection').
-"/"/ box list:listOfStyles.
-"/"/ box initialText:View defaultStyle.
-"/"/ box selectAction:[:newStyle |
-"/"/ ].
-"/"/ box action:[:newStyle |
-"/"/ transcript topView withCursor:Cursor wait do:[
-"/"/ transcript showCR:'change style to ' , newStyle , ' ...'.
-"/"/ View defaultStyle:newStyle asSymbol.
-"/"/ ]
-"/"/ ].
-"/"/ box showAtPointer
-"/
-"/"/ new code: build box 'by 'hand'
-"/"/
-"/ infoForwarder := [
-"/ |nm sheet comment|
-"/ nm := list selection.
-"/ sheet := ViewStyle fromFile:(nm , '.style').
-"/ comment := sheet at:#comment ifAbsent:''.
-"/ infoLabel label:comment withCRs asStringCollection
-"/ ].
-"/
-"/ list := SelectionInList with:listOfStyles.
-"/ list onChangeSend:#value to:infoForwarder.
-"/
-"/ box := Dialog new.
-"/ box label:(resources string:'Style selection').
-"/
-"/ (box addTextLabel:(resources string:'STYLE_MSG') withCRs) adjust:#left.
-"/ listView := SelectionInListView on:list.
-"/ listView doubleClickAction:[:sel | box accept value:true. box hide].
-"/ scrView := box addComponent:(ScrollableView forView:listView) tabable:true.
-"/
-"/ box addVerticalSpace.
-"/
-"/ (infoLabel := box addTextLabel:'\\' withCRs) adjust:#centerLeft.
-"/
-"/ box addAbortButton.
-"/ "b := box addButton:(Button label:(resources string:'apply'))."
-"/ "b action:[didApply := true. self changeViewStyleTo:(list selection)]."
-"/ box addOkButton.
-"/ list selection:(View defaultStyle).
-"/
-"/ box stickAtBottomWithVariableHeight:scrView.
-"/ box stickAtBottomWithFixHeight:infoLabel.
-"/ box open.
-"/
-"/ box accepted ifTrue:[
-"/ ((newStyle := list selection) ~= View defaultStyle
-"/ or:[didApply ~~ true]) ifTrue:[
-"/ self changeViewStyleTo:newStyle.
-"/ ].
-"/ ].
-"/ box destroy
+ Launcher::LauncherDialogs viewStyleSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:47:33 / cg"
! !
!NewLauncher methodsFor:'user actions - system'!
@@ -5262,5 +3423,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.89 1998-07-31 18:13:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.90 1998-07-31 20:50:22 cg Exp $'
! !