--- a/Launcher.st	Sat Sep 14 12:45:04 1996 +0200
+++ b/Launcher.st	Sat Sep 14 13:30:29 1996 +0200
@@ -228,6 +228,14 @@
     "Modified: 21.5.1996 / 14:15:57 / cg"
 !
 
+showLicenceConditions
+    self showDocumentation:'german/LICENCE.STX.html'
+
+    "Modified: 31.8.1995 / 13:11:28 / claus"
+    "Created: 14.9.1996 / 12:35:00 / cg"
+    "Modified: 14.9.1996 / 13:28:51 / cg"
+!
+
 startClassDocumentation
     self showDocumentation:'classDoc/TOP.html'
 
@@ -1599,9 +1607,9 @@
 miscSettings
     |box check logDoits shadows updChanges changeFileName returnFocus
      loadBinaries compileLazy hostNameInLabel useManager hasManager 
-     localSourceFirst 
+     repository repositoryHolder localSourceFirst 
      showAccelerators sourceCacheDir cacheEntry
-     component localCheck oldIndent nm fn|
+     component localCheck oldIndent nm fn manager|
 
     "/
     "/ extract relevant system settings ...
@@ -1617,8 +1625,14 @@
                   and:[AbstractSourceCodeManager isLoaded].
 
     hasManager ifTrue:[
-        useManager := (Smalltalk at:#SourceCodeManager) notNil asValue.
+        useManager := (manager := Smalltalk at:#SourceCodeManager) notNil asValue.
         localSourceFirst := Class tryLocalSourceFirst asValue.
+        manager notNil ifTrue:[
+            repository := manager repositoryName.
+            repository notNil ifTrue:[
+                repositoryHolder := repository asValue
+            ]
+        ].
     ] ifFalse:[
         useManager := false.
         localSourceFirst := false
@@ -1666,6 +1680,17 @@
         check := box addCheckBox:(resources string:'sourcecode from sourcecode management') on:useManager.
         oldIndent := box leftIndent.
         box leftIndent:30.
+
+        repositoryHolder notNil ifTrue:[
+            component := box 
+                            addLabelledInputField:(resources string:'repository:')
+                            adjust:#right
+                            on:repositoryHolder 
+                            tabable:true
+                            separateAtX:0.4.
+            component immediateAccept:true; acceptOnLeave:false.
+        ].
+
         localCheck := box addCheckBox:(resources string:'if present, use local source (suppress checkout)') on:localSourceFirst.
         localCheck enableChannel:useManager.
 
@@ -1722,8 +1747,9 @@
         MenuView showAcceleratorKeys:showAccelerators value.
 
         (hasManager and:[useManager value]) ifTrue:[
-            (Smalltalk at:#SourceCodeManager) isNil ifTrue:[
-                Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager)
+            manager isNil ifTrue:[
+                Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
+                manager := Smalltalk at:#SourceCodeManager.
             ].
             Class tryLocalSourceFirst:(localSourceFirst value).
             nm := sourceCacheDir value.
@@ -1740,15 +1766,19 @@
             and:[fn isReadable
             and:[fn isWritable]]]) ifTrue:[
                 AbstractSourceCodeManager cacheDirectoryName:(sourceCacheDir value).
-            ]
+            ].
+            repositoryHolder notNil ifTrue:[
+                manager repositoryName:repositoryHolder value.
+                manager initialize
+            ].
         ] ifFalse:[
             Smalltalk at:#SourceCodeManager put:nil
         ]
     ].
     box destroy
 
-    "Modified: 7.9.1996 / 14:21:35 / cg"
     "Modified: 9.9.1996 / 22:43:36 / stefan"
+    "Modified: 14.9.1996 / 13:26:50 / cg"
 !
 
 printerSettings
@@ -2889,9 +2919,13 @@
     myMenu at:#about 
            putLabels:(resources array:#(
                                         'about Smalltalk/X ...'
+                                        '-'
+                                        'licence conditions'
                                        ))
            selectors:#(
                                         #about 
+                                        nil
+                                        #showLicenceConditions 
                       )
            receiver:self.
 
@@ -3046,7 +3080,7 @@
 
     self disableDangerousMenuItemsInRemoteLauncher
 
-    "Modified: 12.9.1996 / 01:56:02 / cg"
+    "Modified: 14.9.1996 / 13:27:44 / cg"
 !
 
 setupOtherViewsIn:aTopView
@@ -3433,5 +3467,5 @@
 !Launcher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.188 1996-09-11 23:58:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.189 1996-09-14 11:30:29 cg Exp $'
 ! !