a little bit of applicationEnvironment tweaking

dalehenrich · Oct 30, 2017 · bc3c85a · bc3c85a
1 parent 461e468
commit bc3c85a
Show file tree

Hide file tree

Showing 5 changed files with 16 additions and 9 deletions.
diff --git a/repository/Topez-Server-Core.package/TDShellTool.class/instance/applicationEnvironment.st b/repository/Topez-Server-Core.package/TDShellTool.class/instance/applicationEnvironment.st
@@ -0,0 +1,3 @@
+environment
+applicationEnvironment
+  ^ self topez applicationEnvironment
diff --git a/...sitory/Topez-Server-Core.package/TDShellTool.class/instance/clsClassesWithClassHistory.st b/...sitory/Topez-Server-Core.package/TDShellTool.class/instance/clsClassesWithClassHistory.st
@@ -1,9 +1,12 @@
 cls
 clsClassesWithClassHistory
   | classes symbolList |
-  symbolList := self topez applicationEnvironment methodCompilationSymbolList.
+  symbolList := self applicationEnvironment methodCompilationSymbolList.
   classes := IdentitySet new.
-  symbolList do: [ :symbolDict | symbolDict
-        do: [ :eachGlobal | (eachGlobal isClass and: [ eachGlobal classHistory size > 1 ])
+  symbolList
+    do: [ :symbolDict | 
+      symbolDict
+        do: [ :eachGlobal | 
+          (eachGlobal isClass and: [ eachGlobal classHistory size > 1 ])
             ifTrue: [ classes addAll: eachGlobal classHistory ] ] ].
   ^ classes
diff --git a/repository/Topez-Server-Core.package/TDShellTool.class/instance/clscopy.to.category..st b/repository/Topez-Server-Core.package/TDShellTool.class/instance/clscopy.to.category..st
@@ -5,14 +5,14 @@ clscopy: theClass to: newName category: category
     ifTrue: [ ^ self error: newName , ' already exists' ].
   definition := theClass
     definitionWithClassName: newName
-    superClassName: (theClass superClass == nil
+    superClassName:
+      (theClass superClass == nil
         ifTrue: [ 'nil' ]
         ifFalse: [ theClass superClass name ]).
   newClass := self topez createClassFrom: definition.
   newClass
     copyMethodsFrom: theClass
-      dictionaries:
-        self topez applicationEnvironment methodCompilationSymbolList;
+      dictionaries: self applicationEnvironment methodCompilationSymbolList;
     classComment: theClass classComment;
     category: category.
   ^ newClass
diff --git a/repository/Topez-Server-Core.package/TDShellTool.class/methodProperties.json b/repository/Topez-Server-Core.package/TDShellTool.class/methodProperties.json
@@ -133,6 +133,7 @@
 		"wsManPage" : "dkh 05/05/2014 08:14" },
 	"instance" : {
 		"abort" : "dkh 12/21/2012 11:23",
+		"applicationEnvironment" : "dkh 10/30/2017 16:28",
 		"begin" : "dkh 12/27/2014 07:55",
 		"browseCategories" : "dkh 04/29/2014 07:39",
 		"browseCategories:label:" : "dkh 11/18/2015 13:31",
@@ -168,7 +169,7 @@
 		"cat" : "dkh 06/05/2013 21:32",
 		"cd" : "dkh 06/05/2013 10:44",
 		"clsBrowseClassHistoryFor:" : "dkh 05/22/2016 08:59",
-		"clsClassesWithClassHistory" : "dkh 12/28/2016 18:02",
+		"clsClassesWithClassHistory" : "dkh 10/30/2017 16:28",
 		"clsInteractiveCreateSubclassOf:category:" : "dkh 10/24/2015 16:27",
 		"clsInteractiveCreateSubclassWithTemplate:" : "dkh 12/28/2016 16:44",
 		"clsRemoveClassFromClassHistory:" : "dkh 09/12/2015 12:13",
@@ -180,7 +181,7 @@
 		"clscomment:" : "dkh 05/24/2014 09:23",
 		"clscopy" : "dkh 11/05/2015 10:21",
 		"clscopy:to:" : "dkh 04/27/2014 08:30",
-		"clscopy:to:category:" : "dkh 12/28/2016 18:03",
+		"clscopy:to:category:" : "dkh 10/30/2017 16:28",
 		"clscreate" : "dkh 11/05/2015 10:23",
 		"clscreate:subclassOf:category:" : "dkh 10/31/2015 09:26",
 		"clscreate:subclassOf:instanceVariableNames:classVariableNames:category:" : "dkh 10/31/2015 09:26",

diff --git a/repository/Topez-Server-Core.package/monticello.meta/version b/repository/Topez-Server-Core.package/monticello.meta/version