>From c2de160de785b433a595c350d9035e422ce431b1 Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio
Date: Mon, 27 May 2013 15:34:41 +0200
Subject: [PATCH] Do not display useless information in the debugger
---
packages/visualgst/Debugger/Extensions.st | 44 ++++++++++++++++++++++
packages/visualgst/Debugger/GtkContextWidget.st | 35 +++++++++++++++++
packages/visualgst/Debugger/GtkDebugger.st | 41 ++++++++++++++++++++
packages/visualgst/Debugger/GtkStackInspector.st | 35 +++++++++++++++++
.../visualgst/Debugger/GtkStackInspectorView.st | 35 +++++++++++++++++
packages/visualgst/Extensions.st | 10 -----
packages/visualgst/package.xml | 2 +
7 files changed, 192 insertions(+), 10 deletions(-)
create mode 100644 packages/visualgst/Debugger/Extensions.st
diff --git a/packages/visualgst/Debugger/Extensions.st b/packages/visualgst/Debugger/Extensions.st
new file mode 100644
index 0000000..8e73074
--- /dev/null
+++ b/packages/visualgst/Debugger/Extensions.st
@@ -0,0 +1,44 @@
+"======================================================================
+|
+| GtkDebugger extensions
+|
+ ======================================================================"
+
+"======================================================================
+|
+| Copyright (c) 2013
+| Gwenael Casaccio ,
+|
+|
+| This file is part of VisualGST.
+|
+| Permission is hereby granted, free of charge, to any person obtaining
+| a copy of this software and associated documentation files (the
+| 'Software'), to deal in the Software without restriction, including
+| without limitation the rights to use, copy, modify, merge, publish,
+| distribute, sublicense, and/or sell copies of the Software, and to
+| permit persons to whom the Software is furnished to do so, subject to
+| the following conditions:
+|
+| The above copyright notice and this permission notice shall be
+| included in all copies or substantial portions of the Software.
+|
+| THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+| IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+| CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+| TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+| SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+|
+ ======================================================================"
+
+Behavior extend [
+
+ debuggerClass [
+
+
+ ^ VisualGST.GtkDebugger
+ ]
+]
+
diff --git a/packages/visualgst/Debugger/GtkContextWidget.st b/packages/visualgst/Debugger/GtkContextWidget.st
index db47adb..0f80417 100644
--- a/packages/visualgst/Debugger/GtkContextWidget.st
+++ b/packages/visualgst/Debugger/GtkContextWidget.st
@@ -1,3 +1,38 @@
+"======================================================================
+|
+| GtkContextWidget class definition
+|
+ ======================================================================"
+
+"======================================================================
+|
+| Copyright (c) 2013
+| Gwenael Casaccio ,
+|
+|
+| This file is part of VisualGST.
+|
+| Permission is hereby granted, free of charge, to any person obtaining
+| a copy of this software and associated documentation files (the
+| 'Software'), to deal in the Software without restriction, including
+| without limitation the rights to use, copy, modify, merge, publish,
+| distribute, sublicense, and/or sell copies of the Software, and to
+| permit persons to whom the Software is furnished to do so, subject to
+| the following conditions:
+|
+| The above copyright notice and this permission notice shall be
+| included in all copies or substantial portions of the Software.
+|
+| THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+| IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+| CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+| TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+| SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+|
+ ======================================================================"
+
GtkConcreteWidget subclass: GtkContextWidget [
| column contextTree model context contextList |
diff --git a/packages/visualgst/Debugger/GtkDebugger.st b/packages/visualgst/Debugger/GtkDebugger.st
index 8f82740..1998940 100644
--- a/packages/visualgst/Debugger/GtkDebugger.st
+++ b/packages/visualgst/Debugger/GtkDebugger.st
@@ -1,3 +1,38 @@
+"======================================================================
+|
+| GtkDebugger class definition
+|
+ ======================================================================"
+
+"======================================================================
+|
+| Copyright (c) 2013
+| Gwenael Casaccio ,
+|
+|
+| This file is part of VisualGST.
+|
+| Permission is hereby granted, free of charge, to any person obtaining
+| a copy of this software and associated documentation files (the
+| 'Software'), to deal in the Software without restriction, including
+| without limitation the rights to use, copy, modify, merge, publish,
+| distribute, sublicense, and/or sell copies of the Software, and to
+| permit persons to whom the Software is furnished to do so, subject to
+| the following conditions:
+|
+| The above copyright notice and this permission notice shall be
+| included in all copies or substantial portions of the Software.
+|
+| THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+| IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+| CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+| TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+| SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+|
+ ======================================================================"
+
GtkBrowsingTool subclass: GtkDebugger [
| codeWidget contextWidget debugger inspectorWidget stackInspectorWidget |
@@ -46,6 +81,7 @@ GtkBrowsingTool subclass: GtkDebugger [
postInitialize [
+
super postInitialize.
codeWidget postInitialize.
inspectorWidget postInitialize.
@@ -134,6 +170,11 @@ GtkBrowsingTool subclass: GtkDebugger [
debugger := aDebugger.
+
+ "Show meaningful source code to the user."
+ [ debugger suspendedContext isInternalExceptionHandlingContext ]
+ whileTrue: [ debugger slowFinish ].
+
self
updateContextWidget
]
diff --git a/packages/visualgst/Debugger/GtkStackInspector.st b/packages/visualgst/Debugger/GtkStackInspector.st
index dcc1811..a94c3a1 100644
--- a/packages/visualgst/Debugger/GtkStackInspector.st
+++ b/packages/visualgst/Debugger/GtkStackInspector.st
@@ -1,3 +1,38 @@
+"======================================================================
+|
+| GtkStackInspector class definition
+|
+ ======================================================================"
+
+"======================================================================
+|
+| Copyright (c) 2013
+| Gwenael Casaccio ,
+|
+|
+| This file is part of VisualGST.
+|
+| Permission is hereby granted, free of charge, to any person obtaining
+| a copy of this software and associated documentation files (the
+| 'Software'), to deal in the Software without restriction, including
+| without limitation the rights to use, copy, modify, merge, publish,
+| distribute, sublicense, and/or sell copies of the Software, and to
+| permit persons to whom the Software is furnished to do so, subject to
+| the following conditions:
+|
+| The above copyright notice and this permission notice shall be
+| included in all copies or substantial portions of the Software.
+|
+| THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+| IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+| CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+| TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+| SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+|
+ ======================================================================"
+
GtkInspectorWidget subclass: GtkStackInspector [
object: aContext [
diff --git a/packages/visualgst/Debugger/GtkStackInspectorView.st b/packages/visualgst/Debugger/GtkStackInspectorView.st
index dfb3436..f814ca8 100644
--- a/packages/visualgst/Debugger/GtkStackInspectorView.st
+++ b/packages/visualgst/Debugger/GtkStackInspectorView.st
@@ -1,3 +1,38 @@
+"======================================================================
+|
+| GtkStackInspectorView class definition
+|
+ ======================================================================"
+
+"======================================================================
+|
+| Copyright (c) 2013
+| Gwenael Casaccio ,
+|
+|
+| This file is part of VisualGST.
+|
+| Permission is hereby granted, free of charge, to any person obtaining
+| a copy of this software and associated documentation files (the
+| 'Software'), to deal in the Software without restriction, including
+| without limitation the rights to use, copy, modify, merge, publish,
+| distribute, sublicense, and/or sell copies of the Software, and to
+| permit persons to whom the Software is furnished to do so, subject to
+| the following conditions:
+|
+| The above copyright notice and this permission notice shall be
+| included in all copies or substantial portions of the Software.
+|
+| THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+| EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+| MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+| IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+| CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+| TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+| SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+|
+ ======================================================================"
+
GtkConcreteWidget subclass: GtkStackInspectorView [
| object variables |
diff --git a/packages/visualgst/Extensions.st b/packages/visualgst/Extensions.st
index 3608605..92e98c0 100644
--- a/packages/visualgst/Extensions.st
+++ b/packages/visualgst/Extensions.st
@@ -383,16 +383,6 @@ Debugger extend [
]
]
-Behavior extend [
-
- debuggerClass [
-
-
- "^ nil"
- ^ VisualGST.GtkDebugger
- ]
-]
-
VariableBinding extend [
hasLiterals [
diff --git a/packages/visualgst/package.xml b/packages/visualgst/package.xml
index 4267d1d..e5c54e2 100644
--- a/packages/visualgst/package.xml
+++ b/packages/visualgst/package.xml
@@ -186,6 +186,7 @@
GtkNotebookWidget.st
Image/GtkImageModel.st
Image/GtkImageWidget.st
+ Debugger/Extensions.st
Debugger/GtkContextWidget.st
Debugger/GtkDebugger.st
State/BrowserState.st
@@ -412,6 +413,7 @@
GtkNotebookWidget.st
Image/GtkImageModel.st
Image/GtkImageWidget.st
+ Debugger/Extensions.st
Debugger/GtkContextWidget.st
Debugger/GtkDebugger.st
State/BrowserState.st
--
1.8.1.2