diff --git a/Debugger/GtkDebugger.st b/Debugger/GtkDebugger.st index 374d59c..9b14723 100644 --- a/Debugger/GtkDebugger.st +++ b/Debugger/GtkDebugger.st @@ -7,6 +7,14 @@ GtkMainWindow subclass: GtkDebugger [ ^ nil ] + GtkDebugger class >> open [ + + + ^ super open + resize: address@hidden; + yourself + ] + GtkDebugger class >> open: aString [ @@ -20,7 +28,7 @@ GtkMainWindow subclass: GtkDebugger [ GtkDebugger class >> debuggerClass [ - ^nil + ^ nil ] GtkDebugger class >> debuggingPriority [ @@ -98,6 +106,7 @@ THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.'; ^ (codeWidget := GtkSourceCodeWidget new) initialize; + appendTag: #debug description: #('background' 'cyan4' 'foreground' 'NavyBlue' nil); mainWidget ] @@ -241,10 +250,6 @@ THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.'; | package | package := PackageLoader packageAt: 'VisualGST'. self - "appendToolItem: ((GTK.GtkToolButton newFromStock: 'gtk-new') - connectSignal: 'clicked' to: OpenWorkspaceCommand selector: #execute userData: nil; - setTooltipText: 'Create a new workspace'; - yourself);" appendToolItem: ((GTK.GtkToolButton newFromStock: 'gtk-save') connectSignal: 'clicked' to: SaveImageCommand selector: #execute userData: nil; setTooltipText: 'Save the image'; @@ -410,6 +415,8 @@ THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.'; selectedContext := debugger suspendedContext parentContextAt: (contextWidget numberOfContext - ((contextWidget model getPath: iter) getIndices value)). codeWidget sourceCode: selectedContext method methodSourceString. codeWidget object: selectedContext receiver. + selectedContext currentLine printNl. + codeWidget applyTag: #debug forLine: selectedContext currentLine. self updateInspectorWidget: selectedContext ] diff --git a/Extensions.st b/Extensions.st index e2fe45b..ffc5303 100644 --- a/Extensions.st +++ b/Extensions.st @@ -271,7 +271,8 @@ Behavior extend [ debuggerClass [ - ^ VisualGST.GtkDebugger + ^ nil + "^ VisualGST.GtkDebugger" ] ] diff --git a/GtkSourceCodeWidget.st b/GtkSourceCodeWidget.st index bd742e3..06156f4 100644 --- a/GtkSourceCodeWidget.st +++ b/GtkSourceCodeWidget.st @@ -340,11 +340,32 @@ GtkConcreteWidget subclass: GtkSourceCodeWidget [ ] browseSenders [ + + OpenSenderCommand on: self ] browseImplementors [ + + OpenImplementorCommand on: self ] + + appendTag: aSymbol description: anArray [ + + + codeBuffer + createTag: aSymbol varargs: anArray + ] + + applyTag: aSymbol forLine: anInteger [ + + + | start end | + start := codeBuffer getIterAtLine: anInteger. + end := codeBuffer getIterAtLine: anInteger + 1. + codeBuffer applyTagByName: aSymbol start: start end: end + ] + ]