dalehenrich · dalehenrich · Oct 13, 2015 · Sep 22, 2015 · Sep 22, 2015 · Sep 22, 2015
diff --git a/repository/BaselineOfTode.package/BaselineOfTode.class/instance/baseline..st b/repository/BaselineOfTode.package/BaselineOfTode.class/instance/baseline..st
@@ -6,7 +6,7 @@ baseline: spec
     do: [ 
       spec
         baseline: 'Ston'
-          with: [ spec repository: 'github://GsDevKit/ston:v0.9.?/repository' ];
+          with: [ spec repository: 'github://GsDevKit/ston:v0.9.4/repository' ];
         yourself.
       spec
         package: 'Topez-Common-Core' with: [ spec requires: #('Ston') ];
@@ -54,9 +54,15 @@ baseline: spec
                 postLoadDoIt: #'initializeTools';
                 requires: #('Topez-Server-Core') ];
         package: 'Tode-Client-Common'
-          with: [ spec requires: #('Topez-Common-Core' 'Topez-Pharo-Common') ];
+          with: [ 
+              spec
+                postLoadDoIt: #'pharo30InstallTodeClient';
+                requires: #('Topez-Common-Core' 'Topez-Pharo-Common') ];
         package: 'Topez-Client-GemStone'
-          with: [ spec requires: #('GemTools-ClientGCI' 'Tode-Client-Common') ];
+          with: [ 
+              spec
+                postLoadDoIt: #'pharo30InstallFullTodeClient';
+                requires: #('GemTools-ClientGCI' 'Tode-Client-Common') ];
         package: 'Tode-Client-Pharo'
           with: [ spec requires: #('Tode-Client-Common') ];
         package: 'Tode-Client-ServerBlocks'
@@ -72,6 +78,7 @@ baseline: spec
         group: 'GemStone Tests' with: #('Topez-ClientTravis-Tests');
         group: 'GemStone Dev'
           with: #('GemStone' 'Common Tests' 'GemStone Tests');
+        group: 'Common-Core' with: #('Topez-Common-Core');
         group: 'Pharo Dev' with: #('Pharo' 'Common Tests');
         yourself ].
   spec
@@ -96,13 +103,7 @@ baseline: spec
       spec
         package: 'Tode-Client-Roassal2'
           with: [ spec requires: #('Tode-Client-ServerBlocks') ];
-        package: 'TPZ-Talk'
-          with: [ 
-              spec
-                requires: #('Ston' 'Roassal2');
-                repository:
-                    'http://smalltalkhub.com/mc/PierreChanson/TPZ-Talk/main' ];
-        group: 'Visualize' with: #('TPZ-Talk' 'Tode-Client-Roassal2');
+        group: 'Visualize' with: #('Tode-Client-Roassal2' 'GemStone');
         yourself ].
   spec
     for: #'gemstone'

diff --git a/repository/BaselineOfTode.package/BaselineOfTode.class/instance/initializeTools.st b/repository/BaselineOfTode.package/BaselineOfTode.class/instance/initializeTools.st
@@ -1,3 +1,3 @@
-baseline
+initialization
 initializeTools
   Smalltalk at: #'TDStandardTool' ifPresent: [ :cls | cls initializeTools ]
diff --git a/...tory/BaselineOfTode.package/BaselineOfTode.class/instance/pharo30InstallFullTodeClient.st b/...tory/BaselineOfTode.package/BaselineOfTode.class/instance/pharo30InstallFullTodeClient.st
@@ -0,0 +1,44 @@
+initialization
+pharo30InstallFullTodeClient
+  | monoFontName windowProperties bounds |
+  Smalltalk at: #'TODE_CLIENT_INSTALLED' ifPresent: [ ^ self ].
+  Smalltalk os environment
+    at: 'GS_HOME'
+    ifAbsent: [ 
+      "Cannot initialize correctly if $GS_HOME is not defined correctly"
+      ^ self ].
+  self pharo30InstallTodeClient.
+  (Smalltalk at: #'World') perform: #'closeAllWindowsDiscardingChanges'.	"close all windows"
+  (Smalltalk at: #'PolymorphSystemSettings')
+    perform: #'desktopLogoFileName:'
+    with:
+      (((Smalltalk at: #'FileSystem') perform: #'workingDirectory')
+        / 'GemTalkSystemsLogo.png') pathString.
+  (Smalltalk at: #'TaskbarMorph') perform: #'showTaskbar:' with: false.
+  (Smalltalk at: #'NECPreferences') perform: #'enabled:' with: false.
+  Smalltalk at: #'TODE_CLIENT_INSTALLED' put: true.
+  (Smalltalk at: #'TDShell') perform: #'resetWorldMenu'.
+  (Smalltalk at: #'FreeTypeFontProvider') current perform: #'updateFromSystem'.
+  monoFontName := 'Courier New'.	"Windows"
+  (Smalltalk os perform: #'isUnix')
+    ifTrue: [ monoFontName := 'DejaVu Sans Mono' ]
+    ifFalse: [ 
+      (Smalltalk os perform: #'isMacOSX')
+        ifTrue: [ monoFontName := 'Monaco' ]
+        ifFalse: [ 
+          "Windows"
+          monoFontName := 'Consolas' ] ].
+  (Smalltalk at: #'StandardFonts')
+    defaultFont:
+      ((Smalltalk at: #'LogicalFont')
+        perform: #'familyName:pointSize:'
+        with: monoFontName
+        with: 8).
+  (Smalltalk at: #'StandardFonts')
+    perform: #'setAllStandardFontsTo:'
+    with: ((Smalltalk at: #'StandardFonts') perform: #'defaultFont').
+  windowProperties := (Smalltalk at: #'TDAbstractWindowProperties')
+    import: 'jigsaw-medium'.
+  windowProperties installOn: (Smalltalk at: #'TDTopezGemStoneClient').
+  bounds := (windowProperties perform: #'caculateWindowBounds') at: #'transcript'.
+  (Smalltalk at: #'TDShell') perform: #'resizeTranscript:' with: bounds
diff --git a/repository/BaselineOfTode.package/BaselineOfTode.class/instance/pharo30InstallTodeClient.st b/repository/BaselineOfTode.package/BaselineOfTode.class/instance/pharo30InstallTodeClient.st
@@ -0,0 +1,19 @@
+initialization
+pharo30InstallTodeClient
+  "setup paths"
+
+  Deprecation
+    perform: #'showWarning:' with: false;
+    perform: #'raiseWarning:' with: false.
+  (Smalltalk os environment
+    at: 'GS_HOME'
+    ifAbsent: [ 
+      "Cannot initialize correctly if $GS_HOME is not defined correctly"
+      ^ self ])
+    ifNotNil: [ :gs_home | (Smalltalk at: #'TDShell') perform: #'devKitRoot:' with: gs_home ].
+  (Smalltalk os environment at: 'GS_HOME' ifAbsent: [  ])
+    ifNotNil: [ :todeRoot | 
+      "support for GsDevKit_home"
+      (Smalltalk at: #'TDShell')
+        perform: #'todeRoot:'
+        with: todeRoot ]
diff --git a/repository/BaselineOfTode.package/BaselineOfTode.class/methodProperties.json b/repository/BaselineOfTode.package/BaselineOfTode.class/methodProperties.json
@@ -2,5 +2,7 @@
 	"class" : {
 		 },
 	"instance" : {
-		"baseline:" : "dkh 06/26/2015 14:21",
-		"initializeTools" : "dkh 06/06/2013 11:59" } }
+		"baseline:" : "dkh 09/29/2015 17:22",
+		"initializeTools" : "dkh 06/06/2013 11:59",
+		"pharo30InstallFullTodeClient" : "dkh 10/10/2015 16:30",
+		"pharo30InstallTodeClient" : "dkh 10/10/2015 16:36" } }
diff --git a/repository/BaselineOfTode.package/monticello.meta/categories.st b/repository/BaselineOfTode.package/monticello.meta/categories.st
@@ -1 +1 @@
-SystemOrganization addCategory: #'BaselineOfTode'!
+SystemOrganization addCategory: #BaselineOfTode!
diff --git a/repository/BaselineOfTode.package/monticello.meta/version b/repository/BaselineOfTode.package/monticello.meta/version
diff --git a/...escription.class/instance/editTemplate.st → ...iption.extension/instance/editTemplate.st b/...escription.class/instance/editTemplate.st → ...iption.extension/instance/editTemplate.st
@@ -1,4 +1,4 @@
-template
+*Tode-Client-Common
 editTemplate
 	| stream |
 	stream := WriteStream on: String new.
@@ -7,5 +7,5 @@ editTemplate
 		cr;
 		nextPutAll: '('.
 	self editTemplateOn: stream.
-	stream nextPutAll: ') exportTo: TDShell todeSysLocalSessionDescriptionPath.'.
+	stream nextPutAll: ') exportTo: TDShell gsDevKitSessionDescriptionPath.'.
 	^ stream contents
diff --git a/...ription.class/instance/editTemplateOn..st → ...ion.extension/instance/editTemplateOn..st b/...ription.class/instance/editTemplateOn..st → ...ion.extension/instance/editTemplateOn..st
@@ -1,4 +1,4 @@
-template
+*Tode-Client-Common
 editTemplateOn: stream
 	stream
 		nextPutAll: self class name asString;
@@ -39,6 +39,18 @@ editTemplateOn: stream
 		tab;
 		nextPutAll: 'netLDI: ' , self netLDI printString;
 		nextPut: $;.
+	stream
+		cr;
+		tab;
+		nextPutAll: 'netLDIPort: ' , self netLDIPort printString;
+		nextPut: $;.
+	netLDIPortRange notNil
+		ifTrue: [ 
+			stream
+				cr;
+				tab;
+				nextPutAll: 'netLDIPortRange: ' , self netLDIPortRange printString;
+				nextPut: $; ].
 	(gemTask notNil and: [ gemTask isEmpty not ])
 		ifTrue: [ 
 			stream

diff --git a/repository/Tode-Client-Common.package/TDSessionDescription.extension/methodProperties.json b/repository/Tode-Client-Common.package/TDSessionDescription.extension/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"editTemplate" : "dkh 10/2/2015 10:12",
+		"editTemplateOn:" : "dlh 10/5/2015 20:58" } }
diff --git a/repository/Tode-Client-Common.package/TDSessionDescription.extension/properties.json b/repository/Tode-Client-Common.package/TDSessionDescription.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "TDSessionDescription" }
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/forSessionNamed..st b/repository/Tode-Client-Common.package/TDShell.class/class/forSessionNamed..st
@@ -1,7 +1,7 @@
 instance creation
 forSessionNamed: aSessionName
 	| sessionDescription |
-	sessionDescription := TDSessionDescription importFrom: self todeSysLocalSessionDescriptionPath , aSessionName.
+	sessionDescription := TDSessionDescription importFrom: self gsDevKitSessionDescriptionPath , aSessionName.
 	^ self new
 		sessionDescription: sessionDescription;
 		batchMode: true;

diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/gsDevKitSessionDescriptionPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/gsDevKitSessionDescriptionPath.st
@@ -0,0 +1,10 @@
+home
+gsDevKitSessionDescriptionPath
+	^ (Smalltalk os environment
+		at: 'GS_SYS_SESSIONS'
+		ifAbsent: [ 
+			| clientDescriptionsPath "allow new client to connect to an old gsDevKitHome structure" |
+			clientDescriptionsPath := 'client/descriptions/'.
+			self useTodeSys
+				ifTrue: [ ^ self todeClientSysLocalPath , clientDescriptionsPath ].
+			^ self todeRoot , '/' , clientDescriptionsPath ]) , '/'
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/lookupPharoScript..st b/repository/Tode-Client-Common.package/TDShell.class/class/lookupPharoScript..st
@@ -1,4 +1,4 @@
-as yet unclassified
+home
 lookupPharoScript: scriptFilename
 	{(self todeSysLocalPharoPath).
 	(self todeSysDefaultPharoPath)}

diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/open..st b/repository/Tode-Client-Common.package/TDShell.class/class/open..st
@@ -1,3 +1,3 @@
 instance creation
 open: aSessionName
-  ^ self openFrom: self todeSysLocalSessionDescriptionPath, aSessionName
+  ^ self openFrom: self gsDevKitSessionDescriptionPath, aSessionName
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/pharoPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/pharoPath.st
@@ -1,3 +1,3 @@
-as yet unclassified
+home-private
 pharoPath
 	^ 'pharo/'
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/testLogin..st b/repository/Tode-Client-Common.package/TDShell.class/class/testLogin..st
@@ -1,5 +1,5 @@
 testing
 testLogin: aSessionName
 	| sessionDescription |
-	sessionDescription := TDSessionDescription importFrom: self todeSysLocalSessionDescriptionPath , aSessionName.
+	sessionDescription := TDSessionDescription importFrom: self gsDevKitSessionDescriptionPath , aSessionName.
 	^ self testLoginForSessionDescription: sessionDescription
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/testWindowLayout..st b/repository/Tode-Client-Common.package/TDShell.class/class/testWindowLayout..st
@@ -1,7 +1,7 @@
 testing
 testWindowLayout: aSessionName
 	| sessionDescription shell|
-	sessionDescription := TDSessionDescription importFrom: self todeSysLocalSessionDescriptionPath , aSessionName.
+	sessionDescription := TDSessionDescription importFrom: self gsDevKitSessionDescriptionPath , aSessionName.
 	shell := self new.
 	shell openOnSessionDescription: sessionDescription.
 	shell evaluate: 'bin/halt'.

diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeClientRoot..st b/repository/Tode-Client-Common.package/TDShell.class/class/todeClientRoot..st
@@ -0,0 +1,4 @@
+home-private
+todeClientRoot: aString
+	TodeClientRoot := aString.
+	self resetWorldMenu 
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeClientRoot.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeClientRoot.st
@@ -0,0 +1,4 @@
+client
+todeClientRoot
+	TodeClientRoot ifNil: [ ^ self todeRoot ].
+	^ TodeClientRoot
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeClientSysDefaultPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeClientSysDefaultPath.st
@@ -0,0 +1,3 @@
+client
+todeClientSysDefaultPath
+	^self todeClientSysPath , '/default/' 
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeClientSysLocalPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeClientSysLocalPath.st
@@ -0,0 +1,3 @@
+client
+todeClientSysLocalPath
+	^self todeClientSysPath , '/local/' 
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeClientSysPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeClientSysPath.st
@@ -0,0 +1,3 @@
+client
+todeClientSysPath
+	^self todeClientRoot , '/sys/' 
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeMenuCommandOn..st b/repository/Tode-Client-Common.package/TDShell.class/class/todeMenuCommandOn..st
@@ -2,7 +2,7 @@ system menu
 todeMenuCommandOn: aBuilder
 	<todeWorldMenu>
 	| sessionDescriptionDir |
-	sessionDescriptionDir := self todeSysLocalSessionDescriptionPath asFileReference.
+	sessionDescriptionDir := self gsDevKitSessionDescriptionPath asFileReference.
 	sessionDescriptionDir exists
 		ifTrue: [ 
 			(aBuilder item: #'Open Shell')
@@ -16,7 +16,7 @@ todeMenuCommandOn: aBuilder
 				target: self;
 				icon: Smalltalk ui icons configIcon;
 				enabled: currentShell isNil.
-			(aBuilder item: #'Workspace')
+			(aBuilder item: #Workspace)
 				parent: #'Open Tool';
 				order: 2.0;
 				target: self;
@@ -35,5 +35,7 @@ todeMenuCommandOn: aBuilder
 				target: self.
 			(sessionDescriptionDir files sorted: [ :a :b | a basename <= b basename ])
 				do: [ :file | 
-					file basename = 'README.md'
+					| base |
+					base := file basename.
+					((base beginsWith: 'README') or: [ base beginsWith: '.' ])
 						ifFalse: [ self importSessionDescriptionFrom: file for: aBuilder ] ] ]
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todePharoPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todePharoPath.st
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultClientScriptsPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultClientScriptsPath.st
@@ -1,3 +1,3 @@
 home
 todeSysDefaultClientScriptsPath
-	^self todeSysDefaultPath , self clientScriptsPath
+	^self todeClientSysDefaultPath , self clientScriptsPath
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultPath.st
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultPharoPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultPharoPath.st
@@ -1,3 +1,3 @@
-as yet unclassified
+home
 todeSysDefaultPharoPath
-	^self todeSysDefaultPath , self pharoPath
+	^self todeClientSysDefaultPath , self pharoPath
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultServerScriptsPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultServerScriptsPath.st
@@ -1,3 +1,3 @@
 home
 todeSysDefaultServerScriptsPath
-	^self todeSysDefaultPath , self serverScriptsPath
+	^ self todeClientSysDefaultPath , self serverScriptsPath
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultWindowLayoutPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysDefaultWindowLayoutPath.st
@@ -1,3 +1,3 @@
 home
 todeSysDefaultWindowLayoutPath
-	^self todeSysDefaultPath ,  self windowLayoutPath
+	^self todeClientSysDefaultPath ,  self windowLayoutPath
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalClientScriptsPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalClientScriptsPath.st
@@ -1,3 +1,3 @@
 home
 todeSysLocalClientScriptsPath
-	^self todeSysLocalPath , self clientScriptsPath
+	^self todeClientSysLocalPath , self clientScriptsPath
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalPath.st
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalPharoPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalPharoPath.st
@@ -1,3 +1,3 @@
-as yet unclassified
+home
 todeSysLocalPharoPath
-	^self todeSysLocalPath , self pharoPath
+	^self todeClientSysLocalPath , self pharoPath
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalServerScriptsPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalServerScriptsPath.st
@@ -1,3 +1,3 @@
 home
 todeSysLocalServerScriptsPath
-	^self todeSysLocalPath , self serverScriptsPath
+	^ self todeClientSysLocalPath , self serverScriptsPath
diff --git a/...tory/Tode-Client-Common.package/TDShell.class/class/todeSysLocalSessionDescriptionPath.st b/...tory/Tode-Client-Common.package/TDShell.class/class/todeSysLocalSessionDescriptionPath.st
diff --git a/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalWindowLayoutPath.st b/repository/Tode-Client-Common.package/TDShell.class/class/todeSysLocalWindowLayoutPath.st
@@ -1,3 +1,3 @@
 home
 todeSysLocalWindowLayoutPath
-	^self todeSysLocalPath , self windowLayoutPath
+	^self todeClientSysLocalPath , self windowLayoutPath