--- a/Tools__ChangeSetSelectionDialog.st Mon Mar 19 20:14:57 2012 +0000
+++ b/Tools__ChangeSetSelectionDialog.st Tue Mar 20 12:36:40 2012 +0000
@@ -14,7 +14,7 @@
"{ NameSpace: Tools }"
SimpleDialog subclass:#ChangeSetSelectionDialog
- instanceVariableNames:'specHolder specLabelList specLabelIndexHolder
+ instanceVariableNames:'enabledHolder specHolder specLabelList specLabelIndexHolder
specEditorSpecHolder'
classVariableNames:''
poolDictionaries:''
@@ -161,12 +161,14 @@
layout: (LayoutFrame 103 0 3 0 -3 1 25 0)
tabable: true
model: specLabelIndexHolder
+ enableChannel: enabledHolder
menu: specLabelList
useIndex: true
)
(SubCanvasSpec
name: 'SubCanvas1'
layout: (LayoutFrame 3 0 30 0 -3 1 0 1)
+ level: 0
hasHorizontalScrollBar: false
hasVerticalScrollBar: false
specHolder: specEditorSpecHolder
@@ -210,6 +212,7 @@
(FilenameInputFieldSpec
name: 'Directory'
layout: (LayoutFrame 103 0 0 0 0 1 22 0)
+ enableChannel: enabledHolder
model: directoryAspect
acceptOnPointerLeave: true
viewClassName: FilenameWidgetWithHistory
@@ -227,6 +230,56 @@
)
!
+editorSpecForFile
+ "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:Tools::ChangeSetSelectionDialog andSelector:#editorSpecForFile
+ Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForFile
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: editorSpecForFile
+ window:
+ (WindowSpec
+ label: 'Directory Spec Editor'
+ name: 'Directory Spec Editor'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 441 310)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (FilenameInputFieldSpec
+ name: 'Directory'
+ layout: (LayoutFrame 103 0 0 0 0 1 22 0)
+ enableChannel: enabledHolder
+ model: fileAspect
+ acceptOnPointerLeave: true
+ viewClassName: FilenameWidgetWithHistory
+ )
+ (LabelSpec
+ label: 'File:'
+ name: 'FileLabel'
+ layout: (LayoutFrame 0 0 3 0 100 0 22 0)
+ translateLabel: true
+ adjust: left
+ )
+ )
+
+ )
+ )
+
+ "Modified: / 20-03-2012 / 11:13:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
editorSpecForPackage
"This resource specification was automatically generated
by the UIPainter of ST/X."
@@ -243,7 +296,7 @@
^
#(FullSpec
- name: 'editorSpecForPackage'
+ name: editorSpecForPackage
window:
(WindowSpec
label: 'Package Spec Editor'
@@ -264,6 +317,7 @@
(InputFieldSpec
name: 'EntryField1'
layout: (LayoutFrame 103 0 0 0 -25 1 25 0)
+ enableChannel: enabledHolder
model: packageAspect
acceptOnReturn: true
acceptOnTab: true
@@ -276,6 +330,7 @@
layout: (LayoutFrame -25 1 0 0 0 1 25 0)
translateLabel: true
model: selectPackage
+ enableChannel: enabledHolder
)
)
@@ -298,9 +353,10 @@
^ #(
#specHolder
+ #enabledHolder
).
- "Modified: / 06-07-2011 / 10:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 19-03-2012 / 23:22:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetSelectionDialog methodsFor:'actions'!
@@ -334,6 +390,23 @@
"Created: / 06-07-2011 / 10:48:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+enabledHolder
+ "return/create the 'enabledHolder' value holder (automatically generated)"
+
+ enabledHolder isNil ifTrue:[
+ enabledHolder := true asValue
+ ].
+ ^ enabledHolder
+
+ "Modified: / 19-03-2012 / 23:25:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+enabledHolder:something
+ "set the 'enabledHolder' value holder (automatically generated)"
+
+ enabledHolder := something.
+!
+
specEditorSpecHolder
"return/create the 'specEditorSpecHolder' value holder (automatically generated)"
@@ -439,6 +512,22 @@
"Modified: / 06-07-2011 / 10:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+fileAspect
+ <resource: #uiAspect>
+
+ |holder|
+
+ (holder := builder bindingAt:#fileAspect) isNil ifTrue:[
+ holder := (AspectAdaptor forAspect:#file)
+ subjectChannel: self specHolder.
+ builder aspectAt:#fileAspect put:holder.
+ ].
+ ^ holder.
+
+ "Modified: / 06-07-2011 / 10:28:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Created: / 19-03-2012 / 22:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
packageAspect
<resource: #uiAspect>
@@ -511,5 +600,5 @@
!
version_SVN
- ^ '$Id: Tools__ChangeSetSelectionDialog.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Id: Tools__ChangeSetSelectionDialog.st 7946 2012-03-20 12:36:40Z vranyj1 $'
! !