--- a/AbstractSettingsApplication.st Wed May 07 18:06:50 2014 +0200
+++ b/AbstractSettingsApplication.st Wed May 07 18:07:25 2014 +0200
@@ -109,19 +109,6 @@
privateIn:AbstractSettingsApplication
!
-AbstractSettingsApplication subclass:#FontSettingsAppl
- instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
- othersDef allFontLabelHolder buttonsFontLabelHolder
- textFontLabelHolder labelsFontLabelHolder listsFontLabelHolder
- menusFontLabelHolder otherFontLabelHolder allLabel buttonsLabel
- textLabel labelLabel listsLabel menuLabel inputFieldLabel
- inputFieldDef inputFieldFontLabelHolder otherLabel
- linuxFontWorkaround otherDef'
- classVariableNames:''
- poolDictionaries:''
- privateIn:AbstractSettingsApplication
-!
-
AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
searchDialogIsModal startTextDragWithControl catchClassRedefs
@@ -3121,6 +3108,7 @@
(WindowSpec
label: 'Display Screen Settings'
name: 'Display Screen Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 603 459)
)
@@ -3866,6 +3854,7 @@
(WindowSpec
label: 'Editor Settings'
name: 'Editor Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 658 543)
)
@@ -4052,8 +4041,6 @@
)
)
-
- "Modified: / 27-03-2014 / 10:20:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
@@ -4283,1195 +4270,6 @@
"Modified: / 25-11-2011 / 15:23:02 / cg"
! !
-!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
-
-widgetList
-
- ^ #(
- 'All'
- 'Labels'
- 'Buttons'
- 'Lists'
- 'Menus'
- 'Edited Text'
- 'Others'
- )
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'help specs'!
-
-flyByHelpSpec
- "This resource specification was automatically generated
- by the UIHelpTool of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIHelpTool may not be able to read the specification."
-
- "
- UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl
- "
-
- <resource: #help>
-
- ^ super flyByHelpSpec addPairsFrom:#(
-
-#resetToDefault
-'Reset fonts back to original default values (as specified in the window style-file and OS settings)'
-
-#changeToHighContrast
-'Change settings for higher contrast.\Useful for presentations and outdor operation'
-
-#changeToBigFonts
-'Change settings for bigger fonts.\Useful for presentations'
-
-#changeToHugeFonts
-'Change settings for huge fonts.\Useful for presentations'
-
-#changeToSTXLook
-'Change settings for an ST/X-like look with fixed-width code fonts'
-
-#changeToSTXLookXft
-'Change settings for an ST/X-like look with fixed-width code fonts).\Uses better looking Xft fonts if avaiable (XWindow only)'
-
-#changeToSqueakLook
-'Change settings for a Squeak-like look with variable code fonts'
-
-#changeToVisualAgeLook
-'Change settings for a VisualAge-like look with bold variable code fonts'
-)
-
- "Created: / 17-03-2012 / 11:37:51 / cg"
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
-
-defaultIcon
- <resource: #programImage>
-
- ^ ToolbarIconLibrary fontIcon
-!
-
-defaultIcon2
- "This resource specification was automatically generated
- by the ImageEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the ImageEditor may not be able to read the specification."
-
- "
- self defaultIcon2 inspect
- ImageEditor openOnClass:self andSelector:#defaultIcon2
- Icon flushCachedIcons
- "
-
- <resource: #image>
-
- ^Icon
- constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
- ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
-@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
-ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
-P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
-
-fontForEncoding:encodingMatch
-
- | inst |
-
- inst := self new.
- inst encodingMatch:encodingMatch.
- self initialize.
- self open.
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
-
-windowSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
- AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
- AbstractSettingsApplication::FontSettingsAppl open
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Font Settings'
- name: 'Font Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 641 753)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fitSpace
- verticalLayout: topSpace
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (TextEditorSpec
- name: 'TextEditor1'
- style: labelFont
- model: infoText
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- miniScrollerVertical: true
- isReadOnly: true
- hasKeyboardFocusInitially: false
- extent: (Point 635 132)
- viewClassName: 'ListView'
- )
- (ViewSpec
- name: 'CodeBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Code'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Text Font'
- name: 'Label2'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: textFontLabelHolder
- adjust: left
- postBuildCallback: postBuildTextFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'Button1'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeTextFont
- )
- (DividerSpec
- name: 'Separator11'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'InputFieldsBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Input Fields'
- name: 'Input Fields'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'InputFields Font'
- name: 'InputFieldsFont'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: inputFieldFontLabelHolder
- adjust: left
- postBuildCallback: postBuildInputFieldFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'ChangeText'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeInputFieldFont
- )
- (DividerSpec
- name: 'Separator10'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'ListsBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Lists'
- name: 'Lists'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Lists Font'
- name: 'ListsFont'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: listsFontLabelHolder
- adjust: left
- postBuildCallback: postBuildListsFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'ChangeLists'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeListsFont
- )
- (DividerSpec
- name: 'Separator8'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'MenusBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Menus'
- name: 'Menus'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Menus Font'
- name: 'MenusFont'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: menusFontLabelHolder
- adjust: left
- postBuildCallback: postBuildMenuesFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'ChangeMenus'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeMenusFont
- )
- (DividerSpec
- name: 'Separator9'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'LabelsBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Labels'
- name: 'Labels'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Labels'
- name: 'LabelsFont'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: labelsFontLabelHolder
- adjust: left
- postBuildCallback: postBuildLabelsFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'ChangeLabels'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeLabelsFont
- )
- (DividerSpec
- name: 'Separator6'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'ButtonsBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Buttons'
- name: 'Buttons'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Buttons Font'
- name: 'ButtonsFont'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: buttonsFontLabelHolder
- adjust: left
- postBuildCallback: postBuildButtonsFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'Change Buttons'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeButtonsFont
- )
- (DividerSpec
- name: 'Separator7'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'OtherBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'All Others'
- name: 'Label5'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Label'
- name: 'Label6'
- layout: (LayoutFrame 110 0 22 0 -5 1 44 0)
- translateLabel: true
- labelChannel: otherFontLabelHolder
- adjust: left
- postBuildCallback: postBuildOtherFontLabel:
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'Button9'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeOtherFont
- )
- (DividerSpec
- name: 'Separator13'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (ViewSpec
- name: 'AllBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'All'
- name: 'All'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 20 0)
- translateLabel: true
- adjust: left
- )
- (ActionButtonSpec
- label: 'Change...'
- name: 'ChangeAll'
- layout: (LayoutFrame 0 0.0 22 0 105 0 44 0)
- translateLabel: true
- tabable: true
- model: changeAllFont
- )
- (DividerSpec
- name: 'Separator1'
- layout: (LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
- )
- )
-
- )
- extent: (Point 635 50)
- )
- (CheckBoxSpec
- label: 'Linux font workaround: do not reset fonts on snapshot restart'
- name: 'LinuxFontWorkaroundBox'
- visibilityChannel: linuxFontWorkaroundVisible
- model: linuxFontWorkaround
- translateLabel: true
- extent: (Point 635 30)
- )
- (DividerSpec
- name: 'Separator12'
- visibilityChannel: linuxFontWorkaroundVisible
- extent: (Point 635 3)
- )
- (ViewSpec
- name: 'SpecialsBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Common Settings:'
- name: 'Label4'
- layout: (LayoutFrame 0 0.0 11 0 0 1.0 33 0)
- translateLabel: true
- adjust: left
- )
- (ActionButtonSpec
- label: 'Default'
- name: 'Button2'
- layout: (LayoutFrame 0 0.0 35 0 130 0 57 0)
- activeHelpKey: resetToDefault
- translateLabel: true
- tabable: true
- model: changeToDefault
- )
- (ActionButtonSpec
- label: 'High Contrast'
- name: 'Button3'
- layout: (LayoutFrame 148 0.0 35 0 298 0 57 0)
- activeHelpKey: changeToHighContrast
- translateLabel: true
- tabable: true
- model: changeToHighContrast
- )
- (ActionButtonSpec
- label: 'Big Fonts'
- name: 'Button4'
- layout: (LayoutFrame 309 0.0 35 0 459 0 57 0)
- activeHelpKey: changeToBigFonts
- translateLabel: true
- tabable: true
- model: changeToBigFonts
- )
- (ActionButtonSpec
- label: 'Huge Fonts'
- name: 'Button5'
- layout: (LayoutFrame 470 0.0 35 0 620 0 57 0)
- activeHelpKey: changeToHugeFonts
- translateLabel: true
- tabable: true
- model: changeToHugeFonts
- )
- (ActionButtonSpec
- label: 'ST/X Look'
- name: 'Button8'
- layout: (LayoutFrame 148 0.0 67 0 298 0 89 0)
- activeHelpKey: changeToSTXLook
- translateLabel: true
- tabable: true
- model: changeToSTXLook
- )
- (ActionButtonSpec
- label: 'Squeak Look'
- name: 'Button6'
- layout: (LayoutFrame 309 0.0 67 0 459 0 89 0)
- activeHelpKey: changeToSqueakLook
- translateLabel: true
- tabable: true
- model: changeToSqueakLook
- )
- (ActionButtonSpec
- label: 'V''Age Look'
- name: 'Button7'
- layout: (LayoutFrame 470 0.0 67 0 620 0 89 0)
- activeHelpKey: changeToVisualAgeLook
- translateLabel: true
- tabable: true
- model: changeToVisualAgeLook
- )
- (ActionButtonSpec
- label: 'ST/X Look (Xft)'
- name: 'Button10'
- layout: (LayoutFrame 148 0.0 99 0 298 0 121 0)
- activeHelpKey: changeToSTXLookXft
- translateLabel: true
- tabable: true
- model: changeToSTXLookXft
- enableChannel: hasXftFonts
- )
- )
-
- )
- extent: (Point 635 124)
- )
- )
-
- )
- )
- )
-
- )
- )
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
-
-encodingMatch:aEncodingMatch
-
- aEncodingMatch notNil ifTrue:[
- filter := [:f | f encoding notNil
- and:[aEncodingMatch match:f encoding]].
- ].
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
-
-basicReadFontSettings
-"/ View readStyleSheetAndUpdateAllStyleCaches.
- self allOfThem value:SimpleView defaultFont.
- self otherDef value:SimpleView defaultFont.
- self labelDef value:Label defaultFont.
- self buttonDef value:Button defaultFont.
- self listDef value:SelectionInListView defaultFont.
- self menuDef value:MenuView defaultFont.
- self textDef value:TextView defaultFont.
- self inputFieldDef value:EditField defaultFont.
-
- "Modified: / 10-10-2011 / 12:15:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Created: / 06-02-2012 / 12:22:39 / cg"
-!
-
-basicReadSettings
- self basicReadFontSettings.
-
- self readAspects: #(linuxFontWorkaround) from: currentUserPrefs
-
- "Modified: / 10-10-2011 / 12:15:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 06-02-2012 / 12:22:51 / cg"
-!
-
-basicSaveSettings
- |fn|
-
- fn := self otherDef value.
- SimpleView withAllSubclasses do:[:cls | cls defaultFont:fn].
-
- fn := self labelDef value.
- Label defaultFont:fn.
- CheckBox defaultFont:fn.
-
- fn := self buttonDef value.
- Button defaultFont:fn.
- Toggle defaultFont:fn.
-
- fn := self textDef value.
- TextView withAllSubclasses do:[:cls | cls defaultFont:fn].
-
- fn := self inputFieldDef value.
- EditField withAllSubclasses do:[:cls | cls defaultFont:fn].
-
- fn := self listDef value.
- SelectionInListView withAllSubclasses do:[:cls | cls defaultFont:fn].
-
- fn := self menuDef value.
- ListView defaultFont:fn.
- MenuView defaultFont:fn.
- MenuPanel defaultFont:fn.
- NoteBookView defaultFont:fn.
- PullDownMenu defaultFont:fn.
-
- self writeAspects: #(linuxFontWorkaround) to: currentUserPrefs
-
- "Modified: / 10-10-2011 / 12:15:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-changeAllFont
- |f|
-
- self withWaitCursorDo:[
- f := FontPanel
- fontFromUserInitial:(self allOfThem value)
- title:(resources string:'Font for %1' with:'All')
- filter:filter.
- ].
- f notNil ifTrue:[
- "/ self allOfThem value:(f onDevice:allLabel device).
- self otherDef value:(f onDevice:otherLabel 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).
- self inputFieldDef value:(f onDevice:inputFieldLabel device).
- ]
-!
-
-changeButtonsFont
- self changeFontFor:self buttonDef labelTitle:'Buttons'.
-"/
-"/ |f|
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self buttonDef value)
-"/ title:(resources string:'Font for %1' with:'All')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self buttonDef value:(f onDevice:buttonsLabel device).
-"/ ]
-!
-
-changeFontFor:aHolder labelTitle:labelTitle
- |f |
-
- self withWaitCursorDo:[
- f := FontPanel
- fontFromUserInitial:(aHolder value)
- title:(resources string:'Font for %1' with:labelTitle)
- filter:filter.
- ].
- f notNil ifTrue:[
- aHolder value:(f onDevice:self graphicsDevice).
- ].
-!
-
-changeInputFieldFont
- self changeFontFor:self inputFieldDef labelTitle:'Input Fields'.
-"/ |f|
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self inputFieldDef value)
-"/ title:(resources string:'Font for %1' with:'Input Fields')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self inputFieldDef value:(f onDevice:inputFieldLabel device).
-"/ ]
-!
-
-changeLabelsFont
- self changeFontFor:self labelDef labelTitle:'Labels'.
-"/ |f |
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self labelDef value)
-"/ title:(resources string:'Font for %1' with:'Labels')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self labelDef value:(f onDevice:labelLabel device).
-"/ ].
-!
-
-changeListsFont
- self changeFontFor:self listDef labelTitle:'Lists'.
-"/ |f|
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self listDef value)
-"/ title:(resources string:'Font for %1' with:'Lists')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self listDef value:(f onDevice:listsLabel device).
-"/ ]
-!
-
-changeMenusFont
- self changeFontFor:self menuDef labelTitle:'Menus'.
-"/ |f|
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self menuDef value)
-"/ title:(resources string:'Font for %1' with:'Menus')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self menuDef value:(f onDevice:menuLabel device).
-"/ ]
-!
-
-changeOtherFont
- self changeFontFor:self otherDef labelTitle:'All Others'.
-"/ |f|
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self otherDef value)
-"/ title:(resources string:'Font for %1' with:'All Others')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self otherDef value:(f onDevice:otherLabel device).
-"/ ]
-!
-
-changeTextFont
- self changeFontFor:self textDef labelTitle:'Edited Text'.
-"/ |f|
-"/
-"/ f := FontPanel
-"/ fontFromUserInitial:(self textDef value)
-"/ title:(resources string:'Font for %1' with:'Edited Text')
-"/ filter:filter.
-"/ f notNil ifTrue:[
-"/ self textDef value:(f onDevice:textLabel device).
-"/ ]
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions-common looks'!
-
-changeToBigFonts
- |fixFont variableFont|
-
-"/ fixFont := (Font family:'courier cew' face:'bold' style:'roman' size:14).
-"/ variableFont := (Font family:'arial' face:'bold' style:'roman' size:14).
- fixFont := (TextView defaultFont asSize:14) asFace:'bold'.
- variableFont := (Label defaultFont asSize:14) asFace:'bold'.
- self changeToFix:fixFont variable:variableFont.
-
- "Created: / 06-02-2012 / 12:12:55 / cg"
-!
-
-changeToDefault
- "/View readStyleSheetAndUpdateAllStyleCaches.
- View updateAllStyleCaches.
- self basicReadFontSettings.
-
- "Created: / 06-02-2012 / 12:06:00 / cg"
-!
-
-changeToFix:fixFont variable:variableFont
- self textDef value:fixFont.
- self inputFieldDef value:fixFont.
-
- self menuDef value:variableFont.
- self listDef value:variableFont.
- self labelDef value:variableFont.
- self buttonDef value:variableFont.
- self otherDef value:variableFont.
-
- self allOfThem value:variableFont.
-
- "Created: / 06-02-2012 / 12:18:34 / cg"
-!
-
-changeToHighContrast
- |fixFont variableFont|
-
-"/ fixFont := (Font family:'courier New' face:'bold' style:'roman' size:12).
-"/ variableFont := (Font family:'arial' face:'bold' style:'roman' size:12).
- fixFont := (TextView defaultFont asSize:12) asFace:'bold'.
- variableFont := (Label defaultFont asSize:12) asFace:'bold'.
- self changeToFix:fixFont variable:variableFont.
-
- "Created: / 06-02-2012 / 12:12:47 / cg"
-!
-
-changeToHugeFonts
- |fixFont variableFont|
-
-"/ fixFont := (Font family:'courier New' face:'bold' style:'roman' size:16).
-"/ variableFont := (Font family:'arial' face:'bold' style:'roman' size:16).
- fixFont := (TextView defaultFont asSize:18) asFace:'bold'.
- variableFont := (Label defaultFont asSize:18) asFace:'bold'.
- self changeToFix:fixFont variable:variableFont.
-
- "Created: / 17-03-2012 / 09:06:18 / cg"
-!
-
-changeToSTXLook
- |fixFont variableFont|
-
- fixFont := (Font family:'courier new' face:'medium' style:'roman' size:(TextView defaultFont size)).
- variableFont := (Font family:'arial' face:'medium' style:'roman' size:(TextView defaultFont size)).
- self changeToFix:fixFont variable:variableFont.
-
- "Created: / 17-03-2012 / 11:23:16 / cg"
-!
-
-changeToSTXLookXft
- |fixFont variableFont|
-
- XftFontDescription isNil ifTrue:[
- self changeToSTXLook.
- ^ self.
- ].
-
- fixFont := (XftFontDescription family:'Courier 10 Pitch' face:'regular' style:'roman' size:(TextView defaultFont size)).
- variableFont := (XftFontDescription family:'Arial' face:'regular' style:'roman' size:(Button defaultFont size)).
- self changeToFix:fixFont variable:variableFont.
-!
-
-changeToSqueakLook
- |variableFont|
-
- variableFont := (Font family:'arial' face:'medium' style:'roman' size:(TextView defaultFont size)).
- self changeToFix:variableFont variable:variableFont.
-
- "Created: / 17-03-2012 / 11:22:59 / cg"
-!
-
-changeToVisualAgeLook
- |variableFont variableBoldFont|
-
- variableBoldFont := (Font family:'arial' face:'bold' style:'roman' size:(TextView defaultFont size)).
- variableFont := (Font family:'arial' face:'medium' style:'roman' size:(TextView defaultFont size)).
- self changeToFix:variableBoldFont variable:variableBoldFont.
-
- self menuDef value:variableFont.
-
- "Created: / 17-03-2012 / 11:22:18 / cg"
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
-
-allFontLabelHolder
-
- allFontLabelHolder isNil ifTrue:[
- allFontLabelHolder := '' asValue.
- ].
- ^ allFontLabelHolder.
-!
-
-allOfThem
- "return/create the 'allOfThem' value holder (automatically generated)"
-
- allOfThem isNil ifTrue:[
- allOfThem := ValueHolder new.
- allOfThem addDependent:self.
- ].
- ^ allOfThem
-!
-
-buttonDef
- "return/create the 'buttonDef' value holder (automatically generated)"
-
- buttonDef isNil ifTrue:[
- buttonDef := ValueHolder new.
- buttonDef addDependent:self.
- ].
- ^ buttonDef
-!
-
-buttonsFontLabelHolder
-
- buttonsFontLabelHolder isNil ifTrue:[
- buttonsFontLabelHolder := '' asValue.
- ].
- ^ buttonsFontLabelHolder.
-!
-
-infoText
- ^ (self resources
- string:'FONT_SETTINGS_INFO'
- default:'Please notice that any changes usually only affect new windows.
-Existing windows usually remember their initial font as created.
-If required, reopen some of the views, including the Launcher itself.
-
-Also notice:
- unless you save your new settings,
- only the current session is affected by changes here.') withCRs
-
- "Created: / 17-08-2010 / 10:52:00 / cg"
-!
-
-inputFieldDef
- inputFieldDef isNil ifTrue:[
- inputFieldDef := ValueHolder new.
- inputFieldDef addDependent:self.
- ].
- ^ inputFieldDef
-!
-
-inputFieldFontLabelHolder
-
- inputFieldFontLabelHolder isNil ifTrue:[
- inputFieldFontLabelHolder := '' asValue.
- ].
- ^ inputFieldFontLabelHolder.
-!
-
-labelDef
- "return/create the 'labelDef' value holder (automatically generated)"
-
- labelDef isNil ifTrue:[
- labelDef := ValueHolder new.
- labelDef addDependent:self.
- ].
- ^ labelDef
-!
-
-labelsFontLabelHolder
-
- labelsFontLabelHolder isNil ifTrue:[
- labelsFontLabelHolder := '' asValue.
- ].
- ^ labelsFontLabelHolder.
-!
-
-linuxFontWorkaround
-
- linuxFontWorkaround isNil ifTrue:[
- linuxFontWorkaround := false asValue.
- linuxFontWorkaround onChangeSend:#updateModifiedChannel to:self
-
- ].
- ^ linuxFontWorkaround.
-
- "Created: / 10-10-2011 / 12:14:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-linuxFontWorkaroundVisible
-
- ^OperatingSystem getOSType == #linux
-
- "Created: / 10-10-2011 / 12:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-listDef
- "return/create the 'listDef' value holder (automatically generated)"
-
- listDef isNil ifTrue:[
- listDef := ValueHolder new.
- listDef addDependent:self.
- ].
- ^ listDef
-!
-
-listsFontLabelHolder
-
- listsFontLabelHolder isNil ifTrue:[
- listsFontLabelHolder := '' asValue.
- ].
- ^ listsFontLabelHolder.
-!
-
-menuDef
- "return/create the 'menuDef' value holder (automatically generated)"
-
- menuDef isNil ifTrue:[
- menuDef := ValueHolder new.
- menuDef addDependent:self.
- ].
- ^ menuDef
-!
-
-menusFontLabelHolder
-
- menusFontLabelHolder isNil ifTrue:[
- menusFontLabelHolder := '' asValue.
- ].
- ^ menusFontLabelHolder.
-!
-
-otherDef
- otherDef isNil ifTrue:[
- otherDef := ValueHolder new.
- otherDef addDependent:self.
- ].
- ^ otherDef
-!
-
-otherFontLabelHolder
-
- otherFontLabelHolder isNil ifTrue:[
- otherFontLabelHolder := '' asValue.
- ].
- ^ otherFontLabelHolder.
-!
-
-textDef
- "return/create the 'textDef' value holder (automatically generated)"
-
- textDef isNil ifTrue:[
- textDef := ValueHolder new.
- textDef addDependent:self.
- ].
- ^ textDef
-!
-
-textFontLabelHolder
-
- textFontLabelHolder isNil ifTrue:[
- textFontLabelHolder := '' asValue.
- ].
- ^ textFontLabelHolder.
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
-
-update:something with:aParameter from:changedObject
- |whichLabel whichFontLabelHolder|
-
- builder notNil ifTrue:[
- changedObject == self allOfThem ifTrue:[
- whichLabel := allLabel.
- whichFontLabelHolder := self allFontLabelHolder.
- ].
- changedObject == self otherDef ifTrue:[
- whichLabel := otherLabel.
- whichFontLabelHolder := self otherFontLabelHolder.
- ].
- changedObject == self labelDef ifTrue:[
- whichLabel := labelLabel.
- whichFontLabelHolder := self labelsFontLabelHolder.
- ].
- changedObject == self buttonDef ifTrue:[
- whichLabel := buttonsLabel.
- whichFontLabelHolder := self buttonsFontLabelHolder.
- ].
- changedObject == self listDef ifTrue:[
- whichLabel := listsLabel.
- whichFontLabelHolder := self listsFontLabelHolder.
- ].
- changedObject == self menuDef ifTrue:[
- whichLabel := menuLabel.
- whichFontLabelHolder := self menusFontLabelHolder.
- ].
- changedObject == self textDef ifTrue:[
- whichLabel := textLabel.
- whichFontLabelHolder := self textFontLabelHolder.
- ].
- changedObject == self inputFieldDef ifTrue:[
- whichLabel := inputFieldLabel.
- whichFontLabelHolder := self inputFieldFontLabelHolder.
- ].
- whichLabel notNil ifTrue:[
- self updateFontOfLabel:whichLabel andFontNameHolder:whichFontLabelHolder from:changedObject.
- ^ self.
- ]
- ].
- super update:something with:aParameter from:changedObject
-!
-
-updateAllFontLabels
- self update:#value with:nil from:self allOfThem.
- self update:#value with:nil from:self otherDef.
- self update:#value with:nil from:self labelDef.
- self update:#value with:nil from:self buttonDef.
- self update:#value with:nil from:self listDef.
- self update:#value with:nil from:self menuDef.
- self update:#value with:nil from:self textDef.
- self update:#value with:nil from:self inputFieldDef.
-!
-
-updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
- |f label|
-
- f := changedObject value.
- labelWidget font:f.
- label := f isNil ifTrue:[
- ''
- ] ifFalse:[
- f userFriendlyName
- ].
- fontNameHolder value:label.
- self updateModifiedChannel
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'help'!
-
-helpFilename
- ^ 'Launcher/fontSettings.html'
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
-
-postBuildAllFontLabel:aWidget
-
- allLabel := aWidget.
-!
-
-postBuildButtonsFontLabel:aWidget
-
- buttonsLabel := aWidget.
-!
-
-postBuildInputFieldFontLabel:aWidget
-
- inputFieldLabel := aWidget.
-!
-
-postBuildLabelsFontLabel:aWidget
-
- labelLabel := aWidget.
-!
-
-postBuildListsFontLabel:aWidget
-
- listsLabel := aWidget.
-!
-
-postBuildMenuesFontLabel:aWidget
-
- menuLabel := aWidget.
-!
-
-postBuildOtherFontLabel:aWidget
-
- otherLabel := aWidget.
-!
-
-postBuildTextFontLabel:aWidget
-
- textLabel := aWidget.
-!
-
-postBuildWith:aBuilder
-"/ self readSettings.
- self updateAllFontLabels.
- super postBuildWith:aBuilder
-! !
-
-!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
-
-hasUnsavedChanges
- self otherDef value ~= View defaultFont ifTrue:[^ true].
- self labelDef value ~= Label defaultFont ifTrue:[^ true].
- self buttonDef value ~= Button defaultFont ifTrue:[^ true].
- self listDef value ~= SelectionInListView defaultFont ifTrue:[^ true].
- self menuDef value ~= MenuView defaultFont ifTrue:[^ true].
- self textDef value ~= TextView defaultFont ifTrue:[^ true].
- self inputFieldDef value ~= EditField defaultFont ifTrue:[^ true].
-
- (self hasChangedAspectIn: #(linuxFontWorkaround) asComparedTo:currentUserPrefs) ifTrue:[^ true].
-
- ^ false
-
- "Modified: / 10-10-2011 / 12:14:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-hasXftFonts
- ^ (Display platformName = 'X11') and:[ XftFontDescription notNil ]
-! !
-
!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
keepSourceOptions
@@ -7345,6 +6143,7 @@
(WindowSpec
label: 'Memory Manager Settings'
name: 'Memory Manager Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 705 722)
)
@@ -8114,367 +6913,368 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Communication Settings'
- name: 'Communication Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 732 558)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'SMTP Server'
- name: 'SMTPServerBox1'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box5'
- layout: (LayoutFrame 0 0 5 0 0 1 28 0)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'SMTP Server:'
- name: 'SMTPLabel'
- layout: (LayoutFrame 0 0 0 0 150 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'SMTPServer'
- layout: (LayoutFrame 150 0 0 0 400 0 22 0)
- model: smtpServerName
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 732 65)
- )
- (FramedBoxSpec
- label: 'Window migration'
- name: 'WindowMicrationSetupBox'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: left
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box2'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Window migration enabled'
- name: 'CheckBox2'
- layout: (LayoutFrame 5 0 0 0 600 0 22 0)
- enableChannel: hasWindowMigrationServer
- model: windowMigrationEnabled
- translateLabel: true
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Communication Settings'
+ name: 'Communication Settings'
+ flags: 1
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 732 558)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'SMTP Server'
+ name: 'SMTPServerBox1'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box5'
+ layout: (LayoutFrame 0 0 5 0 0 1 28 0)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'SMTP Server:'
+ name: 'SMTPLabel'
+ layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'SMTPServer'
+ layout: (LayoutFrame 150 0 0 0 400 0 22 0)
+ model: smtpServerName
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 732 65)
+ )
+ (FramedBoxSpec
+ label: 'Window migration'
+ name: 'WindowMicrationSetupBox'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: left
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Window migration enabled'
+ name: 'CheckBox2'
+ layout: (LayoutFrame 5 0 0 0 600 0 22 0)
+ enableChannel: hasWindowMigrationServer
+ model: windowMigrationEnabled
+ translateLabel: true
)
-
- )
- extent: (Point 696 23)
- )
- (ViewSpec
- name: 'Box3'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Password check'
- name: 'CheckBox3'
- layout: (LayoutFrame 5 0 -2 0 600 0 20 0)
- enableChannel: enablePasswordCheck
- model: windowMigrationAuthenticate
- translateLabel: true
- )
+ )
+
+ )
+ extent: (Point 696 23)
+ )
+ (ViewSpec
+ name: 'Box3'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Password check'
+ name: 'CheckBox3'
+ layout: (LayoutFrame 5 0 -2 0 600 0 20 0)
+ enableChannel: enablePasswordCheck
+ model: windowMigrationAuthenticate
+ translateLabel: true
)
-
- )
- extent: (Point 696 22)
- )
- (ViewSpec
- name: 'Box4'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Password:'
- name: 'Label3'
- layout: (LayoutFrame 0 0 0 0 150 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 150 0 0 0 400 0 22 0)
- enableChannel: windowMigrationAuthenticate
- model: windowMigrationPassword
- type: password
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
+ )
+
+ )
+ extent: (Point 696 22)
+ )
+ (ViewSpec
+ name: 'Box4'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Password:'
+ name: 'Label3'
+ layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 150 0 0 0 400 0 22 0)
+ enableChannel: windowMigrationAuthenticate
+ model: windowMigrationPassword
+ type: password
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
)
-
- )
- extent: (Point 696 22)
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 732 115)
- )
- (FramedBoxSpec
- label: 'Remote Browsing'
- name: 'RemoteBrowsingSetupBox'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- layout: (LayoutFrame 0 0 5 0 0 1 28 0)
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Remote browsing enabled'
- name: 'CheckBox1'
- layout: (LayoutFrame 5 0 0 0 600 0 22 0)
- enableChannel: hasRemoteBrowsingSupport
- model: remoteBrowsingEnabled
- translateLabel: true
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 732 64)
- )
- (FramedBoxSpec
- label: 'SmallTeam Change Distribution'
- name: 'SmallTeamSetupBox'
- visibilityChannel: managerIsCVSSourceCodeManager
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'enableBox'
- layout: (LayoutFrame 0 0 8 0 0 1 31 0)
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'SmallTeam Server enabled'
- name: 'CheckBox4'
- layout: (LayoutFrame 5 0 0 0 600 0 22 0)
- enableChannel: smallTeamServerAvailable
- model: smallTeamServerEnabled
- translateLabel: true
- )
- )
-
- )
- )
- (LabelSpec
- label: 'SmallTeam Hosts:'
- name: 'smallTeamHostsLabel'
- layout: (LayoutFrame 0 0.0 37 0 60 0.25 59 0)
- translateLabel: true
- adjust: right
- )
- (SequenceViewSpec
- name: 'smallTeamHostsList'
- layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
- enableChannel: smallTeamServerEnabled
- tabable: true
- model: selectedSmallTeamHost
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- useIndex: false
- sequenceList: listOfSmallTeamHosts
- )
- (LabelSpec
- label: 'Host:'
- name: 'hostLabel'
- layout: (LayoutFrame 0 0.0 142 0 60 0.25 159 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'smallTeamHostEntryField'
- layout: (LayoutFrame 64 0.25 138 0 0 1 160 0)
- enableChannel: smallTeamServerEnabled
- tabable: true
- model: smallTeamHostEntry
- acceptChannel: acceptChannel
- acceptOnPointerLeave: true
- )
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel2'
- layout: (LayoutFrame 64 0.25 165 0 -1 1 190 0)
- horizontalLayout: fitSpace
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Add'
- name: 'addButton'
- translateLabel: true
- tabable: true
- model: addSmallTeamHost
- enableChannel: addHostEnabled
- extent: (Point 222 22)
- )
- (ActionButtonSpec
- label: 'Remove'
- name: 'removeButton'
- translateLabel: true
- tabable: true
- model: removeSmallTeamHost
- enableChannel: removeHostEnabled
- extent: (Point 222 22)
- )
- )
-
- )
- )
- )
-
- )
- extent: (Point 732 222)
- )
- (FramedBoxSpec
- label: '.NET Bridge'
- name: 'FramedBox1'
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel3'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- horizontalLayout: left
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box6'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Verbose'
- name: 'CheckBox5'
- layout: (LayoutFrame 5 0 5 0 600 0 22 0)
- enableChannel: hasDotNetBridge
- model: dotNetBridgeVerbose
- translateLabel: true
- )
+ )
+
+ )
+ extent: (Point 696 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 732 115)
+ )
+ (FramedBoxSpec
+ label: 'Remote Browsing'
+ name: 'RemoteBrowsingSetupBox'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ layout: (LayoutFrame 0 0 5 0 0 1 28 0)
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Remote browsing enabled'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 5 0 0 0 600 0 22 0)
+ enableChannel: hasRemoteBrowsingSupport
+ model: remoteBrowsingEnabled
+ translateLabel: true
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 732 64)
+ )
+ (FramedBoxSpec
+ label: 'SmallTeam Change Distribution'
+ name: 'SmallTeamSetupBox'
+ visibilityChannel: managerIsCVSSourceCodeManager
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'enableBox'
+ layout: (LayoutFrame 0 0 8 0 0 1 31 0)
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'SmallTeam Server enabled'
+ name: 'CheckBox4'
+ layout: (LayoutFrame 5 0 0 0 600 0 22 0)
+ enableChannel: smallTeamServerAvailable
+ model: smallTeamServerEnabled
+ translateLabel: true
+ )
+ )
+
+ )
+ )
+ (LabelSpec
+ label: 'SmallTeam Hosts:'
+ name: 'smallTeamHostsLabel'
+ layout: (LayoutFrame 0 0.0 37 0 60 0.25 59 0)
+ translateLabel: true
+ adjust: right
+ )
+ (SequenceViewSpec
+ name: 'smallTeamHostsList'
+ layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
+ enableChannel: smallTeamServerEnabled
+ tabable: true
+ model: selectedSmallTeamHost
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ useIndex: false
+ sequenceList: listOfSmallTeamHosts
+ )
+ (LabelSpec
+ label: 'Host:'
+ name: 'hostLabel'
+ layout: (LayoutFrame 0 0.0 142 0 60 0.25 159 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'smallTeamHostEntryField'
+ layout: (LayoutFrame 64 0.25 138 0 0 1 160 0)
+ enableChannel: smallTeamServerEnabled
+ tabable: true
+ model: smallTeamHostEntry
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: true
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel2'
+ layout: (LayoutFrame 64 0.25 165 0 -1 1 190 0)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Add'
+ name: 'addButton'
+ translateLabel: true
+ tabable: true
+ model: addSmallTeamHost
+ enableChannel: addHostEnabled
+ extent: (Point 225 22)
+ )
+ (ActionButtonSpec
+ label: 'Remove'
+ name: 'removeButton'
+ translateLabel: true
+ tabable: true
+ model: removeSmallTeamHost
+ enableChannel: removeHostEnabled
+ extent: (Point 225 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ extent: (Point 732 222)
+ )
+ (FramedBoxSpec
+ label: '.NET Bridge'
+ name: 'FramedBox1'
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: left
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box6'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Verbose'
+ name: 'CheckBox5'
+ layout: (LayoutFrame 5 0 5 0 600 0 22 0)
+ enableChannel: hasDotNetBridge
+ model: dotNetBridgeVerbose
+ translateLabel: true
)
-
- )
- extent: (Point 696 23)
- )
- (ViewSpec
- name: 'Box7'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Bridge Runs in IDE'
- name: 'CheckBox6'
- layout: (LayoutFrame 5 0 3 0 600 0 25 0)
- enableChannel: hasDotNetBridge
- model: dotNetBridgeRunsInIDE
- translateLabel: true
- )
+ )
+
+ )
+ extent: (Point 696 23)
+ )
+ (ViewSpec
+ name: 'Box7'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Bridge Runs in IDE'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 5 0 3 0 600 0 25 0)
+ enableChannel: hasDotNetBridge
+ model: dotNetBridgeRunsInIDE
+ translateLabel: true
)
-
- )
- extent: (Point 696 22)
- )
- )
-
- )
- )
- (ActionButtonSpec
- label: 'Close all Connections'
- name: 'Button1'
- layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
- translateLabel: true
- tabable: true
- model: closeAllDotNetConnections
- )
- )
-
- )
- extent: (Point 732 83)
- )
- )
-
- )
- )
- )
-
- )
- )
+ )
+
+ )
+ extent: (Point 696 22)
+ )
+ )
+
+ )
+ )
+ (ActionButtonSpec
+ label: 'Close all Connections'
+ name: 'Button1'
+ layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
+ translateLabel: true
+ tabable: true
+ model: closeAllDotNetConnections
+ )
+ )
+
+ )
+ extent: (Point 732 83)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
@@ -8965,6 +7765,7 @@
(WindowSpec
label: 'Display settings 2'
name: 'Display settings 2'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 671 591)
)
@@ -9438,6 +8239,7 @@
(WindowSpec
label: 'Display settings'
name: 'Display settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 540 662)
)
@@ -9631,7 +8433,7 @@
(LabelSpec
label: 'Label'
name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 226 0 22 0)
+ layout: (LayoutFrame 0 0 0 0 182 0 17 0)
activeHelpKey: hostNameInLabel
translateLabel: true
labelChannel: formatHostNameWindowLabel
@@ -10411,6 +9213,7 @@
(WindowSpec
label: 'Printer Settings'
name: 'Printer Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 614 458)
)
@@ -11412,326 +10215,327 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'RDoIt Server Settings'
- name: 'RDoIt Server Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 600 550)
- )
- component:
- (SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'RDoIt'
- name: 'RDoItFramedBox'
- layout: (LayoutFrame 0 0 0 0 0 1 227 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 0
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Remote doits enabled'
- name: 'CheckBox1'
- layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
- enableChannel: hasRDoitServerClass
- model: rDoitsEnabled
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 25)
- )
- (ViewSpec
- name: 'Box2'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Port/Path:'
- name: 'Label2'
- layout: (LayoutFrame 0 0 0 0 150 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitServerPortOrPath
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- (LabelSpec
- label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
- name: 'Label3'
- layout: (LayoutFrame 150 0 28 0 596 0 50 0)
- translateLabel: true
- adjust: left
- )
- )
-
- )
- extent: (Point 558 60)
- )
- (ViewSpec
- name: 'Box13'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Local Connections Only'
- name: 'CheckBox10'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitEnabledOnlyViaLocalConnection
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 25)
- )
- (ViewSpec
- name: 'Box3'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log errors'
- name: 'CheckBox2'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitErrorLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 25)
- )
- (ViewSpec
- name: 'Box4'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log requests'
- name: 'CheckBox3'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 24)
- )
- (ViewSpec
- name: 'Box5'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Debug errors'
- name: 'CheckBox4'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: rDoitErrorDebugging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 23)
- )
- )
-
- )
- )
- )
-
- )
- )
- (FramedBoxSpec
- label: 'JavaScript-Scripting via Telnet'
- name: 'ScriptingFramedBox'
- layout: (LayoutFrame 0 0 224 0 0 1 451 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel3'
- layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 0
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box6'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'JavaScript-Scripting enabled'
- name: 'CheckBox5'
- layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
- enableChannel: hasScriptingServerClass
- model: scriptingEnabled
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 25)
- )
- (ViewSpec
- name: 'Box12'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Port:'
- name: 'Label4'
- layout: (LayoutFrame 0 0 0 0 150 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: rDoitsEnabled
- model: scriptingServerPortOrPath
- isReadOnly: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- (LabelSpec
- label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
- name: 'Label5'
- layout: (LayoutFrame 150 0 28 0 596 0 50 0)
- initiallyInvisible: true
- translateLabel: true
- adjust: left
- )
- )
-
- )
- extent: (Point 558 60)
- )
- (ViewSpec
- name: 'Box11'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Local Connections Only'
- name: 'CheckBox9'
- layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingEnabledOnlyViaLocalConnection
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 25)
- )
- (ViewSpec
- name: 'Box8'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log errors'
- name: 'CheckBox6'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingErrorLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 25)
- )
- (ViewSpec
- name: 'Box9'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Log requests'
- name: 'CheckBox7'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingLogging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 24)
- )
- (ViewSpec
- name: 'Box10'
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Debug errors'
- name: 'CheckBox8'
- layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
- enableChannel: scriptingEnabled
- model: scriptingErrorDebugging
- translateLabel: true
- )
- )
-
- )
- extent: (Point 558 23)
- )
- )
-
- )
- )
- )
-
- )
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'RDoIt Server Settings'
+ name: 'RDoIt Server Settings'
+ flags: 1
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 601 535)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'RDoIt'
+ name: 'RDoItFramedBox'
+ layout: (LayoutFrame 0 0 0 0 0 1 227 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 0
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Remote doits enabled'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
+ enableChannel: hasRDoitServerClass
+ model: rDoitsEnabled
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 25)
+ )
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Port/Path:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitServerPortOrPath
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
+ name: 'Label3'
+ layout: (LayoutFrame 150 0 28 0 596 0 50 0)
+ translateLabel: true
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 567 60)
+ )
+ (ViewSpec
+ name: 'Box13'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Local Connections Only'
+ name: 'CheckBox10'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitEnabledOnlyViaLocalConnection
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 25)
+ )
+ (ViewSpec
+ name: 'Box3'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log errors'
+ name: 'CheckBox2'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitErrorLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 25)
+ )
+ (ViewSpec
+ name: 'Box4'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log requests'
+ name: 'CheckBox3'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 24)
+ )
+ (ViewSpec
+ name: 'Box5'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Debug errors'
+ name: 'CheckBox4'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: rDoitErrorDebugging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 23)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'JavaScript-Scripting via Telnet'
+ name: 'ScriptingFramedBox'
+ layout: (LayoutFrame 0 0 224 0 0 1 460 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel3'
+ layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 0
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box6'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'JavaScript-Scripting enabled'
+ name: 'CheckBox5'
+ layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
+ enableChannel: hasScriptingServerClass
+ model: scriptingEnabled
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 25)
+ )
+ (ViewSpec
+ name: 'Box12'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Port:'
+ name: 'Label4'
+ layout: (LayoutFrame 0 0 0 0 150 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: rDoitsEnabled
+ model: scriptingServerPortOrPath
+ isReadOnly: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ (LabelSpec
+ label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
+ name: 'Label5'
+ layout: (LayoutFrame 150 0 28 0 596 0 50 0)
+ initiallyInvisible: true
+ translateLabel: true
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 567 60)
+ )
+ (ViewSpec
+ name: 'Box11'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Local Connections Only'
+ name: 'CheckBox9'
+ layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingEnabledOnlyViaLocalConnection
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 25)
+ )
+ (ViewSpec
+ name: 'Box8'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log errors'
+ name: 'CheckBox6'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingErrorLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 25)
+ )
+ (ViewSpec
+ name: 'Box9'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Log requests'
+ name: 'CheckBox7'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingLogging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 24)
+ )
+ (ViewSpec
+ name: 'Box10'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Debug errors'
+ name: 'CheckBox8'
+ layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
+ enableChannel: scriptingEnabled
+ model: scriptingErrorDebugging
+ translateLabel: true
+ )
+ )
+
+ )
+ extent: (Point 567 23)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
@@ -12649,499 +11453,500 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'STC Compiler Settings'
- name: 'STC Compiler Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 600 602)
- )
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel2'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: top
- horizontalSpace: 3
- verticalSpace: 0
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'SeparatingBox1'
- extent: (Point 600 4)
- )
- (ViewSpec
- name: 'InfoTextBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- name: 'Label14'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- translateLabel: true
- labelChannel: helpText
- adjust: left
- )
- )
-
- )
- extent: (Point 600 90)
- )
- (ViewSpec
- name: 'STCCompilationBox11'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Compilation to Machine Code:'
- name: 'Label11'
- layout: (LayoutFrame 0 0 0 0 240 0 22 0)
- translateLabel: true
- adjust: right
- )
- (PopUpListSpec
- label: 'PopUp List'
- name: 'StcCompilation'
- layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
- tabable: true
- model: stcCompilationSelection
- enableChannel: canLoadBinaries
- menu: stcCompilationList
- useIndex: true
- )
- )
-
- )
- extent: (Point 600 29)
- )
- (ViewSpec
- name: 'STCCommandBox1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Command:'
- name: 'Label1'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField1'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stc
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'STCOptionsBox2'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Options:'
- name: 'Label2'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField2'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcOptions
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'KeepCIntermediateBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Keep Intermediate C File:'
- name: 'Label15'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (CheckToggleSpec
- name: 'CheckToggle1'
- layout: (LayoutOrigin 203 0 4 0)
- model: stcKeepCIntermediate
- isTriggerOnDown: true
- showLamp: false
- lampColor: (Color 100.0 100.0 0.0)
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'CCCommandBox3'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CC Command:'
- name: 'Label3'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField3'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: cc
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'CCOptionsBox4'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'CC Options:'
- name: 'Label4'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField4'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: ccOptions
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'IncludeDirectoriesBox5'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Include Directories:'
- name: 'Label5'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField5'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcIncludes
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'STCDefinesBox6'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Defines:'
- name: 'Label6'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField6'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcDefines
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'LinkCommandBox7'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Link Command:'
- name: 'Label7'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField7'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: linkCommand
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'LinkArgumentsBox8'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Link Arguments:'
- name: 'Label8'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField8'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: linkArgs
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'LinkSharedArgumentsBox1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Link Shared Arguments:'
- name: 'Label12'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField11'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: linkSharedArgs
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'CLibrariesBox9'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'C-Libraries:'
- name: 'Label9'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField9'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: canLoadBinaries
- model: stcLibraries
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'STCLibraryPathBox10'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Library Path:'
- name: 'Label10'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField10'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- enableChannel: enableStcLibraryPath
- model: stcLibraryPath
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'MakeCommandBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Make Command:'
- name: 'Label13'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'EntryField12'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- model: makeCommand
- acceptOnLeave: true
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: true
- )
- )
-
- )
- extent: (Point 600 30)
- )
- (ViewSpec
- name: 'SeparatingBox2'
- extent: (Point 600 12)
- )
- (ViewSpec
- name: 'SetupForBox'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Set above Options for:'
- name: 'Label16'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (PopUpListSpec
- name: 'PopUpList1'
- layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
- tabable: true
- model: supportedCCompilerSelection
- menu: supportedCCompilerList
- useIndex: true
- stateChangeCallBackSelector: supportedCCompilerSelectionChanged
- )
- )
-
- )
- extent: (Point 600 29)
- )
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Verbose (Trace Commands):'
- name: 'Label17'
- layout: (LayoutFrame 0 0 0 0 200 0 22 0)
- translateLabel: true
- adjust: right
- )
- (CheckToggleSpec
- name: 'CheckToggle2'
- layout: (LayoutOrigin 203 0 4 0)
- model: verbose
- isTriggerOnDown: true
- showLamp: false
- lampColor: (Color 100.0 100.0 0.0)
- )
- )
-
- )
- extent: (Point 600 30)
- )
- )
-
- )
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'STC Compiler Settings'
+ name: 'STC Compiler Settings'
+ flags: 1
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 600 602)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel2'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 0
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'SeparatingBox1'
+ extent: (Point 600 4)
+ )
+ (ViewSpec
+ name: 'InfoTextBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ name: 'Label14'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ translateLabel: true
+ labelChannel: helpText
+ adjust: left
+ )
+ )
+
+ )
+ extent: (Point 600 90)
+ )
+ (ViewSpec
+ name: 'STCCompilationBox11'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Compilation to Machine Code:'
+ name: 'Label11'
+ layout: (LayoutFrame 0 0 0 0 240 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (PopUpListSpec
+ label: 'PopUp List'
+ name: 'StcCompilation'
+ layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
+ tabable: true
+ model: stcCompilationSelection
+ enableChannel: canLoadBinaries
+ menu: stcCompilationList
+ useIndex: true
+ )
+ )
+
+ )
+ extent: (Point 600 29)
+ )
+ (ViewSpec
+ name: 'STCCommandBox1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Command:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stc
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'STCOptionsBox2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Options:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField2'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcOptions
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'KeepCIntermediateBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Keep Intermediate C File:'
+ name: 'Label15'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (CheckToggleSpec
+ name: 'CheckToggle1'
+ layout: (LayoutOrigin 203 0 4 0)
+ model: stcKeepCIntermediate
+ isTriggerOnDown: true
+ showLamp: false
+ lampColor: (Color 100.0 100.0 0.0)
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'CCCommandBox3'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'CC Command:'
+ name: 'Label3'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField3'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: cc
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'CCOptionsBox4'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'CC Options:'
+ name: 'Label4'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField4'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: ccOptions
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'IncludeDirectoriesBox5'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Include Directories:'
+ name: 'Label5'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField5'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcIncludes
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'STCDefinesBox6'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Defines:'
+ name: 'Label6'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField6'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcDefines
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'LinkCommandBox7'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Link Command:'
+ name: 'Label7'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField7'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: linkCommand
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'LinkArgumentsBox8'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Link Arguments:'
+ name: 'Label8'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField8'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: linkArgs
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'LinkSharedArgumentsBox1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Link Shared Arguments:'
+ name: 'Label12'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField11'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: linkSharedArgs
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'CLibrariesBox9'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'C-Libraries:'
+ name: 'Label9'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField9'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: canLoadBinaries
+ model: stcLibraries
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'STCLibraryPathBox10'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Library Path:'
+ name: 'Label10'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField10'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ enableChannel: enableStcLibraryPath
+ model: stcLibraryPath
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'MakeCommandBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Make Command:'
+ name: 'Label13'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'EntryField12'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ model: makeCommand
+ acceptOnLeave: true
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ (ViewSpec
+ name: 'SeparatingBox2'
+ extent: (Point 600 12)
+ )
+ (ViewSpec
+ name: 'SetupForBox'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Set above Options for:'
+ name: 'Label16'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (PopUpListSpec
+ name: 'PopUpList1'
+ layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
+ tabable: true
+ model: supportedCCompilerSelection
+ menu: supportedCCompilerList
+ useIndex: true
+ stateChangeCallBackSelector: supportedCCompilerSelectionChanged
+ )
+ )
+
+ )
+ extent: (Point 600 29)
+ )
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Verbose (Trace Commands):'
+ name: 'Label17'
+ layout: (LayoutFrame 0 0 0 0 200 0 22 0)
+ translateLabel: true
+ adjust: right
+ )
+ (CheckToggleSpec
+ name: 'CheckToggle2'
+ layout: (LayoutOrigin 203 0 4 0)
+ model: verbose
+ isTriggerOnDown: true
+ showLamp: false
+ lampColor: (Color 100.0 100.0 0.0)
+ )
+ )
+
+ )
+ extent: (Point 600 30)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
@@ -13634,16 +12439,16 @@
label: 'Code Format Settings'
name: 'Code Format Settings'
min: (Point 10 10)
- bounds: (Rectangle 0 0 604 676)
+ bounds: (Rectangle 0 0 613 685)
)
component:
(SpecCollection
collection: (
(VerticalPanelViewSpec
name: 'VerticalPanel3'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
horizontalLayout: fit
- verticalLayout: topSpace
+ verticalLayout: topSpaceFit
horizontalSpace: 3
verticalSpace: 3
component:
@@ -13680,7 +12485,7 @@
)
)
- extent: (Point 604 30)
+ extent: (Point 613 30)
)
(ViewSpec
name: 'Box11'
@@ -13704,7 +12509,7 @@
)
)
- extent: (Point 604 30)
+ extent: (Point 613 30)
)
(ViewSpec
name: 'Box15'
@@ -13728,7 +12533,7 @@
)
)
- extent: (Point 604 30)
+ extent: (Point 613 30)
)
(ViewSpec
name: 'Box12'
@@ -13752,7 +12557,7 @@
)
)
- extent: (Point 604 30)
+ extent: (Point 613 30)
)
(ViewSpec
name: 'Box13'
@@ -13779,7 +12584,7 @@
)
)
- extent: (Point 604 30)
+ extent: (Point 613 30)
)
(ViewSpec
name: 'Box16'
@@ -13806,7 +12611,7 @@
)
)
- extent: (Point 604 30)
+ extent: (Point 613 30)
)
(HorizontalPanelViewSpec
name: 'HorizontalPanel1'
@@ -13823,7 +12628,7 @@
translateLabel: true
tabable: true
model: resetToStxDefault
- extent: (Point 297 22)
+ extent: (Point 302 22)
)
(ActionButtonSpec
label: 'Reset to RefactoryBrowser Default'
@@ -13831,21 +12636,21 @@
translateLabel: true
tabable: true
model: resetToRBDefault
- extent: (Point 298 22)
+ extent: (Point 302 22)
)
)
)
- extent: (Point 604 30)
- )
- )
-
- )
- extent: (Point 604 180)
+ extent: (Point 613 30)
+ )
+ )
+
+ )
+ extent: (Point 613 180)
)
(ViewSpec
name: 'SpacingBox1'
- extent: (Point 604 10)
+ extent: (Point 613 10)
)
(ViewSpec
name: 'Box14'
@@ -13861,7 +12666,7 @@
)
(TextEditorSpec
name: 'TextEditor3'
- layout: (LayoutFrame 0 0 30 0 0 1 300 0)
+ layout: (LayoutFrame 0 0 30 0 0 1 0 1)
model: editorText
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
@@ -13872,23 +12677,19 @@
)
)
- extent: (Point 604 300)
- )
- (ViewSpec
- name: 'SpacingBox2'
- extent: (Point 604 10)
- )
- (CheckBoxSpec
- label: 'Auto Format'
- name: 'CheckBox2'
- model: autoFormat
- translateLabel: true
- extent: (Point 604 30)
+ extent: (Point 613 453)
)
)
)
)
+ (CheckBoxSpec
+ label: 'Auto Format'
+ name: 'CheckBox2'
+ layout: (LayoutFrame 3 0 -30 1 0 1 0 1)
+ model: autoFormat
+ translateLabel: true
+ )
)
)
@@ -14360,6 +13161,7 @@
(WindowSpec
label: 'Source Code Manager Settings'
name: 'Source Code Manager Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 660 639)
)
@@ -14533,7 +13335,7 @@
)
)
- extent: (Point 624 264)
+ extent: (Point 626 266)
)
)
@@ -15942,147 +14744,147 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'ViewStyle Selection'
- name: 'ViewStyle Selection'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 562 661)
- )
- component:
- (SpecCollection
- collection: (
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (TextEditorSpec
- name: 'TextEditor1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- style: (FontDescription arial medium roman 9)
- model: noticeLabelHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- isReadOnly: true
- hasKeyboardFocusInitially: false
- viewClassName: 'TextView'
- postBuildCallback: postBuildHelpLabel:
- )
- )
-
- )
- )
- (ViewSpec
- name: 'Box2'
- component:
- (SpecCollection
- collection: (
- (VerticalPanelViewSpec
- name: 'VerticalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fit
- verticalLayout: topFit
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'standard styles only'
- name: 'CheckBox1'
- model: showStandardStylesOnly
- translateLabel: true
- extent: (Point 562 35)
- )
- (SequenceViewSpec
- name: 'StyleList'
- model: selectedStyle
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- doubleClickSelector: doubleClickAt:
- useIndex: false
- sequenceList: styleList
- extent: (Point 562 353)
- )
- )
-
- )
- )
- )
-
- )
- )
- )
-
- )
- handles: (Any 0.37 1.0)
- )
- (ViewSpec
- name: 'Box3'
- layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Label'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- translateLabel: true
- labelChannel: infoLabelHolder
- resizeForLabel: true
- adjust: left
- )
- (CheckBoxSpec
- label: 'Preview'
- name: 'CheckBox2'
- layout: (LayoutFrame 417 0 9 0 553 0 31 0)
- model: previewVisibleHolder
- translateLabel: true
- )
- )
-
- )
- )
- (LabelSpec
- label: 'Preview'
- name: 'PreviewLabel'
- layout: (LayoutFrame 29 0 39 0 129 0 61 0)
- level: 0
- borderWidth: 1
- visibilityChannel: previewVisibleHolder
- backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)
- translateLabel: true
- )
- (NonScrollableArbitraryComponentSpec
- name: 'Preview'
- layout: (LayoutFrame 27 0 63 0 444 0 240 0)
- level: 1
- visibilityChannel: previewVisibleHolder
- hasBorder: false
- component: ImageView
- )
- (ActionButtonSpec
- label: 'closePreviewButtonImage'
- name: 'ClosePreviewButton'
- layout: (LayoutFrame 423 0 41 0 443 0 63 0)
- visibilityChannel: previewVisibleHolder
- hasCharacterOrientedLabel: false
- translateLabel: true
- model: closePreview
- )
- )
-
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'ViewStyle Selection'
+ name: 'ViewStyle Selection'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 562 661)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0 0 1.0 -35 1)
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (TextEditorSpec
+ name: 'TextEditor1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ style: (FontDescription arial medium roman 9)
+ model: noticeLabelHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ isReadOnly: true
+ hasKeyboardFocusInitially: false
+ viewClassName: 'TextView'
+ postBuildCallback: postBuildHelpLabel:
+ )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fit
+ verticalLayout: topFit
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'standard styles only'
+ name: 'CheckBox1'
+ model: showStandardStylesOnly
+ translateLabel: true
+ extent: (Point 562 35)
+ )
+ (SequenceViewSpec
+ name: 'StyleList'
+ model: selectedStyle
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ doubleClickSelector: doubleClickAt:
+ useIndex: false
+ sequenceList: styleList
+ extent: (Point 562 353)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ handles: (Any 0.37 1.0)
+ )
+ (ViewSpec
+ name: 'Box3'
+ layout: (LayoutFrame 0 0 -35 1 0 1 0 1)
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Label'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ translateLabel: true
+ labelChannel: infoLabelHolder
+ resizeForLabel: true
+ adjust: left
+ )
+ (CheckBoxSpec
+ label: 'Preview'
+ name: 'CheckBox2'
+ layout: (AlignmentOrigin 0 1 17 0 1 0.5)
+ model: previewVisibleHolder
+ translateLabel: true
+ )
+ )
+
+ )
+ )
+ (LabelSpec
+ label: 'Preview'
+ name: 'PreviewLabel'
+ layout: (LayoutFrame 29 0 39 0 129 0 61 0)
+ level: 0
+ borderWidth: 1
+ visibilityChannel: previewVisibleHolder
+ backgroundColor: (Color 86.9993133440147 86.9993133440147 86.9993133440147)
+ translateLabel: true
+ )
+ (NonScrollableArbitraryComponentSpec
+ name: 'Preview'
+ layout: (LayoutFrame 27 0 63 0 444 0 240 0)
+ level: 1
+ visibilityChannel: previewVisibleHolder
+ hasBorder: false
+ component: ImageView
+ )
+ (ActionButtonSpec
+ label: 'closePreviewButtonImage'
+ name: 'ClosePreviewButton'
+ layout: (LayoutFrame 423 0 41 0 443 0 63 0)
+ visibilityChannel: previewVisibleHolder
+ hasCharacterOrientedLabel: false
+ translateLabel: true
+ model: closePreview
+ )
+ )
+
+ )
+ )
! !
!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
@@ -17092,6 +15894,7 @@
(WindowSpec
label: 'Tool Settings'
name: 'Tool Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 618 511)
)
@@ -17132,7 +15935,7 @@
activeHelpKey: useEmbeddedTestRunner
model: showEmbeddedTestRunnerInBrowser
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
@@ -17149,7 +15952,7 @@
activeHelpKey: showBookmarksBar
model: showBookmarkBar
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Sort and Indent Classes by Inheritance'
@@ -17157,7 +15960,7 @@
activeHelpKey: sortAndIndentClassesByInheritance
model: sortAndIndentClassesByInheritance
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Show Local Navigation History (Separate History per Browser Tab)'
@@ -17165,7 +15968,7 @@
activeHelpKey: showLocalHistory
model: showLocalHistory
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Show Global Navigation History (Global History for all Browsers)'
@@ -17173,7 +15976,7 @@
activeHelpKey: showGlobalHistory
model: showGlobalHistory
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Show Search Bar in Browser'
@@ -17181,7 +15984,7 @@
activeHelpKey: searchBarInBrowser
model: useSearchBarInBrowser
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Use in-place Search in Browser Lists (experimental)'
@@ -17189,7 +15992,7 @@
activeHelpKey: inPlaceSearch
model: useInPlaceSearchInBrowserLists
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(CheckBoxSpec
label: 'Show Method Template'
@@ -17197,7 +16000,7 @@
activeHelpKey: showMethodTemplate
model: showMethodTemplate
translateLabel: true
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
)
@@ -17206,7 +16009,7 @@
)
)
- extent: (Point 607 303)
+ extent: (Point 607 293)
usePreferredHeight: true
useDynamicPreferredHeight: true
)
@@ -17236,7 +16039,7 @@
model: sourceCodeManagementMenuLayout
isTriggerOnDown: true
select: 'old'
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(RadioButtonSpec
label: 'Inline'
@@ -17246,7 +16049,7 @@
model: sourceCodeManagementMenuLayout
isTriggerOnDown: true
select: 'inline'
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
(RadioButtonSpec
label: 'Compact'
@@ -17256,7 +16059,7 @@
model: sourceCodeManagementMenuLayout
isTriggerOnDown: true
select: 'compact'
- extent: (Point 574 30)
+ extent: (Point 584 30)
)
)
@@ -17594,6 +16397,7 @@
(WindowSpec
label: 'Messages Settings'
name: 'Messages Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 574 602)
)
@@ -18721,6 +17525,7 @@
(WindowSpec
label: 'Tool Settings'
name: 'Tool Settings'
+ flags: 1
min: (Point 10 10)
bounds: (Rectangle 0 0 594 584)
)
@@ -18849,7 +17654,7 @@
acceptOnTab: true
acceptOnLostFocus: true
acceptOnPointerLeave: true
- extent: (Point 453 30)
+ extent: (Point 480 30)
)
)
@@ -19270,10 +18075,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.534 2014-05-06 16:06:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.535 2014-05-07 16:07:25 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.534 2014-05-06 16:06:42 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.535 2014-05-07 16:07:25 cg Exp $'
+! !
+