From da304b220e6cb5bcb7c333a8a37bb0446f81ab74 Mon Sep 17 00:00:00 2001 From: Dale Henrichs Date: Wed, 2 Jul 2014 21:00:48 -0700 Subject: [PATCH] Issue #27: add dynamic inst vars to Seaside inspector --- .../instance/inspectorFields.st | 17 +++++++++-------- .../Object.extension/methodProperties.json | 2 +- .../properties.json | 2 +- .../properties.json | 2 +- .../WAObjectLog.class/properties.json | 2 +- .../WAObjectLogInspector.class/properties.json | 2 +- .../properties.json | 2 +- .../WAStringInspector.class/properties.json | 2 +- .../monticello.meta/version | 2 +- 9 files changed, 17 insertions(+), 16 deletions(-) diff --git a/repository/Seaside-GemStone-Tools-Production.package/Object.extension/instance/inspectorFields.st b/repository/Seaside-GemStone-Tools-Production.package/Object.extension/instance/inspectorFields.st index be7fe2b8..811f3e0b 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/Object.extension/instance/inspectorFields.st +++ b/repository/Seaside-GemStone-Tools-Production.package/Object.extension/instance/inspectorFields.st @@ -1,10 +1,11 @@ *seaside-gemStone-tools-production inspectorFields - | members | - members := Array new writeStream. - self class allInstVarNames withIndexDo: [ :each :index | - members nextPut: each -> (self instVarAt: index) ]. - self class isVariable ifTrue: [ - 1 to: self size do: [ :index | - members nextPut: index -> (self at: index) ] ]. - ^ members contents \ No newline at end of file + | members | + members := Array new writeStream. + self class allInstVarNames + withIndexDo: [ :each :index | members nextPut: each -> (self instVarAt: index) ]. + self dynamicInstanceVariables + withIndexDo: [ :each :index | members nextPut: ('*' , each) -> (self dynamicInstVarAt: each) ]. + self class isVariable + ifTrue: [ 1 to: self size do: [ :index | members nextPut: index -> (self at: index) ] ]. + ^ members contents \ No newline at end of file diff --git a/repository/Seaside-GemStone-Tools-Production.package/Object.extension/methodProperties.json b/repository/Seaside-GemStone-Tools-Production.package/Object.extension/methodProperties.json index 29c4d7d9..dc09089d 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/Object.extension/methodProperties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/Object.extension/methodProperties.json @@ -2,4 +2,4 @@ "class" : { }, "instance" : { - "inspectorFields" : "dkh 11/10/2009 14:25" } } + "inspectorFields" : "dkh 07/02/2014 20:56" } } diff --git a/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneMaintenanceTask.class/properties.json b/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneMaintenanceTask.class/properties.json index 4521180c..58683ef0 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneMaintenanceTask.class/properties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneMaintenanceTask.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ "Tasks" ], - "commentStamp" : "KenTreis 08/10/2010 01:54", + "commentStamp" : "", "instvars" : [ "name", "frequency", diff --git a/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneRunSeasideGems.class/properties.json b/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneRunSeasideGems.class/properties.json index 6fd6cb63..eff0339b 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneRunSeasideGems.class/properties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/WAGemStoneRunSeasideGems.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ "Default" ], - "commentStamp" : "KenTreis 08/10/2010 01:54", + "commentStamp" : "", "instvars" : [ "name", "adaptorClass", diff --git a/repository/Seaside-GemStone-Tools-Production.package/WAObjectLog.class/properties.json b/repository/Seaside-GemStone-Tools-Production.package/WAObjectLog.class/properties.json index b6a37756..4af8cb8f 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/WAObjectLog.class/properties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/WAObjectLog.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "KenTreis 08/10/2010 01:54", + "commentStamp" : "", "instvars" : [ "summaryReport", "report", diff --git a/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogInspector.class/properties.json b/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogInspector.class/properties.json index 187eadde..18915fef 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogInspector.class/properties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogInspector.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "KenTreis 08/10/2010 01:54", + "commentStamp" : "", "instvars" : [ "path", "selected", diff --git a/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogTableReport.class/properties.json b/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogTableReport.class/properties.json index 95a37cdb..adae1fdc 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogTableReport.class/properties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/WAObjectLogTableReport.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "KenTreis 08/10/2010 01:54", + "commentStamp" : "", "instvars" : [ ], "name" : "WAObjectLogTableReport", diff --git a/repository/Seaside-GemStone-Tools-Production.package/WAStringInspector.class/properties.json b/repository/Seaside-GemStone-Tools-Production.package/WAStringInspector.class/properties.json index 849961d7..09fc2d52 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/WAStringInspector.class/properties.json +++ b/repository/Seaside-GemStone-Tools-Production.package/WAStringInspector.class/properties.json @@ -4,7 +4,7 @@ ], "classvars" : [ ], - "commentStamp" : "KenTreis 08/10/2010 01:54", + "commentStamp" : "", "instvars" : [ "string" ], "name" : "WAStringInspector", diff --git a/repository/Seaside-GemStone-Tools-Production.package/monticello.meta/version b/repository/Seaside-GemStone-Tools-Production.package/monticello.meta/version index 485f041c..d54ea3e4 100644 --- a/repository/Seaside-GemStone-Tools-Production.package/monticello.meta/version +++ b/repository/Seaside-GemStone-Tools-Production.package/monticello.meta/version @@ -1 +1 @@ -(name 'Seaside-GemStone-Tools-Production-JohanBrichau.15' message 'Added the Zinc server' id 'a302d80e-0369-4260-aba7-d80a5217f988' date '12/15/2013' time '12:55:22' author 'JohanBrichau' ancestors ((name 'Seaside-GemStone-Tools-Production-KenTreis.14' message 'In WAGemStoneRunSeasideGems, use System stoneName instead of relying on it being "seaside"' id 'e84d043c-3ea6-4c7e-bbe6-127f257fd609' date '02/11/2012' time '11:29:06' author 'KenTreis' ancestors ((name 'Seaside-GemStone-Tools-Production-dkh.13' message '3.0.6.1 (dkh.338): - fix Issue 291: Maintenance Gem Topaz Exit [Seaside 3.0 / GemStone 3.0] http://code.google.com/p/glassdb/issues/detail?id=291 ' id '75b0779a-73c5-4a0a-b8a9-924eca9ab3c9' date '10/14/2011' time '17:43:35' author 'dkh' ancestors ((name 'Seaside-GemStone-Tools-Production-dkh.12' message '3.0.5.1 (dkh.317): - open 3.0.5.1 for development... GemStone-specific branch aimed at bypassing use of class instance variables (etc.) to allow the GemStone 3.0 version of Seaside to run against a read only SymbolDictionary. Some class instance variables are mapped to session temps and some are mapped to user-specific storage in UserGlobals. - class instance variables in WADispatcher, WAFileHandler, WAFileLibrary, WASharedConfiguration, WASystemConfiguration, WAEnvironment and WAAdmin mapped to persistent per-user storage - class instance variables in WAKeyGenerator mapped to session state - fix WAGemStoneMaintenanceTask class>>maintenanceTaskMarkForCollect will work in GemStone 2.x and 3.x' id 'adacb752-d539-4bcb-927c-898460cdfba9' date '07/29/2011' time '18:12:14' author 'dkh' ancestors ((name 'Seaside-GemStone-Tools-Production-PaulDeBruicker.10' message 'Added two classes that together can start|stop|restart Gems running arbitrary servers on arbitrary ports.' id '37031f21-31e3-4b96-9413-1c878bab17b4' date '04/15/2011' time '16:43:38' author 'PaulDeBruicker' ancestors ((name 'Seaside-GemStone-Tools-Production-NorbertHartl.9' message 'WAGemStoneMaintenanceTask class>>taskNamed: was lacking the ^ ' id '3428b07d-a92c-493a-802d-efe19252e373' date '10/07/2010' time '18:44:35' author 'NorbertHartl' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.8' message '- dictionaries should return #associations for inspectorFields ... #do: doesn''t always traverse associations...' id '371c54df-5d11-4b3e-b6c9-00c1bbd4a6d1' date '08/24/2010' time '09:53:40' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.7' message '- add WAGemStoneRunSeasideGems for controlling the ports and adaptor that is used by the runSeaside30 script' id '9f3614fa-3081-46a6-9d2f-b780795c6120' date '07/09/1910' time '13:23:00' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.6' message '- initialization comment ... example for installing WAObjectLog' id 'b78cc8ba-47d4-4b54-a743-288586714c70' date '07/06/1910' time '20:13:09' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.5' message '- WAObjectLog component needs to be explicitly registered in production - WAGemStoneMaintenanceTask added so that seaside applications can register a maintenance vm task (ala crontab)' id '65747bc2-0e1b-44e3-a80f-7026bb8db36e' date '07/06/1910' time '17:17:09' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.4' message '- WAObjectLogInspector doesn''t need to the notion of #current' id '90ca5c3c-cd96-4c66-b580-58ff541fd16e' date '07/06/1910' time '13:34:01' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.3' message '- move #inspectorFields to Seaside-GemStone-Tools-Production' id 'ee06ab2a-32ec-42d7-a7ab-2460a0a2d7e1' date '07/06/1910' time '12:05:47' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.2' message '- duplicate WAInspector so that ObjectLog can be loaded into production extent' id '23a1ec26-ab7b-42ef-9aed-00703c9f84d9' date '07/06/1910' time '11:35:54' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.1' message '- object log tool ported to Seaisde3.0 ' id '771df427-93de-4cf5-bab3-7af69b08dc23' date '06/20/1910' time '16:07:55' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Seaside-GemStone-Tools-Production-dkh.11' message '- better inspector display for tasks' id '21aa7b02-3000-41a9-a28e-270a174996e3' date '05/31/2011' time '15:23:01' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file +(name 'Seaside-GemStone-Tools-Production-dkh.16' message 'Issue #27: add dynamic inst vars to Seaside inspector' id '37104b09-091f-4c23-b9e9-bcc01995a29f' date '07/02/2014' time '21:00:46' author 'dkh' ancestors ((name 'Seaside-GemStone-Tools-Production-JohanBrichau.15' message 'Added the Zinc server' id 'a302d80e-0369-4260-aba7-d80a5217f988' date '12/15/2013' time '12:55:22' author 'JohanBrichau' ancestors ((name 'Seaside-GemStone-Tools-Production-KenTreis.14' message 'In WAGemStoneRunSeasideGems, use System stoneName instead of relying on it being "seaside"' id 'e84d043c-3ea6-4c7e-bbe6-127f257fd609' date '02/11/2012' time '11:29:06' author 'KenTreis' ancestors ((name 'Seaside-GemStone-Tools-Production-dkh.13' message '3.0.6.1 (dkh.338): - fix Issue 291: Maintenance Gem Topaz Exit [Seaside 3.0 / GemStone 3.0] http://code.google.com/p/glassdb/issues/detail?id=291 ' id '75b0779a-73c5-4a0a-b8a9-924eca9ab3c9' date '10/14/2011' time '17:43:35' author 'dkh' ancestors ((name 'Seaside-GemStone-Tools-Production-dkh.12' message '3.0.5.1 (dkh.317): - open 3.0.5.1 for development... GemStone-specific branch aimed at bypassing use of class instance variables (etc.) to allow the GemStone 3.0 version of Seaside to run against a read only SymbolDictionary. Some class instance variables are mapped to session temps and some are mapped to user-specific storage in UserGlobals. - class instance variables in WADispatcher, WAFileHandler, WAFileLibrary, WASharedConfiguration, WASystemConfiguration, WAEnvironment and WAAdmin mapped to persistent per-user storage - class instance variables in WAKeyGenerator mapped to session state - fix WAGemStoneMaintenanceTask class>>maintenanceTaskMarkForCollect will work in GemStone 2.x and 3.x' id 'adacb752-d539-4bcb-927c-898460cdfba9' date '07/29/2011' time '18:12:14' author 'dkh' ancestors ((name 'Seaside-GemStone-Tools-Production-PaulDeBruicker.10' message 'Added two classes that together can start|stop|restart Gems running arbitrary servers on arbitrary ports.' id '37031f21-31e3-4b96-9413-1c878bab17b4' date '04/15/2011' time '16:43:38' author 'PaulDeBruicker' ancestors ((name 'Seaside-GemStone-Tools-Production-NorbertHartl.9' message 'WAGemStoneMaintenanceTask class>>taskNamed: was lacking the ^ ' id '3428b07d-a92c-493a-802d-efe19252e373' date '10/07/2010' time '18:44:35' author 'NorbertHartl' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.8' message '- dictionaries should return #associations for inspectorFields ... #do: doesn''t always traverse associations...' id '371c54df-5d11-4b3e-b6c9-00c1bbd4a6d1' date '08/24/2010' time '09:53:40' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.7' message '- add WAGemStoneRunSeasideGems for controlling the ports and adaptor that is used by the runSeaside30 script' id '9f3614fa-3081-46a6-9d2f-b780795c6120' date '07/09/1910' time '13:23:00' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.6' message '- initialization comment ... example for installing WAObjectLog' id 'b78cc8ba-47d4-4b54-a743-288586714c70' date '07/06/1910' time '20:13:09' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.5' message '- WAObjectLog component needs to be explicitly registered in production - WAGemStoneMaintenanceTask added so that seaside applications can register a maintenance vm task (ala crontab)' id '65747bc2-0e1b-44e3-a80f-7026bb8db36e' date '07/06/1910' time '17:17:09' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.4' message '- WAObjectLogInspector doesn''t need to the notion of #current' id '90ca5c3c-cd96-4c66-b580-58ff541fd16e' date '07/06/1910' time '13:34:01' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.3' message '- move #inspectorFields to Seaside-GemStone-Tools-Production' id 'ee06ab2a-32ec-42d7-a7ab-2460a0a2d7e1' date '07/06/1910' time '12:05:47' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.2' message '- duplicate WAInspector so that ObjectLog can be loaded into production extent' id '23a1ec26-ab7b-42ef-9aed-00703c9f84d9' date '07/06/1910' time '11:35:54' author 'DaleHenrichs' ancestors ((name 'Seaside-GemStone-Tools-Production-DaleHenrichs.1' message '- object log tool ported to Seaisde3.0 ' id '771df427-93de-4cf5-bab3-7af69b08dc23' date '06/20/1910' time '16:07:55' author 'DaleHenrichs' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())(name 'Seaside-GemStone-Tools-Production-dkh.11' message '- better inspector display for tasks' id '21aa7b02-3000-41a9-a28e-270a174996e3' date '05/31/2011' time '15:23:01' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file