--- a/AbstractLauncherApplication.st Fri Jul 05 15:03:28 2002 +0200
+++ b/AbstractLauncherApplication.st Fri Jul 05 15:26:02 2002 +0200
@@ -11,8 +11,6 @@
"
-'From Smalltalk/X, Version:4.1.4 on 20-Mai-2002 at 15:13:15' !
-
"{ Package: 'stx:libtool' }"
ToolApplicationModel subclass:#AbstractLauncherApplication
@@ -2281,7 +2279,8 @@
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 := 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 := [
@@ -2318,51 +2317,51 @@
"/ allowQualifiedNames onChangeEvaluate:warnEnabler.
box := DialogBox new.
- box label:(resources string:'Compiler settings').
+ box label:(resources string:'Compiler Settings').
y := box yPosition.
- check := box addCheckBox:(resources string:'catch method redefinitions') on:catchMethodRedefs.
+ check := box addCheckBox:(resources string:'Catch Method Redefinitions') on:catchMethodRedefs.
check width:0.5.
box yPosition:y.
- check := box addCheckBox:(resources string:'catch class redefinitions') on:catchClassRedefs.
+ check := box addCheckBox:(resources string:'Catch Class Redefinitions') on:catchClassRedefs.
check left:0.5; width:0.5.
y := box yPosition.
- check := box addCheckBox:(resources string:'keep history line in methods') on:historyLines.
+ check := box addCheckBox:(resources string:'Keep History Line in Methods') on:historyLines.
check width:0.5.
HistoryManager isNil ifTrue:[check disable].
box yPosition:y.
- check := box addCheckBox:(resources string:'keep full class history') on:fullHistoryUpdate.
+ check := box addCheckBox:(resources string:'Keep Full Class History') on:fullHistoryUpdate.
check left:0.5; width:0.5.
HistoryManager isNil ifTrue:[check disable] ifFalse:[check enableChannel:historyLines].
- box addPopUpList:(resources string:'fileIn source mode:') on:keepSource.
+ 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.
+ 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')
+ 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.
+ compilationList := box addPopUpList:(resources string:'Stc Compilation to Machine Code') on:stcCompilation.
thisIsADemoVersion ifFalse:[
stcCompilation selectionIndex:( stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
- stcSetupButt := box addComponent:(Button label:(resources string:'stc compilation parameters...')
+ stcSetupButt := box addComponent:(Button label:(resources string:'Stc Compilation Parameters...')
action:[|manager|
self stcCompilerSettingsFor:requestor.
@@ -2381,19 +2380,19 @@
y := box yPosition.
- component := box addCheckBox:(resources string:'allow underscore in identifiers') on:allowUnderscore.
+ 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 := box addCheckBox:(resources string:'Allow Dollar in Identifiers') on:allowDollar.
component width:0.4.
- component := box addCheckBox:(resources string:'allow vw3 qualifiedNames') on:allowQualifiedNames.
+ component := box addCheckBox:(resources string:'Allow VW3 QualifiedNames') on:allowQualifiedNames.
component width:0.4.
- component := box addCheckBox:(resources string:'allow squeak extensions') on:allowSqueakExtensions.
+ component := box addCheckBox:(resources string:'Allow Squeak Extensions') on:allowSqueakExtensions.
component width:0.4.
- component := box addCheckBox:(resources string:'allow dolphin extensions') on:allowDolphinExtensions.
+ component := box addCheckBox:(resources string:'Allow Dolphin Extensions') on:allowDolphinExtensions.
component width:0.4.
y2 := box yPosition.
@@ -2401,17 +2400,17 @@
box yPosition:y.
box leftIndent:0.
- component :=box addPopUpList:(resources string:'constant folding:') on:constantFolding.
+ 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:'allow oldStyle assignment (_)') on:allowOldStyleAssignment.
+ component := box addCheckBox:(resources string:'Allow OldStyle Assignment (_)') on:allowOldStyleAssignment.
component left:0.5; width:0.4.
- component := box addCheckBox:(resources string:'full debug info') on:fullDebugSupport.
+ component := box addCheckBox:(resources string:'Full Debug Info') on:fullDebugSupport.
component left:0.5; width:0.4.
- component := box addCheckBox:(resources string:'literal arrays are immutable') on:immutableArrays.
+ component := box addCheckBox:(resources string:'Literal Arrays are Immutable') on:immutableArrays.
component left:0.5; width:0.4.
box yPosition:(box yPosition max:y2).
@@ -2419,36 +2418,36 @@
box addHorizontalLine.
- box addCheckBox:(resources string:'warnings') on:warnings.
+ 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 := box addCheckBox:(resources string:'ST/X Extensions') on:warnSTX.
warnSTXBox width:0.4.
- warnUnderscoreBox := box addCheckBox:(resources string:'underscores in identifiers') on:warnUnderscore.
+ 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 := box addCheckBox:(resources string:'Dollars in Identifiers') on:warnDollar.
warnDollarBox width:0.4.
- warnUnusedVarsBox := box addCheckBox:(resources string:'unused method vars') on:warnUnusedVars.
+ warnUnusedVarsBox := box addCheckBox:(resources string:'Unused Method Variables') on:warnUnusedVars.
warnUnusedVarsBox width:0.4.
yMax := box yPosition.
box yPosition:y.
box leftIndent:0.
- warnOldStyleBox := box addCheckBox:(resources string:'oldStyle assignment') on:warnOldStyle.
+ 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 := 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 := box addCheckBox:(resources string:'Possible Incompatibilities') on:warnCompatibility.
warnCompatibilityBox left:0.5; width:0.4.
box leftIndent:oldIndent.
@@ -2579,12 +2578,12 @@
].
box := DialogBox new.
- box label:(resources string:'Display screen settings').
-
- (box addTextLabel:(resources string:'Actual visible screen area:'))
+ 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)
+ (box addPopUpList:(resources string:'Common Sizes:') on:sizeList)
label:'monitor size'.
idx := sizes findFirst:[:entry |
@@ -2604,7 +2603,7 @@
].
y := box yPosition.
- component := box addTextLabel:(resources string:'Screen size:').
+ component := box addTextLabel:(resources string:'Screen Size:').
component width:0.3; adjust:#right; borderWidth:0.
box yPosition:y.
@@ -2633,7 +2632,7 @@
box addVerticalSpace; addHorizontalLine; addVerticalSpace.
- (box addTextLabel:(resources string:'Screen: depth: %1 visual: %2 (%3)'
+ (box addTextLabel:(resources string:'Screen: Depth: %1 Visual: %2 (%3)'
with:screen depth printString
with:screen visualType
with:screen serverVendor))
@@ -2641,29 +2640,29 @@
box addVerticalSpace; addHorizontalLine; addVerticalSpace.
- box addCheckBox:(resources string:'Color monitor') on:isColorMonitor.
+ 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.
+ 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.
+ 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:'Amage display:') on:ditherList.
+ 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 addCheckBox:(resources string:'Allow Colored/Grayscale Icons') on:deepIcons.
box addVerticalSpace; addHorizontalLine; addVerticalSpace.
- component := box addPopUpList:(resources string:'ClipBoard encoding:') on:clipEncodingList.
+ component := box addPopUpList:(resources string:'ClipBoard Encoding:') on:clipEncodingList.
component superView horizontalLayout:#leftSpace.
box addHorizontalLine.
@@ -3005,7 +3004,7 @@
list2 onChangeEvaluate:macroForwarder.
box := Dialog new.
- box label:(resources string:'Keyboard mappings').
+ box label:(resources string:'Keyboard Mappings').
l := box addTextLabel:(resources at:'KEY_MSG' default:'keyboard mapping:') withCRs.
l adjust:#left; borderWidth:0.
@@ -3103,8 +3102,8 @@
listOfLanguages := listOfLanguages collect:[:nm | nm copyFrom:'LANG_' size + 1].
languageList := translatedLanguages with:flags collect:[:lang :flag | LabelAndIcon icon:flag string:lang.].
- box := ListSelectionBox title:(resources at:'LANG_MSG' default:'select a language') withCRs.
- box label:(resources string:'Language selection').
+ box := ListSelectionBox title:(resources at:'LANG_MSG' default:'Select a Language') withCRs.
+ box label:(resources string:'Language Selection').
box list:languageList.
box initialText:(Language , '-' , LanguageTerritory).
box action:[:newLanguage |
@@ -3227,17 +3226,17 @@
models := OrderedCollection new.
info := OrderedCollection new.
- models add:newSpaceSize. info add:#(number 'size of newSpace where objects are created' 'size of newSpace:' ).
- models add:fastMoreLimit. info add:#(number 'quickly allocate more memory (suppress GC) up to this limit' 'quick allocate limit:').
- models add:maxOldSpace. info add:#(number 'never allocate more than this amount of memory' 'maximum memory limit:').
- models add:igcLimit. info add:#(number 'start IGC whenever this amount has been allocated' 'incremental GC allocation trigger:').
- models add:igcFreeLimit. info add:#(number 'start IGC whenever freespace drops below this' 'incremental GC freespace trigger:').
- models add:igcFreeAmount. info add:#(number 'try to keep this amount for peak requests' 'incremental GC amount:').
- models add:oldIncr. info add:#(number 'increase oldSpace in chunks of this size' 'oldspace increment:').
- models add:compressLimit. info add:#(number 'use 2-pass compressing GC if > 0 and more memory is in use' 'oldspace compress limit:').
- models add:stackLimit. info add:#(number 'trigger recursionInterrupt if more stack is used by a process' 'stack limit:').
- models add:codeLimit. info add:#(numberOrNil 'flush dynamic compiled code to stay within this limit' 'dynamic code limit:').
- models add:codeTrigger. info add:#(numberOrNil 'start incremental GC whenever this amount of code has been allocated' 'dynamic code GC trigger:').
+ models add:newSpaceSize. info add:#(number 'Size of newSpace where objects are created' 'Size of NewSpace:' ).
+ models add:fastMoreLimit. info add:#(number 'Quickly allocate more memory (suppress GC) up to this limit' 'Quick Allocation Limit:').
+ models add:maxOldSpace. info add:#(number 'Never allocate more than this amount of memory' 'Maximum Memory Limit:').
+ models add:igcLimit. info add:#(number 'Start IGC whenever this amount has been allocated' 'Incremental GC Allocation Trigger:').
+ models add:igcFreeLimit. info add:#(number 'Start IGC whenever freespace drops below this' 'Incremental GC Freespace Trigger:').
+ models add:igcFreeAmount. info add:#(number 'Try to keep this amount for peak requests' 'Incremental GC Amount:').
+ models add:oldIncr. info add:#(number 'Increase oldSpace in chunks of this size' 'Oldspace Increment:').
+ models add:compressLimit. info add:#(number 'Use 2-pass compressing GC if > 0 and more memory is in use' 'Oldspace Compress Limit:').
+ models add:stackLimit. info add:#(number 'Trigger recursionInterrupt if more stack is used by a process' 'Stack Limit:').
+ models add:codeLimit. info add:#(numberOrNil 'Flush dynamic compiled code to stay within this limit' 'Dynamic code Limit:').
+ models add:codeTrigger. info add:#(numberOrNil 'Start incremental GC whenever this amount of code has been allocated' 'Dynamic Code GC Trigger:').
"/
"/ create a box on those values ...
@@ -3245,7 +3244,7 @@
fields := OrderedCollection new.
box := DialogBox new.
- box label:(resources string:'Memory manager settings').
+ box label:(resources string:'Memory Manager Settings').
(box addTextLabel:'Warning - invalid settings may result in failures or poor performance
' , 'You have been warned' allBold , '.') adjust:#left.
@@ -3342,12 +3341,12 @@
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 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 addCheckBox:(resources string:'Display Error Messages (Xlib, Xtlib, WinAPI ...)') on:displayErrors.
+ box addCheckBox:(resources string:'Other Info Messages') on:classInfos.
box addHorizontalLine.
box addHelpButtonFor:'Launcher/messageSettings.html'.
@@ -3536,7 +3535,7 @@
supportsColor := Printer supportsColor asValue.
box := DialogBox new.
- box label:(resources string:'Printer settings').
+ box label:(resources string:'Printer Settings').
"/ either use a popUpList ...
"/ box addPopUpList:(resources string:'printer type:') on:printerType.
@@ -3544,7 +3543,7 @@
"/ or a comboList;
"/ which one looks better ?
y := box yPosition.
- component := box addTextLabel:(resources string:'printer type:').
+ component := box addTextLabel:(resources string:'Printer Type:').
component width:0.25; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addComboListOn:printerType tabable:true.
@@ -3553,7 +3552,7 @@
"/ end of question
y := box yPosition.
- component := box addTextLabel:(resources string:'print command:').
+ component := box addTextLabel:(resources string:'Print Command:').
component width:0.25; adjust:#right; borderWidth:0.
box yPosition:y.
commandListPop := box addComboBoxOn:printCommand tabable:true.
@@ -3576,12 +3575,12 @@
box addVerticalSpace; addHorizontalLine; addVerticalSpace.
row := OrderedCollection new.
- row add:(formatLabel := Label label:(resources string:'page format:')).
+ 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:')).
+ row add:(landscapeLabel := Label label:(resources string:'Landscape:')).
landscapeLabel borderWidth:0.
row add:(landscapeComponent := CheckToggle on:landscape).
@@ -3616,7 +3615,7 @@
y := box yPosition.
topMarginComponent := box
- addLabelledInputField:(resources string:'top margin:')
+ addLabelledInputField:(resources string:'Top Margin:')
adjust:#right
on:nil "/ topMargin
tabable:true
@@ -3638,7 +3637,7 @@
box yPosition:y1.
leftMarginComponent := box
- addLabelledInputField:(resources string:'left margin:')
+ addLabelledInputField:(resources string:'Left Margin:')
adjust:#right
on:nil "/ leftMargin
tabable:true
@@ -3648,7 +3647,7 @@
leftMarginComponent model:leftMargin.
rightMarginComponent := box
- addLabelledInputField:(resources string:'right margin:')
+ addLabelledInputField:(resources string:'Right Margin:')
adjust:#right
on:nil "/ rightMargin
tabable:true
@@ -3658,7 +3657,7 @@
rightMarginComponent model:rightMargin.
bottomMarginComponent := box
- addLabelledInputField:(resources string:'bottom margin:')
+ addLabelledInputField:(resources string:'Bottom Margin:')
adjust:#right
on:nil "/ bottomMargin
tabable:true
@@ -3668,7 +3667,7 @@
bottomMarginComponent model:bottomMargin.
box addHorizontalLine.
- supportsColorComponent := box addCheckBox:(resources string:'Color printer') on:supportsColor.
+ supportsColorComponent := box addCheckBox:(resources string:'Color Printer') on:supportsColor.
box addVerticalSpace.
updater := [ |p fg hasPageSize hasMargins|
@@ -3776,7 +3775,6 @@
"Modified: 9.9.1996 / 22:43:51 / stefan"
"Modified: 28.2.1997 / 14:00:13 / cg"
-
!
restoreSettingsFor:requestor
@@ -4152,13 +4150,13 @@
"/ create a box on those values ...
"/
box := DialogBox new.
- box label:(resources string:'Source & Debugger settings').
-
- box addCheckBox:(resources string:'log compiles in changes file') on:updChanges.
- box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
+ box label:(resources string:'Source & Debugger Settings').
+
+ box addCheckBox:(resources string:'Log compiles in Changefile') on:updChanges.
+ box addCheckBox:(resources string:'Log doIts in Changefile') on:logDoits.
component := box
- addLabelledInputField:(resources string:'change file name:')
+ addLabelledInputField:(resources string:'Changefile Name:')
adjust:#right
on:changeFileName
tabable:true
@@ -4176,14 +4174,14 @@
hasManager ifTrue:[
pos := box yPosition.
- check := box addCheckBox:(resources string:'sourcecode management') on:useManager.
+ check := box addCheckBox:(resources string:'Sourcecode Management') on:useManager.
check enableChannel:cvsIsSetup.
box makeTabable:check.
CVSSourceCodeManager notNil ifTrue:[
check width:0.6.
box yPosition:pos.
- setupButt := box addComponent:(Button label:(resources string:'setup...')
+ setupButt := box addComponent:(Button label:(resources string:'Setup...')
action:[|manager|
self cvsConfigurationDialogFor:requestor.
@@ -4213,7 +4211,7 @@
"/ component readOnly:true.
"/
cacheEntry := box
- addLabelledInputField:(resources string:'source cache dir:')
+ addLabelledInputField:(resources string:'Source Cache Dir:')
adjust:#right
on:sourceCacheDir
tabable:true
@@ -4222,22 +4220,22 @@
cacheEntry enableChannel:useManager.
pos := box yPosition.
- butt := Button label:(resources string:'flush cache now').
+ butt := Button label:(resources string:'Flush Cache now').
butt action:[ box withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ] ].
box addComponent:butt tabable:true.
butt left:0.6; width:0.4; leftInset:0.
butt enableChannel:useManager.
- butt := Button label:(resources string:'condense cache now').
+ butt := Button label:(resources string:'Condense Cache now').
butt action:[ box withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ] ].
box addComponent:butt tabable:true.
butt left:0.6; width:0.4; leftInset:0.
butt enableChannel:useManager.
- localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
+ localCheck := box addCheckBox:(resources string:'If Present, Use Local Source (Suppress Checkout)') on:localSourceFirst.
localCheck enableChannel:useManager.
- checkClassesBox := box addCheckBox:(resources string:'check for halt/error-messages when checking in') on:checkClassesWhenCheckingIn.
+ checkClassesBox := box addCheckBox:(resources string:'Check for alt/error-Messages when Checking in') on:checkClassesWhenCheckingIn.
checkClassesBox enableChannel:useManager.
box leftIndent:oldIndent.
@@ -4254,36 +4252,38 @@
].
pos := box yPosition.
- check := box addCheckBox:(resources string:'syntax coloring') on:syntaxColoring.
+ check := box addCheckBox:(resources string:'Syntax Coloring') on:syntaxColoring.
check width:0.6.
box yPosition:pos.
- butt := box addComponent:(Button label:(resources string:'configure...') action:[self syntaxColorConfigurationDialogFor:requestor]).
+ butt := box addComponent:(Button label:(resources string:'Configure...') action:[self syntaxColorConfigurationDialogFor:requestor]).
box makeTabable:butt.
butt enableChannel:syntaxColoring.
butt left:0.6; width:0.4.
- check := box addCheckBox:(resources string:'immediate selector check') on:fullSelectorCheck.
+ check := box addCheckBox:(resources string:'Immediate Selector Check') on:fullSelectorCheck.
check enableChannel:syntaxColoring.
pos := box yPosition.
- check := box addCheckBox:(resources string:'auto format') on:autoFormat.
+ check := box addCheckBox:(resources string:'Auto Format') on:autoFormat.
check width:0.6.
box yPosition:pos.
- butt := box addComponent:(Button label:(resources string:'configure...') action:[self formattingConfigurationDialogFor:requestor]).
+ butt := box addComponent:(Button label:(resources string:'Configure...') action:[self formattingConfigurationDialogFor:requestor]).
box makeTabable:butt.
butt left:0.6; width:0.4.
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 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
addHelpButtonFor:'Launcher/sourceSettings.html';
addAbortAndOkButtons.
+ box maxExtent:1000@600.
+
"/
"/ show the box ...
"/
@@ -4386,165 +4386,165 @@
linkArgs := ObjectFileLoader linkArgs asValue.
ObjectFileLoader notNil ifTrue:[
- (t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
- stcLibraries := (String fromStringCollection:t separatedBy:' ') asValue.
- ].
- (t := ObjectFileLoader libPath) notNil ifTrue:[
- stcLibraryPath := t asValue.
- ]
+ (t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
+ stcLibraries := (String fromStringCollection:t separatedBy:' ') asValue.
+ ].
+ (t := ObjectFileLoader libPath) notNil ifTrue:[
+ stcLibraryPath := t asValue.
+ ]
].
box := DialogBox new.
- box label:(resources string:'STC Compilation settings').
+ box label:(resources string:'STC Compilation Settings').
thisIsADemoVersion := (Smalltalk releaseIdentification = 'ST/X_free_demo_vsn').
ObjectFileLoader notNil ifTrue:[
- thisIsADemoVersion ifFalse:[
-
- component := box
- addLabelledInputField:(resources string:'stc command:')
- adjust:#right
- on:stc
- tabable:true
- separateAtX:0.3.
- component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
- component preferredExtent:(100 @ component preferredExtent y).
- canLoadBinaries ifFalse:[component disable].
-
- 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].
-
- 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:(150 @ 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].
-
- 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].
+ thisIsADemoVersion ifFalse:[
+
+ component := box
+ addLabelledInputField:(resources string:'stc Command:')
+ adjust:#right
+ on:stc
+ tabable:true
+ separateAtX:0.3.
+ component immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
+ component preferredExtent:(100 @ component preferredExtent y).
+ canLoadBinaries ifFalse:[component disable].
+
+ 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].
+
+ 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:(150 @ 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].
+
+ 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].
+ 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.
"/ box addVerticalSpace.
- component := box
- addLabelledInputField:(resources string:'link command:')
- adjust:#right
- on:linkCommand
- 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:'link args:')
- adjust:#right
- on:linkArgs
- 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:[
+ component := box
+ addLabelledInputField:(resources string:'Link Command:')
+ adjust:#right
+ on:linkCommand
+ 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:'Link Args:')
+ adjust:#right
+ on:linkArgs
+ 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:[
+ 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].
- ].
- ].
+ 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
- addHelpButtonFor:'Launcher/compilerSettings.html';
- addAbortAndOkButtons.
+ addHelpButtonFor:'Launcher/compilerSettings.html';
+ addAbortAndOkButtons.
box open.
box accepted ifTrue:[
- thisIsADemoVersion ifFalse:[
- Compiler stcCompilationIncludes:stcIncludes value.
- Compiler stcCompilationDefines:stcDefines value.
- Compiler stcCompilationOptions:stcOptions value.
- Compiler ccCompilationOptions:ccOptions value.
- Compiler ccPath:cc value.
- stc value ~= Compiler stcPath ifTrue:[
- Compiler stcPath:stc value
- ].
- ObjectFileLoader linkCommand:linkCommand value.
- ObjectFileLoader linkArgs:linkArgs value.
- ].
-
- ObjectFileLoader notNil ifTrue:[
- stcLibraries notNil ifTrue:[
- ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
- ].
- stcLibraryPath notNil ifTrue:[
- ObjectFileLoader libPath:(stcLibraryPath value).
- ]
- ].
+ thisIsADemoVersion ifFalse:[
+ Compiler stcCompilationIncludes:stcIncludes value.
+ Compiler stcCompilationDefines:stcDefines value.
+ Compiler stcCompilationOptions:stcOptions value.
+ Compiler ccCompilationOptions:ccOptions value.
+ Compiler ccPath:cc value.
+ stc value ~= Compiler stcPath ifTrue:[
+ Compiler stcPath:stc value
+ ].
+ ObjectFileLoader linkCommand:linkCommand value.
+ ObjectFileLoader linkArgs:linkArgs value.
+ ].
+
+ ObjectFileLoader notNil ifTrue:[
+ stcLibraries notNil ifTrue:[
+ ObjectFileLoader searchedLibraries:(stcLibraries value asCollectionOfWords).
+ ].
+ stcLibraryPath notNil ifTrue:[
+ ObjectFileLoader libPath:(stcLibraryPath value).
+ ]
+ ].
].
box destroy
@@ -4581,22 +4581,22 @@
"/ create a box on those values ...
"/
box := DialogBox new.
- box label:(resources string:'Tool settings').
-
-
-
- box addCheckBox:(resources string:'Use the new Changes Browser') on:useNewChangesBrowser.
+ box label:(resources string:'Tool Settings').
+
+
+
+ box addCheckBox:(resources string:'Use the New Changes Browser') on:useNewChangesBrowser.
box addHorizontalLine.
- box addCheckBox:(resources string:'Use the new System Browser') on:useNewSystemBrowser.
+ box addCheckBox:(resources string:'Use the New System Browser') on:useNewSystemBrowser.
box addHorizontalLine.
- box addCheckBox:(resources string:'Use the new VersionDiff Browser') on:useNewVersionDiffBrowser.
+ box addCheckBox:(resources string:'Use the New VersionDiff Browser') on:useNewVersionDiffBrowser.
box addHorizontalLine.
box addCheckBox:(resources string:'Use Hierarchical Inspector') on:useNewInspector.
box addHorizontalLine.
box addCheckBox:(resources string:'Show Clock in Launcher') on:showClockInLauncher.
box addHorizontalLine.
in := box
- addLabelledInputField:(resources string:'Transcript Buffer Size:')
+ addLabelledInputField:(resources string:'Transcripts Buffer Size:')
adjust:#right
on:transcriptBufferSize
tabable:true
@@ -4737,9 +4737,9 @@
list onChangeEvaluate:infoForwarder.
box := Dialog new.
- box label:(resources string:'Style selection').
-
- (box addTextLabel:(resources at:'STYLE_MSG' default:'select a style') withCRs) adjust:#left.
+ box label:(resources string:'Style Selection').
+
+ (box addTextLabel:(resources at:'STYLE_MSG' default:'Select a Style') withCRs) adjust:#left.
listView := SelectionInListView on:list.
listView doubleClickAction:[:sel | box acceptChannel value:true. box hide].
box addCheckBox:(resources string:'standard styles only') on:showStandardStylesOnly.
@@ -5435,10 +5435,10 @@
models add:(textDef := TextView defaultFont asValue).
box := Dialog new.
- box label:(resources string:'Font settings').
+ box label:(resources string:'Font Settings').
models
- with:(resources array:#('all' 'labels' 'buttons' 'lists' 'menus' 'edit text'))
+ with:(resources array:#('All' 'Labels' 'Buttons' 'Lists' 'Menus' 'Edited Text'))
do:[:model :title |
|y2 lbl f i|
@@ -5447,7 +5447,7 @@
(box addTextLabel:title) adjust:#left.
y := box yPosition.
- b := box addComponent:(Button label:(resources string:'change ...')) tabable:true.
+ b := box addComponent:(Button label:(resources string:'Change ...')) tabable:true.
b relativeExtent:nil; extent:(b preferredExtent).
y2 := box yPosition.
box yPosition:y.
@@ -5478,7 +5478,7 @@
f := FontPanel
fontFromUserInitial:(model value)
- title:(resources string:'font for %1' with:title)
+ title:(resources string:'Font for %1' with:title)
filter:filter.
f notNil ifTrue:[
model == allOfThem ifTrue:[
@@ -5496,7 +5496,7 @@
].
box addAbortAndOkButtons.
- defaultButton := Button label:(resources string:'defaults').
+ defaultButton := Button label:(resources string:'Defaults').
(DialogBox styleSheet at:'dialogBox.okAtLeft') ifTrue:[
box addButton:defaultButton after:nil.
@@ -6439,5 +6439,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.196 2002-05-21 08:12:34 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.197 2002-07-05 13:26:02 cg Exp $'
! !