(none) jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 08 Feb 2012 16:19:08 +0000
branchjv
changeset 12149 76b2dad0df76
parent 12148 c675c7212c87
child 12150 2cb656a3a112
(none)
SettingsDialog.st
--- 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!