--- a/AbstractSettingsApplication.st Wed Mar 12 15:21:02 2003 +0100
+++ b/AbstractSettingsApplication.st Thu Mar 13 09:44:45 2003 +0100
@@ -1316,7 +1316,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: ' x '
@@ -1334,7 +1334,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: '(mm)'
@@ -2428,12 +2428,12 @@
title:(resources string:'Font for %1' with:'All')
filter:filter.
f notNil ifTrue:[
- self allOfThem value:f.
- self labelDef value:f.
- self buttonDef value:f.
- self listDef value:f.
- self menuDef value:f.
- self textDef value:f.
+ self allOfThem value:(f onDevice:allLabel device).
+ self labelDef value:(f onDevice:labelLabel device).
+ self buttonDef value:(f onDevice:buttonsLabel device).
+ self listDef value:(f onDevice:listsLabel device).
+ self menuDef value:(f onDevice:menuLabel device).
+ self textDef value:(f onDevice:textLabel device).
]
!
@@ -2442,11 +2442,11 @@
|f|
f := FontPanel
- fontFromUserInitial:(self allOfThem value)
+ fontFromUserInitial:(self buttonDef value)
title:(resources string:'Font for %1' with:'All')
filter:filter.
f notNil ifTrue:[
- self allOfThem value:f.
+ self buttonDef value:(f onDevice:buttonsLabel device).
]
!
@@ -2458,7 +2458,7 @@
title:(resources string:'Font for %1' with:'Labels')
filter:filter.
f notNil ifTrue:[
- self labelDef value:f.
+ self labelDef value:(f onDevice:labelLabel device).
].
!
@@ -2470,7 +2470,7 @@
title:(resources string:'Font for %1' with:'Lists')
filter:filter.
f notNil ifTrue:[
- self listDef value:f.
+ self listDef value:(f onDevice:listsLabel device).
]
!
@@ -2482,7 +2482,7 @@
title:(resources string:'Font for %1' with:'Menus')
filter:filter.
f notNil ifTrue:[
- self menuDef value:f.
+ self menuDef value:(f onDevice:menuLabel device).
]
!
@@ -2494,7 +2494,7 @@
title:(resources string:'Font for %1' with:'Edited Text')
filter:filter.
f notNil ifTrue:[
- self textDef value:f.
+ self textDef value:(f onDevice:textLabel device).
]
!
@@ -2547,7 +2547,7 @@
buttonsFontLabelHolder
buttonsFontLabelHolder isNil ifTrue:[
- buttonsFontLabelHolder := Button defaultFont asValue.
+ buttonsFontLabelHolder := '' asValue.
].
^ buttonsFontLabelHolder.
!
@@ -2565,7 +2565,7 @@
labelsFontLabelHolder
labelsFontLabelHolder isNil ifTrue:[
- labelsFontLabelHolder := Label defaultFont asValue.
+ labelsFontLabelHolder := '' asValue.
].
^ labelsFontLabelHolder.
!
@@ -2583,7 +2583,7 @@
listsFontLabelHolder
listsFontLabelHolder isNil ifTrue:[
- listsFontLabelHolder := SelectionInListView defaultFont asValue.
+ listsFontLabelHolder := '' asValue.
].
^ listsFontLabelHolder.
!
@@ -2601,7 +2601,7 @@
menusFontLabelHolder
menusFontLabelHolder isNil ifTrue:[
- menusFontLabelHolder := MenuView defaultFont asValue.
+ menusFontLabelHolder := '' asValue.
].
^ menusFontLabelHolder.
!
@@ -2619,7 +2619,7 @@
textFontLabelHolder
textFontLabelHolder isNil ifTrue:[
- textFontLabelHolder := TextView defaultFont asValue.
+ textFontLabelHolder := '' asValue.
].
^ textFontLabelHolder.
! !
@@ -3457,7 +3457,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#SequenceViewSpec
#name: 'List1'
@@ -3859,7 +3859,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Size of NewSpace:'
@@ -3897,7 +3897,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Maximum Memory Limit:'
@@ -3935,7 +3935,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Quick Allocation Limit:'
@@ -3973,7 +3973,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Incremental GC Allocation Trigger:'
@@ -4011,7 +4011,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Incremental GC Freespace Trigger:'
@@ -4049,7 +4049,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Incremental GC Amount:'
@@ -4087,7 +4087,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Oldspace Increment:'
@@ -4125,7 +4125,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Oldspace Compress Limit:'
@@ -4164,7 +4164,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Stack Limit:'
@@ -4203,7 +4203,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Dynamic code Limit:'
@@ -4241,7 +4241,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Dynamic code Limit:'
@@ -4627,7 +4627,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -4981,7 +4981,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -5918,7 +5918,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#PopUpListSpec
#label: 'PopUp List'
@@ -5955,7 +5955,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -5983,7 +5983,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -6011,7 +6011,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -6745,7 +6745,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -7723,7 +7723,7 @@
#name: 'Code Format Settings'
#min: #(#Point 10 10)
#max: #(#Point 1024 768)
- #bounds: #(#Rectangle 12 22 616 698)
+ #bounds: #(#Rectangle 16 42 620 718)
)
#component:
#(#SpecCollection
@@ -7882,7 +7882,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'Max Length for single line Blocks:'
@@ -7895,10 +7895,11 @@
#name: 'EntryField2'
#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
#model: #maxLengthForSingleLineBlocks
+ #type: #number
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -7974,7 +7975,7 @@
spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
cStyleBlocks:self cStyleBlocks value;
blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
- maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
+ maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
!
help
@@ -8360,7 +8361,7 @@
#tabable: true
#model: #cvsBinDirectoryHolder
#acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -8392,7 +8393,7 @@
#acceptOnTab: true
#acceptOnLostFocus: true
#acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
#comboList: #cvsRootPrototypeList
)
)
@@ -8432,7 +8433,7 @@
#tabable: true
#model: #perModuleRootModule
#acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
#(#LabelSpec
#label: 'CVSRoot:'
@@ -8453,7 +8454,7 @@
#acceptOnTab: true
#acceptOnLostFocus: true
#acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
#comboList: #cvsRootPrototypeList
)
#(#HorizontalPanelViewSpec
@@ -8514,7 +8515,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -10142,7 +10143,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -10432,7 +10433,7 @@
#acceptOnReturn: true
#acceptOnTab: true
#acceptOnLostFocus: true
- #acceptOnPointerLeave: false
+ #acceptOnPointerLeave: true
)
)
@@ -10633,5 +10634,5 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.36 2003-03-12 14:21:02 penk Exp $'
-! !
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.37 2003-03-13 08:44:45 penk Exp $'
+! !