# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1315401334 -7200
# Node ID a2fd0438b8ac5d5a35d982ee999b451f7823b60d
# Parent  72911faa1f0a18ba8565eff43991208f6a2820f9
class definition
added:
        #flyByHelpSpec
        #helpSpec
        #targetNamespaceNameHolder
        #targetPackageHolder
changed:
        #packageDetailsSpec
        #setTargetNamespace
        #setTargetPackage
        #windowSpec

diff -r 72911faa1f0a -r a2fd0438b8ac MCRepositoryBrowser.st
--- 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