--- a/MCRepositoryBrowser.st	Wed Apr 04 12:33:31 2012 +0200
+++ b/MCRepositoryBrowser.st	Sat May 05 21:23:04 2012 +0200
@@ -12,6 +12,51 @@
 !
 
 
+!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'!
 
 flyByHelpSpec
@@ -567,6 +612,18 @@
       )
 ! !
 
+!MCRepositoryBrowser class methodsFor:'menu-about'!
+
+aboutThisApplicationText
+    |msg|
+
+    msg := super aboutThisApplicationText.
+    msg := msg , '\\Written by:\\  Jan Vrany (jan.vrany@fit.cvut.cz)\  Claus Gittinger (cg@exept.de).'.
+    ^msg withCRs.
+
+    "Created: / 05-05-2012 / 19:23:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MCRepositoryBrowser class methodsFor:'startup'!
 
 openOnPrimaryRepository
@@ -676,6 +733,16 @@
     "Modified: / 07-09-2011 / 13:14:17 / cg"
 !
 
+packageSelectedAndOperatingSystemIsWindows
+
+    ^[
+        OperatingSystem isMSWINDOWSlike 
+            and:[selectedPackageHolder value notNil]
+    ]
+
+    "Created: / 05-05-2012 / 19:20:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 repositoryIsDirectory
     ^ BlockValue
         with:[:h | h value notNil
@@ -829,6 +896,12 @@
     "Created: / 20-03-2012 / 17:37:17 / cg"
 !
 
+openDocumentation
+    HTMLDocumentView openFullOnDocumentationFile:'tools/misc/monticellobrowser.html'.
+
+    "Created: / 05-05-2012 / 19:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 repositoryAdd
     |repStr rep url|
 
@@ -1118,13 +1191,15 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.18 2012-03-20 16:39:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.19 2012-05-05 19:23:04 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.18 2012-03-20 16:39:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.19 2012-05-05 19:23:04 vrany Exp $'
 !
 
 version_SVN
     ^ '§Id: MCRepositoryBrowser.st 34 2011-08-04 21:44:46Z vranyj1 §'
 ! !
+
+MCRepositoryBrowser initialize!