"{ Package: 'stx:goodies/monticello' }"
MCDialog subclass:#MCRepositoryDialog
instanceVariableNames:'repositoryTypeHolder'
classVariableNames:''
poolDictionaries:''
category:'SCM-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.2 2012-09-11 21:13:56 cg Exp $'
!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryDialog.st,v 1.2 2012-09-11 21:13:56 cg Exp $'
!
version_SVN
^ '§Id: MCRepositoryDialog.st 19 2010-10-14 10:51:48Z vranyj1 §'
! !