Skip to content

Commit

Permalink
Issue #27: add dynamic inst vars to Seaside inspector
Browse files Browse the repository at this point in the history
  • Loading branch information
@dalehenrich
dalehenrich committed Jul 3, 2014
1 parent b15e219 commit da304b2
Show file tree
Hide file tree
Showing 9 changed files with 17 additions and 16 deletions.
17 changes: 9 additions & 8 deletions ...ry/Seaside-GemStone-Tools-Production.package/Object.extension/instance/inspectorFields.st
View file
Original file line number Diff line number Diff line change
@@ -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
| 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
2 changes: 1 addition & 1 deletion repository/Seaside-GemStone-Tools-Production.package/Object.extension/methodProperties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@
"class" : {
},
"instance" : {
"inspectorFields" : "dkh 11/10/2009 14:25" } }
"inspectorFields" : "dkh 07/02/2014 20:56" } }
2 changes: 1 addition & 1 deletion ...Seaside-GemStone-Tools-Production.package/WAGemStoneMaintenanceTask.class/properties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
],
"classvars" : [
"Tasks" ],
"commentStamp" : "KenTreis 08/10/2010 01:54",
"commentStamp" : "",
"instvars" : [
"name",
"frequency",
Expand Down
2 changes: 1 addition & 1 deletion .../Seaside-GemStone-Tools-Production.package/WAGemStoneRunSeasideGems.class/properties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
],
"classvars" : [
"Default" ],
"commentStamp" : "KenTreis 08/10/2010 01:54",
"commentStamp" : "",
"instvars" : [
"name",
"adaptorClass",
Expand Down
2 changes: 1 addition & 1 deletion repository/Seaside-GemStone-Tools-Production.package/WAObjectLog.class/properties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
],
"classvars" : [
],
"commentStamp" : "KenTreis 08/10/2010 01:54",
"commentStamp" : "",
"instvars" : [
"summaryReport",
"report",
Expand Down
2 changes: 1 addition & 1 deletion ...tory/Seaside-GemStone-Tools-Production.package/WAObjectLogInspector.class/properties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
],
"classvars" : [
],
"commentStamp" : "KenTreis 08/10/2010 01:54",
"commentStamp" : "",
"instvars" : [
"path",
"selected",
Expand Down
2 changes: 1 addition & 1 deletion ...ry/Seaside-GemStone-Tools-Production.package/WAObjectLogTableReport.class/properties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
],
"classvars" : [
],
"commentStamp" : "KenTreis 08/10/2010 01:54",
"commentStamp" : "",
"instvars" : [
],
"name" : "WAObjectLogTableReport",
Expand Down
2 changes: 1 addition & 1 deletion repository/Seaside-GemStone-Tools-Production.package/WAStringInspector.class/properties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
],
"classvars" : [
],
"commentStamp" : "KenTreis 08/10/2010 01:54",
"commentStamp" : "",
"instvars" : [
"string" ],
"name" : "WAStringInspector",
Expand Down
2 changes: 1 addition & 1 deletion repository/Seaside-GemStone-Tools-Production.package/monticello.meta/version
View file
Original file line number Diff line number Diff line change
@@ -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 ())
(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 ())
Expand Down

0 comments on commit da304b2

Please sign in to comment.