>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