class definition
added:
#flyByHelpSpec
#helpSpec
#targetNamespaceNameHolder
#targetPackageHolder
changed:
#packageDetailsSpec
#setTargetNamespace
#setTargetPackage
#windowSpec
--- a/MCRepositoryBrowser.st Wed Sep 07 15:05:04 2011 +0200
+++ b/MCRepositoryBrowser.st Wed Sep 07 15:15:34 2011 +0200
@@ -4,13 +4,44 @@
instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
selectedVersionHolder worker selectedVersionDetailsHolder
selectedRepositoryHolder targetPackage targetNamespace
- lastPackage'
+ lastPackage targetPackageHolder targetNamespaceNameHolder'
classVariableNames:''
poolDictionaries:''
category:'Monticello-St/X UI'
!
+!MCRepositoryBrowser class methodsFor:'help specs'!
+
+flyByHelpSpec
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
+
+ "
+ UIHelpTool openOnClass:MCRepositoryBrowser
+ "
+
+ <resource: #help>
+
+ ^ super flyByHelpSpec addPairsFrom:#(
+
+#loadVersion
+'Load the selected version'
+
+#targetNamespace
+'Namespace override. Change via the "Loading"-Menu'
+
+#targetPackage
+'ST/X Package override. Change via the "Loading"-Menu'
+
+)
+
+ "Created: / 07-09-2011 / 15:13:00 / cg"
+! !
+
!MCRepositoryBrowser class methodsFor:'interface specs'!
packageDetailsSpec
@@ -49,6 +80,24 @@
isReadOnly: true
hasKeyboardFocusInitially: false
)
+ (LabelSpec
+ name: 'Label1'
+ layout: (LayoutFrame 2 0 -30 1 -1 0.5 -2 1)
+ activeHelpKey: targetNamespace
+ level: -1
+ translateLabel: true
+ labelChannel: targetNamespaceNameHolder
+ adjust: left
+ )
+ (LabelSpec
+ name: 'Label2'
+ layout: (LayoutFrame 1 0.5 -30 1 -2 1 -2 1)
+ activeHelpKey: targetPackage
+ level: -1
+ translateLabel: true
+ labelChannel: targetPackageHolder
+ adjust: left
+ )
)
)
@@ -191,6 +240,7 @@
translateLabel: true
model: versionLoad
enableChannel: hasVersionSelectedHolder
+ activeHelpKey: loadVersion
)
)
@@ -214,6 +264,8 @@
)
)
+
+ "Modified: / 07-09-2011 / 15:14:55 / cg"
! !
!MCRepositoryBrowser class methodsFor:'menu specs'!
@@ -626,6 +678,44 @@
selectedVersionHolder := something.
!
+targetNamespaceNameHolder
+ <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 ;-)"
+
+ targetNamespaceNameHolder isNil ifTrue:[
+ targetNamespaceNameHolder := ValueHolder new.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/ targetNamespaceNameHolder addDependent:self.
+"/ targetNamespaceNameHolder onChangeSend:#targetNamespaceNameHolderChanged to:self.
+ ].
+ ^ targetNamespaceNameHolder.
+!
+
+targetPackageHolder
+ <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 ;-)"
+
+ targetPackageHolder isNil ifTrue:[
+ targetPackageHolder := ValueHolder new.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/ targetPackageHolder addDependent:self.
+"/ targetPackageHolder onChangeSend:#targetPackageHolderChanged to:self.
+ ].
+ ^ targetPackageHolder.
+!
+
versionsHolder
"return/create the 'versionsHolder' value holder (automatically generated)"
@@ -713,6 +803,7 @@
nsName isEmptyOrNil ifTrue:[^self].
targetNamespace := nsName.
+ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
"Created: / 07-09-2011 / 12:49:42 / cg"
!
@@ -729,6 +820,7 @@
package ifNil:[^self].
targetPackage := lastPackage := package.
+ self targetPackageHolder value:('Target-Package: ',targetPackage).
"Created: / 07-09-2011 / 12:47:15 / cg"
!
@@ -887,11 +979,11 @@
!MCRepositoryBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.10 2011-09-07 13:05:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.11 2011-09-07 13:15:34 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.10 2011-09-07 13:05:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.11 2011-09-07 13:15:34 cg Exp $'
!
version_SVN