Minor tweaks in stack view
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 30 Sep 2014 09:55:03 +0100
changeset 34 cda31dfd5386
parent 33 25ec72596ce3
child 35 f6e4876af2e7
Minor tweaks in stack view * redraw on stopped/running events * new icons for running/terminated thread groups
VDBIconLibrary.st
VDBStackApplication.st
VDBThreadGroupPresenter.st
application/applicationWinRC.rc
tests/tests.rc
vdb.rc
--- a/VDBIconLibrary.st	Tue Sep 30 09:52:57 2014 +0100
+++ b/VDBIconLibrary.st	Tue Sep 30 09:55:03 2014 +0100
@@ -188,6 +188,30 @@
 @@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[136 152 192 144 160 192 152 168 200 160 176 200 168 184 208 40 80 136 48 88 144 56 96 152 64 104 160 136 160 192 64 104 152 40 88 144 48 96 144 160 184 208 80 152 208 88 160 216 104 168 216 72 152 208 96 168 216 120 176 216 128 184 224 144 192 224 208 240 248 232 248 248 240 248 248 97 95 61 97 95 65 120 108 54 113 102 58 135 114 50 105 95 61 128 108 50 128 108 54 97 89 65 150 121 47 143 114 47 113 95 58 255 255 255 255 255 255 232 248 248 144 192 224]; mask:((ImageMask new) width:16; height:16; bits:(ByteArray fromPackedString:'_?9??7??_?=??7??_?=??7??_?=??7??_?=??7??@@@b') ; yourself); yourself]
 !
 
+threadGroupTerminated16x16
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self threadGroupTerminated16x16 inspect
+     ImageEditor openOnClass:self andSelector:#threadGroupTerminated16x16
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'VDBIconLibrary threadGroupTerminated16x16'
+        ifAbsentPut:[(Depth8Image new) width:16; height:16; bits:(ByteArray fromPackedString:'
+@@@A@ LCA@TEAPTEAPTEA @GA0 IA (KC@4MCP4MCPT@@PDB@0LDAPTNC TEAPTE@@<PDA@PDA@PDA@PDA@PC0@ODADQDQDQDQDQDQDQDP<@C1@QDQDQDQDQ
+DQDQDQDO@AHPDQDQDQDQDQDQDQDQD @SDADQDQDQDQDQDQDQDQL@EA@UDQDQEQDQEQDQDQTV@A\PEQDQDQDQDQTUEQTUE0@XDATUEQTUEQTUEQTUEQ @FA@U
+EQTUEQTUEQTUEQTY@A(PEQTUEQTUEQTUEQTUF @[D@@@@@@@@@@@@@@@@A0@GQ4]GQ4]GQ4]GQ4]GQ4]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 255 255 73 73 73 79 79 79 81 81 81 86 86 86 89 89 89 151 151 151 133 133 133 136 136 136 144 144 144 153 153 153 163 163 163 171 171 171 180 180 180 96 96 96 122 122 122 231 231 231 243 243 243 116 116 116 113 113 113 108 108 108 245 245 245 108 108 108 106 106 106 100 100 100 96 96 96 94 94 94 92 92 92 92 92 92 89 89 89]; mask:((ImageMask new) width:16; height:16; bits:(ByteArray fromPackedString:'_?9??7??_?=??7??_?=??7??_?=??7??_?=??7??@@@b') ; yourself); yourself]
+!
+
 threadRunning16x16
     ^ self thread_obj
 
--- a/VDBStackApplication.st	Tue Sep 30 09:52:57 2014 +0100
+++ b/VDBStackApplication.st	Tue Sep 30 09:55:03 2014 +0100
@@ -264,7 +264,9 @@
         ^ self.
     ].
     root := self internalListHolder root.
-    list := debugger inferiors collect:[ :inferior | VDBThreadGroupPresenter new setThreadGroup: inferior; parent: root ].  
+    list := debugger inferiors 
+                        select: [ :inferior | inferior isRunning or:[inferior isStopped] ]
+                        thenCollect:[ :inferior | VDBThreadGroupPresenter new setThreadGroup: inferior; parent: root ].  
     root children: list.  
     root expand.
     root children size == 1 ifTrue:[ 
@@ -278,7 +280,7 @@
     ]
 
     "Created: / 20-09-2014 / 23:05:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 30-09-2014 / 00:02:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2014 / 00:56:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateInternalSelection
--- a/VDBThreadGroupPresenter.st	Tue Sep 30 09:52:57 2014 +0100
+++ b/VDBThreadGroupPresenter.st	Tue Sep 30 09:55:03 2014 +0100
@@ -12,10 +12,11 @@
 icon
     threadGroup isRunning ifTrue:[ ^ VDBIconLibrary threadGroupRunning16x16 ].
     threadGroup isStopped ifTrue:[ ^ VDBIconLibrary threadGroupStopped16x16 ].
+    threadGroup isDead    ifTrue:[ ^ VDBIconLibrary threadGroupTerminated16x16 ].
     ^ nil
 
     "Created: / 22-09-2014 / 22:13:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 30-09-2014 / 00:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-09-2014 / 00:55:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 label
--- a/application/applicationWinRC.rc	Tue Sep 30 09:52:57 2014 +0100
+++ b/application/applicationWinRC.rc	Tue Sep 30 09:55:03 2014 +0100
@@ -39,7 +39,7 @@
       VALUE "LegalCopyright", "Copyring (C) 2014 Jan Vrany\0"
       VALUE "ProductName", "Visual Debugger\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Mon, 29 Sep 2014 23:32:09 GMT\0"
+      VALUE "ProductDate", "Tue, 30 Sep 2014 08:53:44 GMT\0"
     END
   END
 
--- a/tests/tests.rc	Tue Sep 30 09:52:57 2014 +0100
+++ b/tests/tests.rc	Tue Sep 30 09:55:03 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Mon, 29 Sep 2014 23:32:08 GMT\0"
+      VALUE "ProductDate", "Tue, 30 Sep 2014 08:53:43 GMT\0"
     END
 
   END
--- a/vdb.rc	Tue Sep 30 09:52:57 2014 +0100
+++ b/vdb.rc	Tue Sep 30 09:55:03 2014 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "LibraryName\0"
       VALUE "ProductVersion", "6.2.4.0\0"
-      VALUE "ProductDate", "Mon, 29 Sep 2014 23:32:06 GMT\0"
+      VALUE "ProductDate", "Tue, 30 Sep 2014 08:53:42 GMT\0"
     END
 
   END