--- a/AbstractSettingsApplication.st Sat Feb 11 19:32:35 2012 +0000
+++ b/AbstractSettingsApplication.st Sat Feb 11 22:16:34 2012 +0000
@@ -339,6 +339,13 @@
privateIn:AbstractSettingsApplication
!
+AbstractSettingsApplication subclass:#ToolboxSettingsAppl
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:AbstractSettingsApplication
+!
+
AbstractSettingsApplication subclass:#ToolsSettingsAppl
instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
showClockInLauncher useNewChangesBrowser useNewFileBrowser
@@ -16055,6 +16062,243 @@
"Modified: / 10-11-2010 / 12:08:25 / cg"
! !
+!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
+
+defaultIcon
+ "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 defaultIcon inspect
+ ImageEditor openOnClass:self andSelector:#defaultIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'AbstractSettingsApplication::ToolboxSettingsAppl class defaultIcon'
+ ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
+@PDJB (JB (JB (JB (JB (JB (JB DA@P(B@ HB@ HB@ HB@ HB@ HB@ HB@ (AB HB@ HB@ HB@ XFA (B@ HB@ HB@ HJB HB@ HB@ HB@ DA@PDJA HB
+@ HB@ HJB HB@ HB@ HBB DB@PDA@PXB@ HB@ HJB HB@ HB@ HB@@DB@ HB@PXB@ HB@ HJB HBA XFA XIB@ GA0XFA ,FA XF@ HJB HFAPTEAPTEAPLC
+@0LC@0LC@0LCA HJB HEAPTEAPTEAPLC@0LCA XC@0LC@0HJB HEAPTEAPTEAPLC@0LC@PDH@0LC@0HJB HFAPTEAPTEAPLC@0LC@PDG@0LCA HJB HFAPTE
+APTEAPLC@0LC@PDH@0LCA HJB HFAPTEAPTEAPLC@0LCA HC@0LCA HJB HFAPTEAPTEAPLC@0LC@0LC@0LCA HJB HFAPTEAPTEAPLC@0LC@0LC@0LCA HJ
+B HFAPTEAPTEAPLC@0LC@0LC@0LCA HJB HFAPTEAPTEAPLC@0LC@0LC@0LCA HJB HFAPTEAPTEAPLC@0LC@0LC@0XF@ HJB HBA0TEAPTEAPLC@0LCB@XF
+@ HB@ HJB HB@ HKA XI@0LGA ,B@ HB@ HB@ HJB HB@ HB@ HBA@PB@ HB@ HB@ HB@ HJB HB@ HB@ HB@ HB@ HB@ HB@ HB@ HJ@P(B@ HB@ HB@ HB
+@ HB@ HB@ HB@ (A@PDJB (JB (JB (JB (JB (JB (JB DA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[107 107 107 253 252 252 180 180 180 254 102 102 154 154 154 255 0 0 46 49 49 98 53 53 171 80 80 155 25 25 128 128 128 73 74 74]; yourself]
+! !
+
+!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
+
+developmentToolsSpec
+ "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::ToolboxSettingsAppl andSelector:#developmentToolsSpec
+ AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: developmentToolsSpec
+ window:
+ (WindowSpec
+ label: 'NewApplication'
+ name: 'NewApplication'
+ bounds: (Rectangle 0 0 550 465)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VerticalPanelViewSpec
+ name: 'VerticalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: top
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'ChengeSetBrowser'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Changes Browser'
+ name: 'ChangeSetBrowserLabel'
+ layout: (LayoutFrame 0 0 0 0 200 0 30 0)
+ translateLabel: true
+ adjust: left
+ )
+ (RadioButtonSpec
+ label: 'Standard'
+ name: 'ChangeSetBrowserClassic'
+ layout: (LayoutFrame 200 0 0 0 0 1 30 0)
+ translateLabel: true
+ model: changesBrowserType
+ isTriggerOnDown: true
+ select: ChangesBrowser
+ )
+ (RadioButtonSpec
+ label: 'New (experimental)'
+ name: 'ChangesBrowserNew'
+ layout: (LayoutFrame 200 0 30 0 0 1 60 0)
+ translateLabel: true
+ model: changesBrowserType
+ isTriggerOnDown: true
+ select: #'Tools::ChangeSetBrowser2'
+ )
+ (RadioButtonSpec
+ label: 'Custom'
+ name: 'RadioButton1'
+ layout: (LayoutFrame 200 0 60 0 0 1 90 0)
+ translateLabel: true
+ model: changesBrowserType
+ isTriggerOnDown: true
+ select: #'__Custom__'
+ )
+ (InputFieldSpec
+ name: 'EntryField1'
+ layout: (LayoutFrame 220 0 91 0 0 1 116 0)
+ model: changesBrowserClassName
+ type: symbolOrNil
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnPointerLeave: true
+ )
+ )
+
+ )
+ extent: (Point 550 120)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+!
+
+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::ToolboxSettingsAppl andSelector:#windowSpec
+ AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#windowSpec
+ AbstractSettingsApplication::ToolboxSettingsAppl open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'NewApplication'
+ name: 'NewApplication'
+ bounds: (Rectangle 0 0 551 561)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (NoteBookViewSpec
+ name: 'NoteBook'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ menu: notebookTabList
+ )
+ )
+
+ )
+ )
+! !
+
+!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
+
+notebookTabList
+ "This resource specification was automatically generated
+ by the TabListEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the TabListEditor may not be able to read the specification."
+
+ "
+ TabListEditor new openOnClass: self andSelector:#notebookTabList
+ "
+
+ <resource: #tabList>
+
+ ^ #(
+ (TabItem
+ label: 'Development Tools'
+ minorKey: developmentToolsSpec
+ createNewBuilder: false
+ )
+ )
+
+ collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ]
+! !
+
+!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
+
+notebookTabList
+ "Generated by the TabListEditor"
+
+ |list|
+
+ (list := builder bindingAt:#notebookTabList) isNil ifTrue:[
+ builder aspectAt:#notebookTabList put:(list := self class notebookTabList).
+ ].
+ ^ list
+! !
+
+!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
+
+basicReadSettings
+ "superclass AbstractSettingsApplication says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+basicSaveSettings
+ "superclass AbstractSettingsApplication says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+!
+
+helpFilename
+ "subclasses must return the relative name of a helpFile
+ in the doc/online/<language>/help directory.
+ Or nil, if no help is available."
+
+ ^ self shouldImplement
+! !
+
+!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'queries'!
+
+hasUnsavedChanges
+ "superclass AbstractSettingsApplication says that I am responsible to implement this method"
+
+ ^ self shouldImplement
+! !
+
!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
flyByHelpSpec
@@ -16622,7 +16866,7 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Id: AbstractSettingsApplication.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Id: AbstractSettingsApplication.st 7881 2012-02-11 22:16:34Z vranyj1 $'
!
version_CVS
@@ -16630,5 +16874,5 @@
!
version_SVN
- ^ '$Id: AbstractSettingsApplication.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
+ ^ '$Id: AbstractSettingsApplication.st 7881 2012-02-11 22:16:34Z vranyj1 $'
+! !