# HG changeset patch # User Claus Gittinger # Date 1399478845 -7200 # Node ID d559509527ed7139a785bc164c26821f9fe10db4 # Parent a84b4a0c15cacfde4a8dbb5bf5c7ad896f8b0bbe class: AbstractSettingsApplication scrollability fix in many sub-specs diff -r a84b4a0c15ca -r d559509527ed AbstractSettingsApplication.st --- 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 " ! ! !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 - " - - - - ^ 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 - - - ^ 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 - " - - - - ^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=>@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 - " - - - - ^ - #(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 " - "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 " - "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 " -! - -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 " -! - -linuxFontWorkaroundVisible - - ^OperatingSystem getOSType == #linux - - "Created: / 10-10-2011 / 12:57:51 / Jan Vrany " -! - -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 " -! - -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 @@ ^ - #(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 @@ ^ - #(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 @@ ^ - #(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 @@ ^ - #(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 $' +! ! +