--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCRepositoryDialog.st	Sat Aug 20 14:29:36 2011 +0200
@@ -0,0 +1,115 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+MCDialog subclass:#MCRepositoryDialog
+	instanceVariableNames:'repositoryTypeHolder'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-St/X UI'
+!
+
+
+!MCRepositoryDialog class methodsFor:'interface specs'!
+
+contentSpec
+    "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:MCRepositoryDialog andSelector:#contentSpec
+     MCRepositoryDialog new openInterface:#contentSpec
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: contentSpec
+        window: 
+       (WindowSpec
+          label: 'Content Spec'
+          name: 'Content Spec'
+          min: (Point 10 10)
+          bounds: (Rectangle 0 0 580 300)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (LabelSpec
+              label: 'Type:'
+              name: 'TypeLabel'
+              layout: (LayoutFrame 0 0 15 0 100 0 35 0)
+              translateLabel: true
+            )
+           (PopUpListSpec
+              label: 'PopUp List'
+              name: 'PopUpList1'
+              layout: (LayoutFrame 100 0 12 0 0 1 37 0)
+              tabable: true
+              model: repositoryTypeHolder
+              menu: 
+             (Array
+                'HTTP' 'Local'
+              )
+            )
+           (SubCanvasSpec
+              name: 'Info'
+              layout: (LayoutFrame 0 0 45 0 0 1 0 1)
+              hasHorizontalScrollBar: false
+              hasVerticalScrollBar: false
+              createNewBuilder: false
+            )
+           )
+         
+        )
+      )
+! !
+
+!MCRepositoryDialog methodsFor:'accessing'!
+
+defaultTitle
+    "superclass MCDialog says that I am responsible to implement this method"
+
+    ^ 'Monticello Repository'
+
+    "Created: / 13-10-2010 / 15:01:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCRepositoryDialog methodsFor:'aspects'!
+
+repositoryTypeHolder
+    <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 ;-)"
+
+    repositoryTypeHolder isNil ifTrue:[
+        repositoryTypeHolder := ValueHolder with:'HTTP'.
+"/ if your app needs to be notified of changes, uncomment one of the lines below:
+"/       repositoryTypeHolder addDependent:self.
+"/       repositoryTypeHolder onChangeSend:#repositoryTypeHolderChanged to:self.
+    ].
+    ^ repositoryTypeHolder.
+
+    "Modified: / 13-10-2010 / 15:17:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!MCRepositoryDialog class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryDialog.st,v 1.1 2011-08-20 12:29:36 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryDialog.st,v 1.1 2011-08-20 12:29:36 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCRepositoryDialog.st 19 2010-10-14 10:51:48Z vranyj1 §'
+! !