hg/stx-libtool: comparison AbstractSettingsApplication.st

equal deleted inserted replaced

-:f9f20407fbf9
+:c4cce8b7a95d
 		showMethodTemplate useCodeView2InTools
 		showEmbeddedTestRunnerInBrowser showBookmarkBar
 		webBrowserLikeLayout sortAndIndentClassesByInheritance
 		showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
 		sourceCodeManagementMenuLayout confirmRefactorings
-		smallLintRulesetDefault'
+		smallLintRulesetDefault showMarqueeInfo'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
 !
 AbstractSettingsApplication new openInterface:#windowSpecForDialog
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpecForDialog
 window:
 (WindowSpec
 label: 'NewApplication'
 name: 'NewApplication'
 labelChannel: settingsString
 min: (Point 10 10)
 bounds: (Rectangle 0 0 531 488)
 )
 component:
 (SpecCollection
 collection: (
 (SubCanvasSpec
 name: 'Content'
 layout: (LayoutFrame 7 0 0 0 -7 1 -40 1)
 horizontalLayout: right
 verticalLayout: center
 horizontalSpace: 3
 verticalSpace: 3
 reverseOrderIfOKAtLeft: true
 component:
 (SpecCollection
 collection: (
 (ActionButtonSpec
 label: 'Cancel'
 name: 'CancelButton'
 isDefault: true
 defaultable: true
 extent: (Point 159 25)
 )
 )
 )
+keepSpaceForOSXResizeHandleH: true
 )
 )
 )
 )
 ! !
 !AbstractSettingsApplication class methodsFor:'queries'!
 packageChooser listOfSelectedItems value:(UserPreferences current autoloadedPackages).
 ].
 !
 basicSaveSettings
 UserPreferences current
-autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each | each asStirng string]).
+autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each | each asString string]).
 ! !
 !AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'aspects'!
 aspects
 AbstractSettingsApplication::DisplaySettingsAppl open
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
 label: 'Display Screen Settings'
 name: 'Display Screen Settings'
 flags: 1
 min: (Point 10 10)
 bounds: (Rectangle 0 0 604 500)
 )
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Actual Visible Screen Area:'
 name: 'ActualVisibleScreenAreaLabel'
 adjust: left
 )
 (LabelSpec
 label: 'Common Sizes:'
 name: 'CommonSizesLabel'
-layout: (LayoutFrame 5 0 39 0 227 0 69 0)
+layout: (LayoutFrame 0 0 39 0 277 0 69 0)
 translateLabel: true
 adjust: right
 )
 (PopUpListSpec
 label: 'monitor size'
 name: 'MonitorSelectionPopUpList'
-layout: (LayoutFrame 230 0 39 0 -5 1 69 0)
+layout: (LayoutFrame 280 0 39 0 -5 1 69 0)
+translateLabel: true
 tabable: true
 model: monitorSelection
 menu: monitorList
 useIndex: true
 )
 (LabelSpec
 label: 'Screen Size:'
 name: 'ScreenSizeLabel'
-layout: (LayoutFrame 5 0 72 0 227 0 102 0)
+layout: (LayoutFrame 5 0 73 0 277 0 103 0)
 translateLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'SizeXEntryField'
-layout: (LayoutFrame 230 0 72 0 297 0 102 0)
+layout: (LayoutFrame 280 0 72 0 347 0 102 0)
 model: sizeX
 type: number
 immediateAccept: true
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 )
 (LabelSpec
 label: ' x '
 name: 'xLabel'
-layout: (LayoutFrame 298 0 72 0 319 0 102 0)
+layout: (LayoutFrame 348 0 72 0 369 0 102 0)
 translateLabel: true
 )
 (InputFieldSpec
 name: 'SizeYEntryField'
-layout: (LayoutFrame 320 0 72 0 387 0 102 0)
+layout: (LayoutFrame 370 0 72 0 437 0 102 0)
 model: sizeY
 type: number
 immediateAccept: true
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 )
 (LabelSpec
 label: '(mm)'
 name: 'mmLabel'
-layout: (LayoutFrame 399 0 72 0 445 0 102 0)
+layout: (LayoutFrame 439 0 72 0 485 0 102 0)
 translateLabel: true
 adjust: left
 )
 (LabelSpec
 label: 'Limit Usable Area To:'
 name: 'Label1'
-layout: (LayoutFrame 5 0 110 0 227 0 140 0)
+layout: (LayoutFrame 5 0 110 0 277 0 140 0)
 translateLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'EntryField1'
-layout: (LayoutFrame 230 0 110 0 297 0 140 0)
+layout: (LayoutFrame 280 0 110 0 347 0 140 0)
 model: usedWidth
 type: number
 immediateAccept: true
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 )
 (LabelSpec
 label: ' x '
 name: 'Label2'
-layout: (LayoutFrame 298 0 110 0 319 0 140 0)
+layout: (LayoutFrame 348 0 110 0 369 0 140 0)
 translateLabel: true
 )
 (InputFieldSpec
 name: 'EntryField2'
-layout: (LayoutFrame 320 0 110 0 387 0 140 0)
+layout: (LayoutFrame 370 0 110 0 437 0 140 0)
 model: usedHeight
 type: number
 immediateAccept: true
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 )
 (LabelSpec
 label: '(Pixel)'
 name: 'Label3'
-layout: (LayoutFrame 399 0 110 0 445 0 140 0)
+layout: (LayoutFrame 439 0 110 0 507 0 140 0)
 translateLabel: true
 adjust: left
 )
 (ActionButtonSpec
 label: 'Restore'
 name: 'Button1'
-layout: (AlignmentOrigin 462 0 126 0 0 0.5)
+layout: (AlignmentOrigin 512 0 124 0 0 0.5)
+translateLabel: true
 model: restoreUsableExtent
 )
 (DividerSpec
 name: 'Separator1'
 layout: (LayoutFrame 0 0.0 143 0 0 1.0 147 0)
 )
 (PopUpListSpec
 label: 'image display'
 name: 'DitherListPopUpList'
 layout: (LayoutFrame 230 0 294 0 -30 1 324 0)
+translateLabel: true
 tabable: true
 model: ditherListSelection
 enableChannel: ditherSymsNotNil
 menu: ditherList
 useIndex: true
 layout: (LayoutFrame 0 0.0 368 0 0 1.0 372 0)
 )
 (LabelSpec
 label: 'ClipBoard Encoding:'
 name: 'ClipBoardEncodingLabel'
-layout: (LayoutFrame 4 0 383 0 274 0 413 0)
+layout: (LayoutFrame 0 0 383 0 277 0 413 0)
 translateLabel: true
 adjust: right
 )
 (PopUpListSpec
 label: 'image display'
 name: 'ClipEncodingListPopUpList'
-layout: (LayoutFrame 275 0 383 0 -30 1 413 0)
+layout: (LayoutFrame 278 0 383 0 -30 1 413 0)
+translateLabel: true
 tabable: true
 model: clipEncodingListSelection
 menu: clipEncodingList
 useIndex: true
 )
 (LabelSpec
 label: 'Max. CopyBuffer Size:'
 name: 'MaxCopyBufferSizeLabel'
-layout: (LayoutFrame 4 0 418 0 274 0 448 0)
+layout: (LayoutFrame 0 0 418 0 277 0 448 0)
 translateLabel: true
 adjust: right
 )
 (InputFieldSpec
 name: 'MaxCopyBufferEntryField'
-layout: (LayoutFrame 275 0 418 0 370 0 448 0)
+layout: (LayoutFrame 278 0 418 0 373 0 448 0)
 model: maxCopyBufferSize
 type: fileSize
 immediateAccept: true
 acceptOnReturn: true
 acceptOnTab: true
 )
 (CheckBoxSpec
 label: 'Enable VMWare Drawing Bug Workaround (Limit Number of Buffered Operations)'
 name: 'CheckBox1'
 layout: (LayoutFrame 5 0 464 0 0 1 486 0)
+activeHelpKey: enableVMWareDrawingBugWorkaround
 model: enableVMWareDrawingBugWorkaround
-activeHelpKey: enableVMWareDrawingBugWorkaround
 translateLabel: true
 )
 )
 )
 )
-"Modified: / 24-06-2014 / 19:40:09 / cg"
 ! !
 !AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
 basicReadSettings
 AbstractSettingsApplication::PrinterSettingsAppl open
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
 label: 'Printer Settings'
 name: 'Printer Settings'
 flags: 1
 min: (Point 10 10)
-bounds: (Rectangle 0 0 614 458)
+bounds: (Rectangle 0 0 601 474)
 )
 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: (
 (ViewSpec
 name: 'PrinterSelectBox'
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Printer Type:'
 name: 'PrinterTypeLabel'
 acceptOnLeave: true
 acceptOnLostFocus: true
 acceptOnPointerLeave: false
 )
 )
 )
-extent: (Point 614 108)
+extent: (Point 601 108)
 )
 (ViewSpec
 name: 'FormatBox'
 visibilityChannel: supportsPageFormatSetting
 component:
 (SpecCollection
 collection: (
 (DividerSpec
 name: 'Separator1'
 layout: (LayoutFrame 0 0 4 0 0 1 7 0)
 )
 (PopUpListSpec
 label: 'PopUp List'
 name: 'PageFormatPopUpList'
 layout: (LayoutFrame 183 0 11 0 333 0 41 0)
+translateLabel: true
 tabable: true
 model: pageFormat
 enableChannel: enableFormat
 menu: pageFormatList
 )
 enableChannel: enablelandscape
 model: landscape
 translateLabel: true
 )
 )
 )
-extent: (Point 614 43)
+extent: (Point 601 43)
 )
 (ViewSpec
 name: 'MarginBox'
 visibilityChannel: supportsMarginSetting
 component:
 (SpecCollection
 collection: (
 (DividerSpec
 name: 'Separator5'
 layout: (LayoutFrame 0 0 0 0 0 1 3 0)
 )
 (VerticalPanelViewSpec
 name: 'VerticalPanel2'
-layout: (LayoutFrame 0 0.0 4 0.0 0 1.0 4 1.0)
+layout: (LayoutFrame 0 0.0 9 0.0 0 1.0 -16 1.0)
 horizontalLayout: fit
 verticalLayout: top
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'Box1'
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Top Margin:'
 name: 'TopMarginLabel'
 )
 (PopUpListSpec
 label: 'PopUp List'
 name: 'PopUpList2'
 layout: (LayoutFrame -155 1 0 0 -5 1 30 0)
+translateLabel: true
 tabable: true
 model: selectedUnit
 menu: unitList
 useIndex: true
 )
 )
 )
-extent: (Point 614 30)
+extent: (Point 601 32)
 )
 (ViewSpec
 name: 'Box2'
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Left Margin:'
 name: 'LeftMarginLabel'
 acceptOnTab: true
 acceptOnLostFocus: true
 acceptOnPointerLeave: true
 )
 )
 )
-extent: (Point 614 30)
+extent: (Point 601 32)
 )
 (ViewSpec
 name: 'Box3'
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Right Margin:'
 name: 'RightMarginLabel'
 acceptOnTab: true
 acceptOnLostFocus: true
 acceptOnPointerLeave: true
 )
 )
 )
-extent: (Point 614 30)
+extent: (Point 601 32)
 )
 (ViewSpec
 name: 'Box4'
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Bottom Margin:'
 name: 'BottomMarginLabel'
 acceptOnTab: true
 acceptOnLostFocus: true
 acceptOnPointerLeave: true
 )
 )
 )
-extent: (Point 614 30)
+extent: (Point 601 32)
 )
 )
 )
 )
 )
 )
-extent: (Point 614 143)
+extent: (Point 601 164)
 )
 (ViewSpec
 name: 'ColorBox'
 visibilityChannel: supportsColorSetting
 component:
 (SpecCollection
 collection: (
 (DividerSpec
 name: 'Separator6'
 layout: (LayoutFrame 0 0 0 0 0 1 3 0)
 enableChannel: enableColorBox
 model: supportsColor
 translateLabel: true
 )
 )
 )
-extent: (Point 614 34)
+extent: (Point 601 34)
 )
 )
 )
 )
 )
 )
 )
 ! !
 !AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
-(CheckBoxSpec
+(ViewSpec
-label: 'standard styles only'
+name: 'Box4'
-name: 'CheckBox1'
+component:
-model: showStandardStylesOnly
+(SpecCollection
-translateLabel: true
+collection: (
+(CheckBoxSpec
+label: 'standard styles only'
+name: 'CheckBox1'
+layout: (LayoutFrame 0 0 0 0 -150 1 0 1)
+model: showStandardStylesOnly
+translateLabel: true
+)
+(CheckBoxSpec
+label: 'Preview'
+name: 'CheckBox2'
+layout: (AlignmentOrigin 0 1 17 0 1 0.5)
+model: previewVisibleHolder
+translateLabel: true
+)
+)
+)
 extent: (Point 562 35)
 )
 (SequenceViewSpec
 name: 'StyleList'
 model: selectedStyle
 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
 )
 )
 )
 )
 !
 previewVisibleHolder
 previewVisibleHolder isNil ifTrue:[
-previewVisibleHolder := ValueHolder new.
+previewVisibleHolder := false asValue.
 previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
 ].
 ^ previewVisibleHolder.
 !
 self infoLabelHolder value:comment.
 self previewVisibleHolder value ifTrue:[
 self builder notNil ifTrue:[
 labelView := self componentAt:#PreviewLabel.
-labelView label:'Sorry - no preview available'.
 imgView := (self componentAt:#Preview).
-imgView image:nil.
 previewFile notEmptyOrNil ifTrue:[
 previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
-previewImage notNil ifTrue:[
+].
-labelView label:'Preview'.
+previewImage notNil ifTrue:[
-imgView adjust:#fitBig; image:previewImage.
+labelView label:'Preview'.
-]
+imgView adjust:#fitBig; image:previewImage.
+] ifFalse:[
+labelView label:'Sorry - no preview available'.
+imgView image:nil.
 ].
 labelView forceResizeHorizontally.
 ]
 ]
 !
 !AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
 commonPostBuild
 super commonPostBuild.
 self changeInfoLabel
-!
-commonPostBuildWith:aBuilder
-super commonPostBuildWith:aBuilder.
 !
 initialize
 |someRsrcFile resourceDir|
 'Show a toolbar button to navigate the global visited classes history'
 #showLocalHistory
 'Show a toolbar button to navigate the local (per browser) visited classes history'
+#showMarqueeInfo
+'Scroll multipline info texts in the low info area.\If off, multiline infos are suppressed and no automatic scrolling is done (better for VM/remote desktops)'
 #showMethodTemplate
 'Show a method code template when no method is selected'
 #sortAndIndentClassesByInheritance
 'Sort and indent classes by inheritance within a category (as opposed to sorting by name)'
 AbstractSettingsApplication::SystemBrowserSettingsAppl open
 "
 <resource: #canvas>
 ^
 #(FullSpec
 name: windowSpec
 window:
 (WindowSpec
 label: 'System Browser Settings'
 name: 'System Browser Settings'
 flags: 1
 min: (Point 10 10)
-bounds: (Rectangle 0 0 617 659)
+bounds: (Rectangle 0 0 569 590)
 )
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
 name: 'SettingsPanel'
 layout: (LayoutFrame 0 0 0 0 0 1 0 1)
 horizontalLayout: fit
 verticalLayout: top
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (FramedBoxSpec
 label: 'Settings'
 name: 'ToolsSettingsPanel'
 labelPosition: topLeft
 translateLabel: true
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
 name: 'ToolSettingsVPanel'
 layout: (LayoutFrame 0 0 0 0 0 1 0 1)
 horizontalLayout: fit
 verticalLayout: top
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (CheckBoxSpec
 label: 'Use the Embedded Test Runner'
 name: 'UseEmbeddedTestRunner'
 activeHelpKey: useEmbeddedTestRunner
 model: showEmbeddedTestRunnerInBrowser
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
 name: 'CheckBox1'
 activeHelpKey: webBrowserLikeLayout
 label: 'Show Bookmarks Bar'
 name: 'ShowBookmarksBar'
 activeHelpKey: showBookmarksBar
 model: showBookmarkBar
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Sort and Indent Classes by Inheritance'
 name: 'SortAndIndentClassesByInheritance'
 activeHelpKey: sortAndIndentClassesByInheritance
 model: sortAndIndentClassesByInheritance
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Show Local Navigation History (Separate History per Browser Tab)'
 name: 'CheckBox2'
 activeHelpKey: showLocalHistory
 model: showLocalHistory
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Show Global Navigation History (Global History for all Browsers)'
 name: 'CheckBox3'
 activeHelpKey: showGlobalHistory
 model: showGlobalHistory
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Show Search Bar in Browser'
 name: 'ShowSearchBarInBrowser'
 activeHelpKey: searchBarInBrowser
 model: useSearchBarInBrowser
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Use in-place Search in Browser Lists (experimental)'
 name: 'CheckBox4'
 activeHelpKey: inPlaceSearch
 model: useInPlaceSearchInBrowserLists
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (CheckBoxSpec
 label: 'Show Method Template'
 name: 'MethodTemplate'
 activeHelpKey: showMethodTemplate
 model: showMethodTemplate
 translateLabel: true
-extent: (Point 583 30)
+extent: (Point 533 30)
+)
+(CheckBoxSpec
+label: 'Marquee Info'
+name: 'CheckBox5'
+activeHelpKey: showMarqueeInfo
+model: showMarqueeInfo
+translateLabel: true
+extent: (Point 533 30)
 )
 )
 )
 )
 )
 )
-extent: (Point 607 308)
+extent: (Point 569 333)
-useDynamicPreferredHeight: true
-usePreferredHeight: true
 )
 (FramedBoxSpec
 label: 'Sourcecode Management Menu Layout'
 name: 'MenuLayoutPanel'
 labelPosition: topLeft
 translateLabel: true
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
-name: 'MenyLayoutVPanel'
+name: 'MenuLayoutVPanel'
-layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+layout: (LayoutFrame 0 0 5 0 0 1 0 1)
 horizontalLayout: fit
 verticalLayout: top
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (RadioButtonSpec
 label: 'Old'
 name: 'SCMMenuLayoutOld'
 activeHelpKey: oldSCMMenuLayout
 translateLabel: true
 model: sourceCodeManagementMenuLayout
 isTriggerOnDown: true
 select: 'old'
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (RadioButtonSpec
 label: 'Inline'
 name: 'SCMMenuLayoutInline'
 activeHelpKey: inlineSCMLayout
 translateLabel: true
 model: sourceCodeManagementMenuLayout
 isTriggerOnDown: true
 select: 'inline'
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 (RadioButtonSpec
 label: 'Compact'
 name: 'SCMMenuLayoutCompact'
 activeHelpKey: compactSCMLayout
 translateLabel: true
 model: sourceCodeManagementMenuLayout
 isTriggerOnDown: true
 select: 'compact'
-extent: (Point 583 30)
+extent: (Point 533 30)
 )
 )
 )
 )
 )
 )
-extent: (Point 617 143)
+extent: (Point 569 135)
-useDynamicPreferredHeight: true
-usePreferredHeight: true
 )
 (FramedBoxSpec
 label: 'Static Analysis (Lint)'
 name: 'LintPanel'
 labelPosition: topLeft
 translateLabel: true
 component:
 (SpecCollection
 collection: (
 (VerticalPanelViewSpec
 name: 'LintPanelContent'
 layout: (LayoutFrame 0 0 0 0 0 1 53 0)
 horizontalLayout: fit
 verticalLayout: top
 horizontalSpace: 3
 verticalSpace: 3
 component:
 (SpecCollection
 collection: (
 (ViewSpec
 name: 'DefaultRulesetBox'
 component:
 (SpecCollection
 collection: (
 (LabelSpec
 label: 'Default Rules:'
 name: 'DefaultRulesetLabel'
-layout: (LayoutFrame 0 0 0 0 120 0 0 1)
+layout: (LayoutFrame 0 0 0 0 138 0 0 1)
 translateLabel: true
 adjust: left
 )
 (InputFieldSpec
 name: 'DefaultRuleset'
-layout: (LayoutFrame 120 0 0 0 -70 1 0 1)
+layout: (LayoutFrame 144 0 0 0 -100 1 0 1)
 model: smallLintRulesetDefault
 isReadOnly: true
 acceptOnReturn: true
 acceptOnTab: true
 converter: smallLintRulesetDefaultAdaptor
 emptyFieldReplacementText: 'Default'
 )
 (ActionButtonSpec
 label: 'Select'
 name: 'DefaultRulesetSelectButton'
-layout: (LayoutFrame -70 1 0 0 0 1 0 1)
+layout: (LayoutFrame -100 1 0 0 0 1 0 1)
 translateLabel: true
 model: doSelectDefaultRuleset
 )
 )
 )
-extent: (Point 583 25)
+extent: (Point 533 25)
 )
 (ViewSpec
 name: 'Box1'
 component:
 (SpecCollection
 collection: (
 (LinkButtonSpec
 label: 'Configure Rule Sets...'
 name: 'Button1'
-layout: (LayoutFrame -150 1 -20 1 0 1 0 1)
+layout: (LayoutFrame -200 1 -20 1 0 1 0 1)
 foregroundColor: (Color 0.0 0.0 100.0)
 translateLabel: true
 adjust: right
 model: doConfigureRulesets
 )
 )
 )
-extent: (Point 583 25)
+extent: (Point 533 25)
 )
 )
 )
 useDynamicPreferredHeight: true
 usePreferredHeight: true
 )
 )
 )
-extent: (Point 617 100)
+extent: (Point 569 92)
-useDynamicPreferredHeight: true
-usePreferredHeight: true
 )
 )
 )
 )
 )
 )
 )
 ! !
 !AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
 showLocalHistory
 useInPlaceSearchInBrowserLists
 sourceCodeManagementMenuLayout
 confirmRefactorings
 smallLintRulesetDefault
+showMarqueeInfo
 )
 "Created: / 25-11-2011 / 15:09:28 / cg"
 "Modified: / 14-10-2014 / 08:19:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 showLocalHistory onChangeSend:#updateModifiedChannel to:self
 ].
 ^ showLocalHistory.
 "Created: / 07-07-2011 / 00:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+showMarqueeInfo
+showMarqueeInfo isNil ifTrue:[
+showMarqueeInfo := true asValue.
+showMarqueeInfo onChangeSend:#updateModifiedChannel to:self
+].
+^ showMarqueeInfo.
 !
 showMethodTemplate
 "return/create the 'showMethodTemplate' value holder (automatically generated)"
 !AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
 defaultIcon
 <resource: #programImage>
+OperatingSystem isUNIXlike ifTrue:[
+^ ToolbarIconLibrary unixShellTerminal22x22Icon
+].
 ^ ToolbarIconLibrary terminal16x16Icon
 ! !
 !AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!

branch	jv
changeset 17134	c4cce8b7a95d
parent 17133	f9f20407fbf9
parent 16972	8cbd6ed75e2e
child 17136	cb908d2ba02e