--- a/AbstractLauncherApplication.st Thu Feb 03 18:35:20 2000 +0100
+++ b/AbstractLauncherApplication.st Thu Feb 03 19:30:54 2000 +0100
@@ -1370,8 +1370,7 @@
httpServerLogFile := httpServerLogFile asValue.
httpServerRunning
- onChangeSend:#value
- to:[
+ onChangeEvaluate:[
httpServerFileRoot value:(HTTPServer fileRoot).
httpServerHomeURL value:(HTTPServer homeURL).
httpServerPort value:(HTTPServer defaultPort).
@@ -1395,8 +1394,7 @@
swikiEnabled := swikiEnabled asValue.
swikiEnabled
- onChangeSend:#value
- to:[
+ onChangeEvaluate:[
swikiRoot value:(PWS::SwikiAction serverDirectory).
].
@@ -1805,11 +1803,11 @@
warnCompatibilityBox disable.
]].
- warnings onChangeSend:#value to:warnEnabler.
- allowUnderscore onChangeSend:#value to:warnEnabler.
- allowDollar onChangeSend:#value to:warnEnabler.
-"/ allowSqueakExtensions onChangeSend:#value to:warnEnabler.
-"/ allowQualifiedNames onChangeSend:#value to:warnEnabler.
+ warnings onChangeEvaluate:warnEnabler.
+ allowUnderscore onChangeEvaluate:warnEnabler.
+ allowDollar onChangeEvaluate:warnEnabler.
+"/ allowSqueakExtensions onChangeEvaluate:warnEnabler.
+"/ allowQualifiedNames onChangeEvaluate:warnEnabler.
box := DialogBox new.
box label:(resources string:'Compiler settings').
@@ -2075,7 +2073,7 @@
sizeList selectionIndex:idx
].
- sizeList onChangeSend:#value to:[
+ sizeList onChangeEvaluate:[
|idx|
idx := sizeList selectionIndex.
@@ -2440,7 +2438,7 @@
list2 := SelectionInList with:listOfFunctions.
list2 onChangeSend:#showRawKey to:selectionForwarder.
- list2 onChangeSend:#value to:macroForwarder.
+ list2 onChangeEvaluate:macroForwarder.
box := Dialog new.
box label:(resources string:'Keyboard mappings').
@@ -3140,8 +3138,8 @@
supportsColor value:(Printer supportsColor).
]
].
- unitList onChangeSend:#value to:updater.
- printerType onChangeSend:#value to:updater.
+ unitList onChangeEvaluate:updater.
+ printerType onChangeEvaluate:updater.
updater value.
box addVerticalSpace;
@@ -4049,7 +4047,7 @@
].
listUpdater value.
- showStandardStylesOnly onChangeSend:#value to:listUpdater.
+ showStandardStylesOnly onChangeEvaluate:listUpdater.
infoForwarder := [
|nm sheet comment|
@@ -4067,7 +4065,7 @@
infoLabel label:comment
].
- list onChangeSend:#value to:infoForwarder.
+ list onChangeEvaluate:infoForwarder.
box := Dialog new.
box label:(resources string:'Style selection').
@@ -4144,81 +4142,81 @@
list2 := SelectionInList new.
moduleListUpdater := [
- |l|
-
- list2 list:nil.
-
- l := Array new.
- handles := Array new.
-
- (showModules value or:[showBuiltIn value]) ifTrue:[
- allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
- (showBuiltIn value and:[showModules value]) ifFalse:[
- allModules := allModules select:[:i |
- |wantToSee|
-
- wantToSee := i dynamic.
- showBuiltIn value ifTrue:[
- wantToSee := wantToSee not
- ].
- wantToSee
- ]
- ].
-
- "/ sorting by reverse id brings newest ones to the top (a side effect)
- allModules sort:[:a :b | (a id) > (b id)].
- moduleNames := allModules collect:[:entry | entry name].
- l := l , moduleNames.
- handles := handles , allModules.
- ].
-
- showMethods value ifTrue:[
- allObjects := ObjectFileLoader loadedObjectHandles.
- methodObjects := (allObjects select:[:h | h isMethodHandle]) asArray.
- methodNames := methodObjects collect:[:mH | mH method isNil ifTrue:[
- 'compiled method - removed' " , ' (in ' , mH pathName , ')' "
- ] ifFalse:[
- 'compiled method ' , mH method whoString " , ' (in ' , mH pathName , ')' "
- ].
- ].
- l := l , methodNames.
- handles := handles , methodObjects.
- ].
-
- showCObjects value ifTrue:[
- allObjects := ObjectFileLoader loadedObjectHandles.
- cObjects := (allObjects select:[:h | h isFunctionObjectHandle]) asArray.
- cObjectNames := cObjects collect:[:entry | entry pathName].
- l := l , cObjectNames.
- handles := handles , cObjects.
- ].
-
- showOthers value ifTrue:[
- allObjects := ObjectFileLoader loadedObjectHandles.
- otherObjects := (allObjects select:[:h | (h isFunctionObjectHandle
- or:[h isMethodHandle
- or:[h isClassLibHandle]]) not]) asArray.
- otherObjectNames := otherObjects collect:[:entry | entry pathName].
- l := l , otherObjectNames.
- handles := handles , otherObjects.
- ].
-
- showBuiltIn value ifTrue:[
- l := #('VM') , l.
- handles := #(VM) , handles.
- allModules := #(VM) , allModules.
- ].
-
- list1 list:l.
- unloadButton disable.
- unloadAndRemoveButton disable.
- ].
-
- showBuiltIn onChangeSend:#value to:moduleListUpdater.
- showModules onChangeSend:#value to:moduleListUpdater.
- showMethods onChangeSend:#value to:moduleListUpdater.
- showCObjects onChangeSend:#value to:moduleListUpdater.
- showOthers onChangeSend:#value to:moduleListUpdater.
+ |l|
+
+ list2 list:nil.
+
+ l := Array new.
+ handles := Array new.
+
+ (showModules value or:[showBuiltIn value]) ifTrue:[
+ allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
+ (showBuiltIn value and:[showModules value]) ifFalse:[
+ allModules := allModules select:[:i |
+ |wantToSee|
+
+ wantToSee := i dynamic.
+ showBuiltIn value ifTrue:[
+ wantToSee := wantToSee not
+ ].
+ wantToSee
+ ]
+ ].
+
+ "/ sorting by reverse id brings newest ones to the top (a side effect)
+ allModules sort:[:a :b | (a id) > (b id)].
+ moduleNames := allModules collect:[:entry | entry name].
+ l := l , moduleNames.
+ handles := handles , allModules.
+ ].
+
+ showMethods value ifTrue:[
+ allObjects := ObjectFileLoader loadedObjectHandles.
+ methodObjects := (allObjects select:[:h | h isMethodHandle]) asArray.
+ methodNames := methodObjects collect:[:mH | mH method isNil ifTrue:[
+ 'compiled method - removed' " , ' (in ' , mH pathName , ')' "
+ ] ifFalse:[
+ 'compiled method ' , mH method whoString " , ' (in ' , mH pathName , ')' "
+ ].
+ ].
+ l := l , methodNames.
+ handles := handles , methodObjects.
+ ].
+
+ showCObjects value ifTrue:[
+ allObjects := ObjectFileLoader loadedObjectHandles.
+ cObjects := (allObjects select:[:h | h isFunctionObjectHandle]) asArray.
+ cObjectNames := cObjects collect:[:entry | entry pathName].
+ l := l , cObjectNames.
+ handles := handles , cObjects.
+ ].
+
+ showOthers value ifTrue:[
+ allObjects := ObjectFileLoader loadedObjectHandles.
+ otherObjects := (allObjects select:[:h | (h isFunctionObjectHandle
+ or:[h isMethodHandle
+ or:[h isClassLibHandle]]) not]) asArray.
+ otherObjectNames := otherObjects collect:[:entry | entry pathName].
+ l := l , otherObjectNames.
+ handles := handles , otherObjects.
+ ].
+
+ showBuiltIn value ifTrue:[
+ l := #('VM') , l.
+ handles := #(VM) , handles.
+ allModules := #(VM) , allModules.
+ ].
+
+ list1 list:l.
+ unloadButton disable.
+ unloadAndRemoveButton disable.
+ ].
+
+ showBuiltIn onChangeEvaluate:moduleListUpdater.
+ showModules onChangeEvaluate:moduleListUpdater.
+ showMethods onChangeEvaluate:moduleListUpdater.
+ showCObjects onChangeEvaluate:moduleListUpdater.
+ showOthers onChangeEvaluate:moduleListUpdater.
box := Dialog new.
box label:(resources string:'ST/X & Module Version information').
@@ -4227,176 +4225,176 @@
listView1 model:list1.
listView1 origin:0.0@0.0 corner:1.0@0.4. "/ ; inset:2.
listView1 action:[:sel |
- |info classNames tabs module|
-
- listView1 middleButtonMenu:nil.
-
- box withWaitCursorDo:[
- |nm fileName addr entry1 entry2 entry3 method l|
-
- tabs := TabulatorSpecification unit:#inch positions:#(0 2.6 3.5).
-
- (showModules value or:[showBuiltIn value]) ifTrue:[
- info := allModules at:sel ifAbsent:nil.
- ].
- info isNil ifTrue:[
- "/ selected a method, cObject or unknown
-
- module := handles at:sel.
- fileName := module pathName.
-
- module isMethodHandle ifTrue:[
- middleLabel label:'contains method:'.
-
- (method := module method) isNil ifTrue:[
- nm := '** removed **'.
- ] ifFalse:[
- menu := PopUpMenu
- labels:#('inspect' 'browse')
- selectors:#(inspect browse).
- menu actionAt:#inspect put:[ method inspect ].
- menu actionAt:#browse put:[ |who|
- who := method who.
- SystemBrowser
- openInClass:(who methodClass)
- selector:(who methodSelector)
- ].
- listView1 middleButtonMenu:menu.
-
- nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
- ].
- entry1 := MultiColListEntry new:2 tabulatorSpecification:tabs.
- entry1 colAt:1 put:'compiled method'; colAt:2 put:nm.
-
- entry2 := MultiColListEntry new:2 tabulatorSpecification:tabs.
- entry2 colAt:1 put:'path'; colAt:2 put:fileName.
-
- entry3 := MultiColListEntry new:2 tabulatorSpecification:tabs.
- entry3 colAt:1 put:'address'; colAt:2 put:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
-
- list2 list:(Array with:entry1 with:entry2 with:entry3).
- ] ifFalse:[
- (module isFunctionObjectHandle
- and:[module functions notEmpty]) ifTrue:[
- middleLabel label:'contains function:'.
-
- menu := PopUpMenu
- labels:#('inspect')
- selectors:#(inspect).
- menu actionAt:#inspect put:[ module functions inspect ].
- listView1 middleButtonMenu:menu.
-
- list2 list:((module functions select:[:f | f notNil])
- collect:[:f | |entry|
- entry := MultiColListEntry new:2 tabulatorSpecification:tabs.
- entry colAt:1 put:(f name asText emphasizeAllWith:(#color->Color blue)).
- entry colAt:2 put:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
- entry
- ]).
- ] ifFalse:[
- list2 list:#('nothing known about contents (no functions have been extracted)').
- ]
- ].
-
- unloadButton enable.
- unloadAndRemoveButton disable.
- ] ifFalse:[
- info == #VM ifTrue:[
- "/ dummy entry for VM;
- "/ show file versions in lower view.
-
- middleLabel label:'contains modules:'.
- l := (ObjectMemory getVMIdentificationStrings).
- l := l select:[:entry | entry includesString:'$Header'].
- l := l select:[:entry | entry includesString:',v'].
- l := l collect:[:entry |
- |i1 i2 file revision date listEntry|
-
- listEntry := MultiColListEntry new:3 tabulatorSpecification:tabs.
-
- i1 := entry indexOfSubCollection:'librun'.
- i1 ~~ 0 ifTrue:[
- i2 := entry indexOfSubCollection:',v' startingAt:i1.
- i2 ~~ 0 ifTrue:[
- file := entry copyFrom:i1+7 to:(i2-1).
- listEntry colAt:1 put:file.
-
- i1 := i2+3.
- i2 := entry indexOfSeparatorStartingAt:i1.
- revision := entry copyFrom:i1 to:(i2-1).
- listEntry colAt:2 put:revision.
-
- i1 := i2+1.
- i2 := entry indexOfSeparatorStartingAt:i1.
- date := entry copyFrom:i1 to:(i2-1).
- listEntry colAt:3 put:date.
- ].
- ].
- listEntry.
- "/ entry
- ].
- list2 list:l.
+ |info classNames tabs module|
+
+ listView1 middleButtonMenu:nil.
+
+ box withWaitCursorDo:[
+ |nm fileName addr entry1 entry2 entry3 method l|
+
+ tabs := TabulatorSpecification unit:#inch positions:#(0 2.6 3.5).
+
+ (showModules value or:[showBuiltIn value]) ifTrue:[
+ info := allModules at:sel ifAbsent:nil.
+ ].
+ info isNil ifTrue:[
+ "/ selected a method, cObject or unknown
+
+ module := handles at:sel.
+ fileName := module pathName.
+
+ module isMethodHandle ifTrue:[
+ middleLabel label:'contains method:'.
+
+ (method := module method) isNil ifTrue:[
+ nm := '** removed **'.
+ ] ifFalse:[
+ menu := PopUpMenu
+ labels:#('inspect' 'browse')
+ selectors:#(inspect browse).
+ menu actionAt:#inspect put:[ method inspect ].
+ menu actionAt:#browse put:[ |who|
+ who := method who.
+ SystemBrowser
+ openInClass:(who methodClass)
+ selector:(who methodSelector)
+ ].
+ listView1 middleButtonMenu:menu.
+
+ nm := (method whoString) asText emphasizeAllWith:(#color->Color blue).
+ ].
+ entry1 := MultiColListEntry new:2 tabulatorSpecification:tabs.
+ entry1 colAt:1 put:'compiled method'; colAt:2 put:nm.
+
+ entry2 := MultiColListEntry new:2 tabulatorSpecification:tabs.
+ entry2 colAt:1 put:'path'; colAt:2 put:fileName.
+
+ entry3 := MultiColListEntry new:2 tabulatorSpecification:tabs.
+ entry3 colAt:1 put:'address'; colAt:2 put:('(16r) ' , (method code address hexPrintString leftPaddedTo:8 with:$0)).
+
+ list2 list:(Array with:entry1 with:entry2 with:entry3).
+ ] ifFalse:[
+ (module isFunctionObjectHandle
+ and:[module functions notEmpty]) ifTrue:[
+ middleLabel label:'contains function:'.
+
+ menu := PopUpMenu
+ labels:#('inspect')
+ selectors:#(inspect).
+ menu actionAt:#inspect put:[ module functions inspect ].
+ listView1 middleButtonMenu:menu.
+
+ list2 list:((module functions select:[:f | f notNil])
+ collect:[:f | |entry|
+ entry := MultiColListEntry new:2 tabulatorSpecification:tabs.
+ entry colAt:1 put:(f name asText emphasizeAllWith:(#color->Color blue)).
+ entry colAt:2 put:('address: (16r) ' , (f code address hexPrintString leftPaddedTo:8 with:$0)).
+ entry
+ ]).
+ ] ifFalse:[
+ list2 list:#('nothing known about contents (no functions have been extracted)').
+ ]
+ ].
+
+ unloadButton enable.
+ unloadAndRemoveButton disable.
+ ] ifFalse:[
+ info == #VM ifTrue:[
+ "/ dummy entry for VM;
+ "/ show file versions in lower view.
+
+ middleLabel label:'contains modules:'.
+ l := (ObjectMemory getVMIdentificationStrings).
+ l := l select:[:entry | entry includesString:'$Header'].
+ l := l select:[:entry | entry includesString:',v'].
+ l := l collect:[:entry |
+ |i1 i2 file revision date listEntry|
+
+ listEntry := MultiColListEntry new:3 tabulatorSpecification:tabs.
+
+ i1 := entry indexOfSubCollection:'librun'.
+ i1 ~~ 0 ifTrue:[
+ i2 := entry indexOfSubCollection:',v' startingAt:i1.
+ i2 ~~ 0 ifTrue:[
+ file := entry copyFrom:i1+7 to:(i2-1).
+ listEntry colAt:1 put:file.
+
+ i1 := i2+3.
+ i2 := entry indexOfSeparatorStartingAt:i1.
+ revision := entry copyFrom:i1 to:(i2-1).
+ listEntry colAt:2 put:revision.
+
+ i1 := i2+1.
+ i2 := entry indexOfSeparatorStartingAt:i1.
+ date := entry copyFrom:i1 to:(i2-1).
+ listEntry colAt:3 put:date.
+ ].
+ ].
+ listEntry.
+ "/ entry
+ ].
+ list2 list:l.
- unloadButton disable.
- unloadAndRemoveButton disable.
- ] ifFalse:[
- "/ selected a package
-
- "/ fill bottom list with class-info
-
- middleLabel label:'contains classes:'.
- classNames := info classNames asSortedCollection.
- classNames := classNames select:[:cName |
- |cls|
-
- cls := Smalltalk classNamed:cName.
- cls isNil ifTrue:[
- true "a removed class"
- ] ifFalse:[
- cls isPrivate not
- ].
- ].
-
- classNames := classNames collect:[:cName |
- |cls entry rev listEntry|
-
- listEntry := MultiColListEntry new:2 tabulatorSpecification:tabs.
- listEntry colAt:1 put:cName.
-
- cls := Smalltalk classNamed:cName.
- cls isNil ifTrue:[
- listEntry colAt:2 put:'(class removed)'.
- ] ifFalse:[
- rev := cls binaryRevision.
- rev notNil ifTrue:[
- cls isLoaded ifFalse:[
- entry := '(stub for: ' , rev.
- ] ifTrue:[
- entry :='(bin: ' , rev.
- ].
- cls revision ~= rev ifTrue:[
- entry := entry , ' / src: ' , (cls revision printString)
- ].
- listEntry colAt:2 put:entry , ')'
- ] ifFalse:[
- cls revision notNil ifTrue:[
- listEntry colAt:2 put:'(overloaded by: ' , cls revision , ')'
- ]
- ]
- ].
- listEntry
- ].
- list2 list:classNames.
- info dynamic ifTrue:[
- unloadButton enable.
- unloadAndRemoveButton enable.
- ] ifFalse:[
- unloadButton disable.
- unloadAndRemoveButton disable.
- ].
- ].
- ]
- ]
+ unloadButton disable.
+ unloadAndRemoveButton disable.
+ ] ifFalse:[
+ "/ selected a package
+
+ "/ fill bottom list with class-info
+
+ middleLabel label:'contains classes:'.
+ classNames := info classNames asSortedCollection.
+ classNames := classNames select:[:cName |
+ |cls|
+
+ cls := Smalltalk classNamed:cName.
+ cls isNil ifTrue:[
+ true "a removed class"
+ ] ifFalse:[
+ cls isPrivate not
+ ].
+ ].
+
+ classNames := classNames collect:[:cName |
+ |cls entry rev listEntry|
+
+ listEntry := MultiColListEntry new:2 tabulatorSpecification:tabs.
+ listEntry colAt:1 put:cName.
+
+ cls := Smalltalk classNamed:cName.
+ cls isNil ifTrue:[
+ listEntry colAt:2 put:'(class removed)'.
+ ] ifFalse:[
+ rev := cls binaryRevision.
+ rev notNil ifTrue:[
+ cls isLoaded ifFalse:[
+ entry := '(stub for: ' , rev.
+ ] ifTrue:[
+ entry :='(bin: ' , rev.
+ ].
+ cls revision ~= rev ifTrue:[
+ entry := entry , ' / src: ' , (cls revision printString)
+ ].
+ listEntry colAt:2 put:entry , ')'
+ ] ifFalse:[
+ cls revision notNil ifTrue:[
+ listEntry colAt:2 put:'(overloaded by: ' , cls revision , ')'
+ ]
+ ]
+ ].
+ listEntry
+ ].
+ list2 list:classNames.
+ info dynamic ifTrue:[
+ unloadButton enable.
+ unloadAndRemoveButton enable.
+ ] ifFalse:[
+ unloadButton disable.
+ unloadAndRemoveButton disable.
+ ].
+ ].
+ ]
+ ]
].
@@ -4408,27 +4406,27 @@
box makeTabable:check.
panel add:(check := CheckBox label:'classLibs' model:showModules).
canDoIt ifFalse:[
- check disable
+ check disable
] ifTrue:[
- box makeTabable:check.
+ box makeTabable:check.
].
panel add:(check := CheckBox label:'methods' model:showMethods).
canDoIt ifFalse:[
- check disable
+ check disable
] ifTrue:[
- box makeTabable:check.
+ box makeTabable:check.
].
panel add:(check := CheckBox label:'c-objects' model:showCObjects).
canDoIt ifFalse:[
- check disable
+ check disable
] ifTrue:[
- box makeTabable:check.
+ box makeTabable:check.
].
panel add:(check := CheckBox label:'others' model:showOthers).
canDoIt ifFalse:[
- check disable
+ check disable
] ifTrue:[
- box makeTabable:check.
+ box makeTabable:check.
].
panel horizontalLayout:#fitSpace.
@@ -4456,52 +4454,52 @@
unloadButton := Button label:(resources string:'unload').
unloadButton action:[
- box withWaitCursorDo:[
- |info idx pathName|
-
- idx := list1 selectionIndex.
- info := allModules at:idx ifAbsent:nil.
-
- list1 selectionIndex:nil.
-
- info isNil ifTrue:[
- "/ selected a method
- "/ idx := idx - allModules size.
- pathName := (handles at:idx) pathName.
-
- ] ifFalse:[
- "/ selected a package
- pathName := info pathName.
- ].
- ObjectFileLoader unloadObjectFile:pathName.
- moduleListUpdater value.
- unloadButton disable.
- ]
+ box withWaitCursorDo:[
+ |info idx pathName|
+
+ idx := list1 selectionIndex.
+ info := allModules at:idx ifAbsent:nil.
+
+ list1 selectionIndex:nil.
+
+ info isNil ifTrue:[
+ "/ selected a method
+ "/ idx := idx - allModules size.
+ pathName := (handles at:idx) pathName.
+
+ ] ifFalse:[
+ "/ selected a package
+ pathName := info pathName.
+ ].
+ ObjectFileLoader unloadObjectFile:pathName.
+ moduleListUpdater value.
+ unloadButton disable.
+ ]
].
unloadAndRemoveButton := Button label:(resources string:'remove classes & unload').
unloadAndRemoveButton action:[
- box withWaitCursorDo:[
- |info idx pathName|
-
- idx := list1 selectionIndex.
- info := allModules at:idx ifAbsent:nil.
-
- list1 selectionIndex:nil.
-
- info isNil ifTrue:[
- "/ selected a method
- "/ idx := idx - allModules size.
- pathName := (handles at:idx) pathName.
-
- ] ifFalse:[
- "/ selected a package
- pathName := info pathName.
- ].
- ObjectFileLoader unloadObjectFileAndRemoveClasses:pathName.
- moduleListUpdater value.
- unloadAndRemoveButton disable.
- ]
+ box withWaitCursorDo:[
+ |info idx pathName|
+
+ idx := list1 selectionIndex.
+ info := allModules at:idx ifAbsent:nil.
+
+ list1 selectionIndex:nil.
+
+ info isNil ifTrue:[
+ "/ selected a method
+ "/ idx := idx - allModules size.
+ pathName := (handles at:idx) pathName.
+
+ ] ifFalse:[
+ "/ selected a package
+ pathName := info pathName.
+ ].
+ ObjectFileLoader unloadObjectFileAndRemoveClasses:pathName.
+ moduleListUpdater value.
+ unloadAndRemoveButton disable.
+ ]
].
moduleListUpdater value.
@@ -4515,12 +4513,12 @@
listView2 bottomInset:(box preferredExtent y - y).
box width:(400 min:(box device width * 2 // 3));
- height:(450 min:(box device height - 50)).
+ height:(450 min:(box device height - 50)).
"/ box sizeFixed:true.
box openWithExtent:(600 min:(box device width * 2 // 3))
- @
- (500 min:(box device height - 50)) .
+ @
+ (500 min:(box device height - 50)) .
box destroy.
@@ -4891,10 +4889,10 @@
syntaxColor := (currentUserPrefs perform: syntaxColorSelector value) asValue.
colorMenu := ColorMenu new.
colorMenu model: syntaxColor.
- syntaxColor onChangeSend: #value to:
+ syntaxColor onChangeEvaluate:
[currentUserPrefs at: syntaxColorSelector value put: syntaxColor value.
recolorAction value.].
- syntaxColors onChangeSend: #value to:
+ syntaxColors onChangeEvaluate:
[syntaxColor value: (currentUserPrefs perform:syntaxColorSelector value).
syntaxEmphasises selection: (currentUserPrefs perform: syntaxEmphasisSelector value).
recolorAction value.].
@@ -4921,8 +4919,7 @@
initialSelection:1.
syntaxEmphasisesBox := box addComboListOn:syntaxEmphasises.
syntaxEmphasises
- onChangeSend:#value
- to:[ |em|
+ onChangeEvaluate:[ |em|
em := syntaxEmphasises selection.
em notNil ifTrue:[
em := em asSymbol.
@@ -5009,5 +5006,5 @@
!AbstractLauncherApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.97 2000-02-01 18:18:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.98 2000-02-03 18:30:54 cg Exp $'
! !