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

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#MCRepositoryBrowser

	instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder

		selectedVersionHolder worker selectedVersionDetailsHolder

		selectedRepositoryHolder targetPackage targetNamespace

		lastPackage targetPackageHolder targetNamespaceNameHolder

		updateChangefileHolder selectedPackageHolder'

	classVariableNames:'LastAddedRepository LastAddedURLString'

	poolDictionaries:''

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

!

!MCRepositoryBrowser class methodsFor:'initialization'!

initialize

    "/ self installInLauncher.            - now done in phase 2

    ObjectMemory addDependent:self.

!

installInLauncher

    |menuItem action|

    NewLauncher isNil ifTrue:[^ self].

    ToolbarIconLibrary isNil ifTrue:[^ self].

    "/ NewLauncher removeUserTool:#TestRunner2.

    "Class may be changed, and we want to start the changed class"

    "/ action := (MessageSend receiver:(Smalltalk at:self name) selector:#open).

    action := [ (Smalltalk at:self name) open ].

    "Install in Tools menu"

    menuItem := (MenuItem label:'Monticello Browser')

		nameKey:#MonticelloBrowser;

		"/labelImage:self startSUnitIcon;

		value:action;

		isButton:false.

    NewLauncher

	addMenuItem:menuItem

	from:self

	in:'menu.tools.programming'

	position:nil

	space:false.

    "Created: / 05-05-2012 / 19:12:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

update:something with:aParameter from:changedObject

    something == #initialized ifTrue:[

	changedObject == ObjectMemory ifTrue:[

	    self installInLauncher.

	    ObjectMemory removeDependent:self.

	]

    ].

! !

!MCRepositoryBrowser 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:MCRepositoryBrowser

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#browseVersion

'Open a changelist browser on the selected version'

#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

    "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:MCRepositoryBrowser andSelector:#packageDetailsSpec

     MCRepositoryBrowser new openInterface:#packageDetailsSpec

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: packageDetailsSpec

	window:

       (WindowSpec

	  label: 'MC Package Details'

	  name: 'MC Package Details'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 533 326)

	)

	component:

       (SpecCollection

	  collection: (

	   (TextEditorSpec

	      name: 'PackageDetails'

	      layout: (LayoutFrame 0 0 0 0 0 1 -30 1)

	      model: selectedVersionDetailsHolder

	      hasHorizontalScrollBar: true

	      hasVerticalScrollBar: true

	      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

	    )

	   )

	)

      )

!

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

     MCRepositoryBrowser new openInterface:#windowSpec

     MCRepositoryBrowser open

    "

    <resource: #canvas>

    ^

     #(FullSpec

	name: windowSpec

	window:

       (WindowSpec

	  label: 'MC Repository Browser'

	  name: 'MC Repository Browser'

	  min: (Point 10 10)

	  bounds: (Rectangle 0 0 796 497)

	  menu: mainMenu

	)

	component:

       (SpecCollection

	  collection: (

	   (VariableVerticalPanelSpec

	      name: 'VariableVerticalPanel1'

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

	      component:

	     (SpecCollection

		collection: (

		 (VariableHorizontalPanelSpec

		    name: 'VariableHorizontalPanel1'

		    component:

		   (SpecCollection

		      collection: (

		       (SubCanvasSpec

			  name: 'RepositoryList'

			  hasHorizontalScrollBar: false

			  hasVerticalScrollBar: false

			  majorKey: MCRepositoryList

			  subAspectHolders:

			 (Array

			   (SubChannelInfoSpec

			      subAspect: menuHolder

			      aspect: repositoryListMenu

			    )

			   (SubChannelInfoSpec

			      subAspect: inGeneratorHolder

			      aspect: repositoriesHolder

			    )

			   (SubChannelInfoSpec

			      subAspect: outGeneratorHolder

			      aspect: packagesHolder

			    )

			   (SubChannelInfoSpec

			      subAspect: selectionHolder

			      aspect: selectedRepositoryHolder

			    )

			  )

			  createNewApplication: true

			  createNewBuilder: true

			)

		       (SubCanvasSpec

			  name: 'PackageList'

			  hasHorizontalScrollBar: false

			  hasVerticalScrollBar: false

			  majorKey: MCPackageList

			  subAspectHolders:

			 (Array

			   (SubChannelInfoSpec

			      subAspect: menuHolder

			      aspect: packageListMenu

			    )

			   (SubChannelInfoSpec

			      subAspect: inGeneratorHolder

			      aspect: packagesHolder

			    )

			   (SubChannelInfoSpec

			      subAspect: outGeneratorHolder

			      aspect: versionsHolder

			    )

			   (SubChannelInfoSpec

			      subAspect: selectionHolder

			      aspect: selectedPackageHolder

			    )

			  )

			  createNewApplication: true

			  createNewBuilder: true

			)

		       (ViewSpec

			  name: 'Box1'

			  component:

			 (SpecCollection

			    collection: (

			     (SubCanvasSpec

				name: 'VersionList'

				layout: (LayoutFrame 0 0 0 0 0 1 -30 1)

				hasHorizontalScrollBar: false

				hasVerticalScrollBar: false

				majorKey: MCVersionList

				subAspectHolders:

			       (Array

				 (SubChannelInfoSpec

				    subAspect: inGeneratorHolder

				    aspect: versionsHolder

				  )

				 (SubChannelInfoSpec

				    subAspect: menuHolder

				    aspect: versionsMenu

				  )

				 (SubChannelInfoSpec

				    subAspect: selectionHolder

				    aspect: selectedVersionHolder

				  )

				)

				createNewApplication: true

				createNewBuilder: true

			      )

			     (ActionButtonSpec

				label: 'Browse'

				name: 'Button1'

				layout: (LayoutFrame 0 0 -30 1 0 0.5 0 1)

				activeHelpKey: browseVersion

				translateLabel: true

				model: versionBrowser

				enableChannel: hasVersionSelectedHolder

			      )

			     (ActionButtonSpec

				label: 'Load'

				name: 'LoadButton'

				layout: (LayoutFrame 0 0.5 -30 1 0 1 0 1)

				activeHelpKey: loadVersion

				translateLabel: true

				model: versionLoad

				enableChannel: hasVersionSelectedHolder

			      )

			     )

			  )

			)

		       )

		    )

		    handles: (Any 0.333333333333333 0.666666666666667 1.0)

		  )

		 (UISubSpecification

		    name: 'SubSpecification1'

		    minorKey: packageDetailsSpec

		  )

		 )

	      )

	      handles: (Any 0.5 1.0)

	    )

	   )

	)

      )

    "Modified: / 16-03-2012 / 10:51:24 / cg"

! !

!MCRepositoryBrowser class methodsFor:'menu specs'!

loadingMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#loadingMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser loadingMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

	(

	 (MenuItem

	    label: 'Set Target Package...'

	    itemValue: setTargetPackage

	  )

	 (MenuItem

	    label: 'Set Target Namespace...'

	    itemValue: setTargetNamespace

	  )

	 (MenuItem

	    label: '-'

	  )

	 (MenuItem

	    label: 'Update Changefile when Loading'

	    indication: updateChangefileHolder

	  )

	 )

	nil

	nil

      )

!

mainMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser mainMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

	(

	 (MenuItem

	    label: 'File'

	    translateLabel: true

	    submenu:

	   (Menu

	      (

	       (MenuItem

		  label: 'Exit'

		  itemValue: closeRequest

		  translateLabel: true

		)

	       )

	      nil

	      nil

	    )

	  )

	 (MenuItem

	    label: 'Repository'

	    translateLabel: true

	    submenuChannel: repositoryListMenu

	  )

	 (MenuItem

	    label: 'Package'

	    translateLabel: true

	    submenuChannel: packageListMenu

	  )

	 (MenuItem

	    label: 'Version'

	    translateLabel: true

	    submenuChannel: versionsMenu

	  )

	 (MenuItem

	    label: 'Loading'

	    translateLabel: true

	    submenuChannel: loadingMenu

	  )

	 (MenuItem

	    label: 'Help'

	    translateLabel: true

	    startGroup: conditionalRight

	    submenu:

	   (Menu

	      (

	       (MenuItem

		  label: 'Documentation'

		  itemValue: openDocumentation

		  translateLabel: true

		)

	       (MenuItem

		  label: '-'

		)

	       (MenuItem

		  label: 'About this Application...'

		  itemValue: openAboutThisApplication

		  translateLabel: true

		)

	       )

	      nil

	      nil

	    )

	  )

	 )

	nil

	nil

      )

!

packageListMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:MCRepositoryBrowser andSelector:#packageListMenu

     (Menu new fromLiteralArrayEncoding:(MCRepositoryBrowser packageListMenu)) startUp

    "

    <resource: #menu>

    ^

     #(Menu

	(

	 (MenuItem

	    enabled: packageSelectedAndOperatingSystemIsWindows

	    label: 'No Menuentry Yet'

	    translateLabel: true

	  )

	 )

	nil

	nil

      )

    "Modified: / 07-09-2011 / 11:44:38 / cg"

!

repositoryListMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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