--- a/Tools__ChangeSetSelectionDialog.st Wed Feb 05 19:56:03 2014 +0100
+++ b/Tools__ChangeSetSelectionDialog.st Wed Feb 05 19:56:05 2014 +0100
@@ -1,15 +1,41 @@
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
"{ Package: 'stx:libtool' }"
"{ NameSpace: Tools }"
SimpleDialog subclass:#ChangeSetSelectionDialog
- instanceVariableNames:'specHolder specLabelList specLabelIndexHolder
+ instanceVariableNames:'enabledHolder specHolder specLabelList specLabelIndexHolder
specEditorSpecHolder'
classVariableNames:''
poolDictionaries:''
category:'Interface-Dialogs'
!
+!ChangeSetSelectionDialog class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2006 by eXept Software AG
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+! !
!ChangeSetSelectionDialog class methodsFor:'instance creation'!
@@ -135,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
@@ -184,6 +212,7 @@
(FilenameInputFieldSpec
name: 'Directory'
layout: (LayoutFrame 103 0 0 0 0 1 22 0)
+ enableChannel: enabledHolder
model: directoryAspect
acceptOnPointerLeave: true
viewClassName: FilenameWidgetWithHistory
@@ -201,6 +230,87 @@
)
!
+editorSpecForExplicit
+ "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:#editorSpecForExplicit
+ Tools::ChangeSetSelectionDialog new openInterface:#editorSpecForExplicit
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: 'editorSpecForExplicit'
+ window:
+ (WindowSpec
+ label: 'ChangeSet Spec Editor'
+ name: 'ChangeSet Spec Editor'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 441 310)
+ )
+ component:
+ (SpecCollection
+ collection: ()
+ )
+ )
+!
+
+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."
@@ -217,7 +327,7 @@
^
#(FullSpec
- name: 'editorSpecForPackage'
+ name: editorSpecForPackage
window:
(WindowSpec
label: 'Package Spec Editor'
@@ -238,6 +348,7 @@
(InputFieldSpec
name: 'EntryField1'
layout: (LayoutFrame 103 0 0 0 -25 1 25 0)
+ enableChannel: enabledHolder
model: packageAspect
acceptOnReturn: true
acceptOnTab: true
@@ -250,6 +361,7 @@
layout: (LayoutFrame -25 1 0 0 0 1 25 0)
translateLabel: true
model: selectPackage
+ enableChannel: enabledHolder
)
)
@@ -271,10 +383,10 @@
(if this app is embedded in a subCanvas)."
^ #(
+ #enabledHolder
#specHolder
).
- "Modified: / 06-07-2011 / 10:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetSelectionDialog methodsFor:'actions'!
@@ -308,6 +420,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)"
@@ -378,13 +507,6 @@
specLabelList
<resource: #uiAspect>
- "automatically generated by UIPainter ..."
-
- "*** the code below creates a default model when invoked."
- "*** (which may not be the one you wanted)"
- "*** Please change as required and accept it in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
specLabelList isNil ifTrue:[
specLabelList := List withAll:
(ChangeSetSpec specClasses collect:[:cls|cls label])
@@ -413,6 +535,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>
@@ -481,5 +619,6 @@
!ChangeSetSelectionDialog class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetSelectionDialog.st,v 1.2 2011-10-02 19:52:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetSelectionDialog.st,v 1.3 2014-02-05 18:56:05 cg Exp $'
! !
+