--- a/SettingsDialog.st Tue Feb 07 12:43:56 2012 +0000
+++ b/SettingsDialog.st Wed Feb 08 16:19:08 2012 +0000
@@ -1584,6 +1584,63 @@
^ self applicationClass isNil
! !
+!SettingsDialog::SettingsFilenameAppl 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:SettingsDialog::SettingsFilenameAppl andSelector:#windowSpec
+ SettingsDialog::SettingsFilenameAppl new openInterface:#windowSpec
+ SettingsDialog::SettingsFilenameAppl open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Settings File'
+ name: 'Settings File'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 300 300)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Preferences are stored in file:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 -30 0.5 0 1 0 0.5)
+ translateLabel: true
+ )
+ (LinkButtonSpec
+ label: 'LinkButton'
+ name: 'EditPreferences'
+ layout: (LayoutFrame 0 0 0 0.5 0 1 30 0.5)
+ foregroundColor: (Color 0.0 0.0 100.0)
+ translateLabel: true
+ labelChannel: settingsFilenameAspect
+ model: openSettingsFile
+ )
+ (ActionButtonSpec
+ label: 'Edit'
+ name: 'Button1'
+ layout: (LayoutFrame -120 1 60 0.5 -20 1 85 0.5)
+ translateLabel: true
+ model: openSettingsFile
+ )
+ )
+
+ )
+ )
+! !
!SettingsDialog::SettingsFilenameAppl methodsFor:'aspects'!
@@ -1647,7 +1704,7 @@
!SettingsDialog class methodsFor:'documentation'!
version
- ^ '$Id: SettingsDialog.st 7875 2012-02-07 12:43:56Z vranyj1 $'
+ ^ '$Id: SettingsDialog.st 7877 2012-02-08 16:19:08Z vranyj1 $'
!
version_CVS
@@ -1655,7 +1712,7 @@
!
version_SVN
- ^ '$Id: SettingsDialog.st 7875 2012-02-07 12:43:56Z vranyj1 $'
+ ^ '$Id: SettingsDialog.st 7877 2012-02-08 16:19:08Z vranyj1 $'
! !
SettingsDialog initialize!