"{ Package: 'stx:goodies/monticello' }"

AbstractSettingsApplication subclass:#MCSettingsApp

	instanceVariableNames:'mcRepositories selectedRepositoryHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-St/X UI'

!

!MCSettingsApp class methodsFor:'help specs'!

helpSpec

    "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:MCSettingsApp

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#addRepository

'Add another monticello repository to the list'

#makePrimaryRepository

'Checkin from the browser will go into this repository by default'

#primaryRepository

'Checkin from the browser will go into this repository by default'

#removeRepository

'Remove the selected repository from the list'

)

    "Modified: / 03-12-2011 / 11:35:51 / cg"

! !

!MCSettingsApp class methodsFor:'image specs'!

defaultIcon

    "/ ^ self repositoryIcon.

    ^ self squeakRepositoryIcon24x24

    "Created: / 26-05-2008 / 14:55:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-09-2010 / 14:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 15-01-2012 / 10:34:53 / cg"

!

repositoryIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self defaultIcon inspect

     ImageEditor openOnClass:self andSelector:#defaultIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

	constantNamed:#'MCSettingsApp class repositoryIcon'

	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@

@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S

A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E

F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@

@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W

EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@O8@@?>@A??@A?C C<@0C8@PC8@@??@@??F@_>O@O<_ G8?0C1?8A#?<@C?<@@_@H@_@L@?@GC>@C?>@A?<@@_0@') ; yourself); yourself]

    "Created: / 26-05-2008 / 14:55:55 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-09-2010 / 14:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 25-11-2011 / 15:46:41 / cg"

    "Created: / 15-01-2012 / 10:34:23 / cg"

!

squeakIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self squeakIcon inspect

     ImageEditor openOnClass:self andSelector:#squeakIcon

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

	constantNamed:'SVN::ConfigurationApp class squeakIcon'

	ifAbsentPut:[(Depth8Image new) width: 24; height: 18; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0@@@@@@@@@@@@@@A@TF@@@@@@@@@@\@@ D@@@@@@@@@@@@C

@ @F@@@@@@@@@@ @@@H@@@@@@@@@@@@B@@@F@@@@@@@@@@$@@@@J@@@@@@@@@@H@@@@F@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@0@@@@@@@@@

@@@@@@@@@@@K@@@@@@@@@@DM@@@@@04@@@@@CP@@@@,A@@@@@@@@@@@N@@@@C0<M@@@OC04@@@,@@@@@@@@@@@@K@@@@C1@Q@@@ODAD@@AH@@@@@@@@@@@@@

@@@@DQLM@@@QC04@@@@@@@@@@@@@B@@@@@ @@@@@@P@@@@@@B@@@@@@@@@@KB0@@@@@F@@@QC0<Q@@@@@@@@@@@@@@@@@@@KB0,@@@@QC0<Q@@@@B0,KB0@@

@@@@@@@@@@@K@@@@@0@@@@@KB0@@@@,@@@@@@@@@B0@@@@@@@@@@@@@@@@,K@@@K@@@@@@X@@@@@@@@@@@@@@@@@@@@@B0@@') ; colorMapFromArray:#[164 164 164 232 232 232 102 102 102 233 233 233 236 236 236 143 143 143 161 161 161 110 110 110 190 190 190 163 163 163 97 97 97 169 169 169 124 124 124 185 185 185 155 155 155 0 0 0 255 255 255 139 139 139 118 118 118 4 4 4]; mask:((Depth1Image new) width: 24; height: 18; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@C @8B0A(BPAHBHBHB@@HB@@HCFDXAGNPAGNP@GN@G0 <LI9CC18<DX!!"I @YB@@D') ; yourself); yourself]

!

squeakRepositoryIcon24x24

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the ImageEditor may not be able to read the specification."

    "

     self squeakRepositoryIcon24x24 inspect

     ImageEditor openOnClass:self andSelector:#squeakRepositoryIcon24x24

     Icon flushCachedIcons

    "

    <resource: #image>

    ^Icon

	constantNamed:'SVN::ConfigurationApp class squeakRepositoryIcon24x24'

	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0@@@@@@@@@@@@@@A@TF@@@@@@@@@@\@@ D@@@@@@@@@@@@C

@ @F@@@@@@@@@@ @@@H@@@@@@@@@@@@B@@@F@@@@@@@@@@$@@@@J@@@@@@@@@@H@@@@F@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@0@@@@@@@@@

@@@@@@@@@@@K@@@@@@@@@@DM@@@@@04@@@@@CP@@@@,A@@@@@@@@@@@N@@@@C0<M@@@OC04@@@,@@@@@@@@@@@@K@@@@C1@Q@@@ODAD@@AH@@@@@@@@@@@@@

@@@@DQLM@@@QC04@@@@@@@@@@@@@B@@ZF!!\W@@@@@P@@@@@@B@@@@@@@@@@KB1\ZF!!(ZE0@QC0<Q@@@@@@@@@@@@@@@@E!!(ZB0,@@A\QC0<Q@@@@B0,KB0@@

@@@@E1 W@@@K@@@@@0@@@@@KB0@@@@,@@A\WF!!$ZF0@@G@@@@@@@@@@@@@,K@@@K@@@WFQ(W@@@\GA0@@@@@@@@@@@@@B0@@@@@@E2@@@A0_G18\@@@@@@@@

@@@@@@@@@@@@@@@@GA0]GA0\@@@@@@@@@@@@@@@@@@@\@@@@@@@\G@@@@@@@@@@@@@@@@@@@@@@@GA0\GA0\C0@@@@@@@@@@@@@@@@@@@@@@@A4\GA0O@@@@

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[164 164 164 232 232 232 102 102 102 233 233 233 236 236 236 143 143 143 161 161 161 110 110 110 190 190 190 163 163 163 97 97 97 169 169 169 124 124 124 185 185 185 155 155 155 0 0 0 255 255 255 139 139 139 118 118 118 4 4 4 229 229 229 214 214 214 0 64 0 32 96 32 96 192 128 32 128 64 32 160 64 32 128 32 64 64 64 96 96 96 128 128 128 32 32 32 32 64 32]; mask:((Depth1Image new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@C @8B0A(BPAHBHBHB@@HB@@HCFDXAGNPAGNP@GN@G8 <O=9CG38<GX!!"_$@YON@DF_@@@?@@HL@@G<@@C8@@@@@@') ; yourself); yourself]

!

svnIcon

    "^ IconLibrary svn_wizban"

    ^nil

    "Created: / 24-05-2008 / 01:44:19 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-09-2010 / 14:02:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCSettingsApp class methodsFor:'interface opening'!

open

    | settingsApp |

    settingsApp := SettingsDialog new.

    settingsApp addApplClass:self fullName

		withName:'Monticello'.

    settingsApp showRoot: false.

    settingsApp selectedItem value:

	(settingsApp applicationList root children anyOne).

    settingsApp open.

    "Created: / 26-05-2008 / 12:17:20 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 04-04-2012 / 11:17:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCSettingsApp class methodsFor:'interface specs'!

windowSpec

    "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:MCSettingsApp andSelector:#windowSpec

     MCSettingsApp new openInterface:#windowSpec

     MCSettingsApp open

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: windowSpec

	window:

       (WindowSpec

	  label: 'Monticello Settings'

	  name: 'Monticello Settings'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 647 627)

	)

	component:

       (SpecCollection

	  collection: (

	   (LabelSpec

	      label: ' Monticello Settings'

	      name: 'Title'

	      layout: (LayoutFrame 0 0 0 0 0 1 66 0)

	      style: (FontDescription helvetica medium roman 18 #'iso10646-1')

	      backgroundColor: (Color 100.0 100.0 100.0)

	      translateLabel: true

	      adjust: left

	    )

	   (LabelSpec

	      label: 'Icon'

	      name: 'Icon'

	      layout: (LayoutFrame -75 1 0 0 0 1 66 0)

	      initiallyInvisible: true

	      hasCharacterOrientedLabel: false

	      backgroundColor: (Color 100.0 100.0 100.0)

	      translateLabel: true

	    )

	   (VerticalPanelViewSpec

	      name: 'Controls'

	      layout: (LayoutFrame 0 0 70 0 0 1 0 1)

	      horizontalLayout: fit

	      verticalLayout: topFit

	      horizontalSpace: 3

	      verticalSpace: 3

	      component:

	     (SpecCollection

		collection: (

		 (HorizontalPanelViewSpec

		    name: 'EnabledAndResetPanel'

		    horizontalLayout: rightSpaceFit

		    verticalLayout: fit

		    horizontalSpace: 0

		    verticalSpace: 3

		    component:

		   (SpecCollection

		      collection: (

		       (CheckBoxSpec

			  label: 'Show in Browser Menus'

			  name: 'Enabled'

			  model: mcEnabled

			  translateLabel: true

			  useDefaultExtent: true

			)

		       (ActionButtonSpec

			  label: 'Flush caches'

			  name: 'ResetCachedRepositoriesButton'

			  translateLabel: true

			  model: flushCaches

			  enableChannel: mcEnabled

			  useDefaultExtent: true

			)

		       )

		    )

		    useDefaultExtent: true

		  )

		 (ViewSpec

		    name: 'Box1'

		    component:

		   (SpecCollection

		      collection: (

		       (LabelSpec

			  label: 'Primary Repository: '

			  name: 'Label2'

			  layout: (LayoutFrame 7 0 0 0 150 0 22 0)

			  activeHelpKey: primaryRepository

			  translateLabel: true

			  adjust: left

			)

		       (LabelSpec

			  name: 'Label3'

			  layout: (LayoutFrame 150 0 0 0 0 1 22 0)

			  activeHelpKey: primaryRepository

			  translateLabel: true

			  labelChannel: mcPrimaryRepository

			  adjust: left

			)

		       )

		    )

		    extent: (Point 647 24)

		  )

		 (FramedBoxSpec

		    label: 'Repositories'

		    name: 'Repositories'

		    labelPosition: topLeft

		    translateLabel: true

		    component:

		   (SpecCollection

		      collection: (

		       (VerticalPanelViewSpec

			  name: 'RepositoryConfigurations'

			  layout: (LayoutFrame 0 0 0 0 0 1 0 1)

			  horizontalLayout: fit

			  verticalLayout: bottomFit

			  horizontalSpace: 3

			  verticalSpace: 3

			  component:

			 (SpecCollection

			    collection: (

			     (ViewSpec

				name: 'RepositoryConfigurationListBox'

				model: mcRepositories

				component:

			       (SpecCollection

				  collection: (

				   (SelectionInListModelViewSpec

				      name: 'RepositoryList'

				      layout: (LayoutFrame 0 0 0 0 0 1 0 1)

				      enableChannel: mcEnabled

				      model: selectedRepositoryHolder

				      hasHorizontalScrollBar: true

				      hasVerticalScrollBar: true

				      listModel: mcRepositories

				      useIndex: false

				      highlightMode: line

				    )

				   )

				)

				extent: (Point 613 437)

			      )

			     (HorizontalPanelViewSpec

				name: 'AddRemovePanel'

				horizontalLayout: fit

				verticalLayout: center

				horizontalSpace: 3

				verticalSpace: 3

				component:

			       (SpecCollection

				  collection: (

				   (ActionButtonSpec

				      label: 'Add Repository...'

				      name: 'AddConfigurationAction'

				      activeHelpKey: addRepository

				      translateLabel: true

				      model: addRepositoryAction

				      enableChannel: mcEnabled

				      extent: (Point 151 25)

				    )

				   (ActionButtonSpec

				      label: 'Remove Repository...'

				      name: 'RemoveConfigurationAction'

				      activeHelpKey: removeRepository

				      translateLabel: true

				      model: removeRepositoryAction

				      enableChannel: mcEnabledAndRepositorySelectedHolder

				      extent: (Point 151 25)

				    )

				   (LabelSpec

				      name: 'Label1'

				      translateLabel: true

				      extent: (Point 151 22)

				    )

				   (ActionButtonSpec

				      label: 'Define as Primary'

				      name: 'Button1'

				      activeHelpKey: makePrimaryRepository

				      translateLabel: true

				      model: defineAsPrimaryRepositoryAction

				      enableChannel: mcEnabledAndRepositorySelectedHolder

				      extent: (Point 151 25)

				    )

				   )

				)

				extent: (Point 613 30)

			      )

			     )

			  )

			)

		       )

		    )

		    extent: (Point 647 503)

		  )

		 )

	      )

	    )

	   )

	)

      )

! !

!MCSettingsApp class methodsFor:'queries'!

managerTypeName

    ^ 'Monticello'

    "Created: / 21-07-2011 / 11:47:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCSettingsApp methodsFor:'accessing'!

repositoryConfiguration

    ^self selectedRepositoryHolder value

    "Created: / 26-05-2008 / 12:04:54 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 27-09-2011 / 11:55:22 / cg"

!

repositoryConfiguration: anObject

    self selectedRepositoryHolder value: anObject

    "Created: / 26-05-2008 / 12:12:17 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 27-09-2011 / 11:55:24 / cg"

!

repositoryConfigurationList

    ^self mcRepositories value

    "Created: / 26-05-2008 / 12:05:01 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 27-09-2011 / 11:50:53 / cg"

!

repositoryManager

    ^RepositoryManager current

    "Created: / 26-05-2008 / 10:46:30 / Jan Vrany <vranyj1@fel.cvut.cz>"

!

workingCopyBase

    ^self workingCopyBaseAspect value

    "Created: / 26-05-2008 / 13:15:22 / Jan Vrany <vranyj1@fel.cvut.cz>"

! !

!MCSettingsApp methodsFor:'actions'!

addRepositoryAction

    | dialog class codeHolder repo lastInput asking |

    class := Dialog

	    choose:'Select repository type'

	    fromList:#('HTTP Repository' 'FTP Repository' 'Local Repository')

	    values:(Array

			with: MCHttpRepository

			with: MCFtpRepository

			with: MCDirectoryRepository)

	    lines:5 cancel:[^self].

    codeHolder := ValueHolder new.

    asking := true.

    [asking] whileTrue:[

	class == MCDirectoryRepository ifTrue:[

	    |dir|

	    dir := Dialog requestDirectoryName:'MC Repository Directory'.

	    dir isEmptyOrNil ifTrue:[^ self].

	    repo := MCDirectoryRepository directory:dir.

	] ifFalse:[

	    dialog := Dialog

		    forRequestText:'Please Fill in Data:'

		    lines:10 columns:60

		    initialAnswer: (lastInput ? class creationTemplate)

		    model:codeHolder.

	    dialog open.

	    dialog accepted ifFalse:[^self].

	    lastInput := codeHolder value.

	    repo := Compiler evaluate: codeHolder value.

	].

	repo isValid ifTrue:[

	    asking := false

	] ifFalse:[

	    |answer|

	    repo class == MCDirectoryRepository ifTrue:[

		answer := Dialog confirmWithCancel:'Invalid repository. Create?'.

		answer == nil ifTrue:[

		    ^ self

		].

		answer == true ifTrue:[

		    repo directory asFilename recursiveMakeDirectory

		].

		asking := false

	    ] ifFalse:[

		answer := Dialog confirmWithCancel:'Invalid repository. Try again?'.

		answer == nil ifTrue:[

		    ^ self

		].

		answer == false ifTrue:[

		    asking := false

		].

	    ]

	].

    ].

    self mcRepositories value add: repo.

    self mcRepositories changed:#value.

    self updateModifiedChannel

    "Created: / 26-05-2008 / 12:04:30 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified: / 16-08-2009 / 17:24:17 / Jan Vrany <vranyj1@fel.cvut.cz>"

    "Modified (format): / 01-12-2011 / 20:31:10 / cg"

    "Modified: / 04-04-2012 / 11:14:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"