Skip to content

Commit da304b2

Browse files
dalehenrichdalehenrich
committed
Issue #27: add dynamic inst vars to Seaside inspector
1 parent b15e219 commit da304b2

File tree

9 files changed

+17
-16
lines changed

9 files changed

+17
-16
lines changed

‎repository/Seaside-GemStone-Tools-Production.package/Object.extension/instance/inspectorFields.st

+9-8
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,11 @@
11
*seaside-gemStone-tools-production
22
inspectorFields
3-
| members |
4-
members := Array new writeStream.
5-
self class allInstVarNames withIndexDo: [ :each :index |
6-
members nextPut: each -> (self instVarAt: index) ].
7-
self class isVariable ifTrue: [
8-
1 to: self size do: [ :index |
9-
members nextPut: index -> (self at: index) ] ].
10-
^ members contents
3+
| members |
4+
members := Array new writeStream.
5+
self class allInstVarNames
6+
withIndexDo: [ :each :index | members nextPut: each -> (self instVarAt: index) ].
7+
self dynamicInstanceVariables
8+
withIndexDo: [ :each :index | members nextPut: ('*' , each) -> (self dynamicInstVarAt: each) ].
9+
self class isVariable
10+
ifTrue: [ 1 to: self size do: [ :index | members nextPut: index -> (self at: index) ] ].
11+
^ members contents

‎repository/Seaside-GemStone-Tools-Production.package/Object.extension/methodProperties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,4 +2,4 @@
22
"class" : {
33
},
44
"instance" : {
5-
"inspectorFields" : "dkh 11/10/2009 14:25" } }
5+
"inspectorFields" : "dkh 07/02/2014 20:56" } }

‎repository/Seaside-GemStone-Tools-Production.package/WAGemStoneMaintenanceTask.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
],
55
"classvars" : [
66
"Tasks" ],
7-
"commentStamp" : "KenTreis 08/10/2010 01:54",
7+
"commentStamp" : "",
88
"instvars" : [
99
"name",
1010
"frequency",

‎repository/Seaside-GemStone-Tools-Production.package/WAGemStoneRunSeasideGems.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
],
55
"classvars" : [
66
"Default" ],
7-
"commentStamp" : "KenTreis 08/10/2010 01:54",
7+
"commentStamp" : "",
88
"instvars" : [
99
"name",
1010
"adaptorClass",

‎repository/Seaside-GemStone-Tools-Production.package/WAObjectLog.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
],
55
"classvars" : [
66
],
7-
"commentStamp" : "KenTreis 08/10/2010 01:54",
7+
"commentStamp" : "",
88
"instvars" : [
99
"summaryReport",
1010
"report",

‎repository/Seaside-GemStone-Tools-Production.package/WAObjectLogInspector.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
],
55
"classvars" : [
66
],
7-
"commentStamp" : "KenTreis 08/10/2010 01:54",
7+
"commentStamp" : "",
88
"instvars" : [
99
"path",
1010
"selected",

‎repository/Seaside-GemStone-Tools-Production.package/WAObjectLogTableReport.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
],
55
"classvars" : [
66
],
7-
"commentStamp" : "KenTreis 08/10/2010 01:54",
7+
"commentStamp" : "",
88
"instvars" : [
99
],
1010
"name" : "WAObjectLogTableReport",

‎repository/Seaside-GemStone-Tools-Production.package/WAStringInspector.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
],
55
"classvars" : [
66
],
7-
"commentStamp" : "KenTreis 08/10/2010 01:54",
7+
"commentStamp" : "",
88
"instvars" : [
99
"string" ],
1010
"name" : "WAStringInspector",

‎repository/Seaside-GemStone-Tools-Production.package/monticello.meta/version

+1-1
Original file line numberDiff line numberDiff line change
@@ -1 +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 ())
1+
(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 ())

0 commit comments

Comments
 (0)