Hi,
There is the patch for the text highlight in the debugger in the
attachment.
Gwen
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 [
+ <category: 'user interface'>
+
+ ^ super open
+ resize: 1...@600;
+ yourself
+ ]
+
GtkDebugger class >> open: aString [
<category: 'user interface'>
@@ -20,7 +28,7 @@ GtkMainWindow subclass: GtkDebugger [
GtkDebugger class >> debuggerClass [
<category: 'debugging interface'>
- ^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 [
<category: '*VisualGST'>
- ^ 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 [
+ <category: 'browse'>
+
OpenSenderCommand on: self
]
browseImplementors [
+ <category: 'browse'>
+
OpenImplementorCommand on: self
]
+
+ appendTag: aSymbol description: anArray [
+ <category: 'text buffer'>
+
+ codeBuffer
+ createTag: aSymbol varargs: anArray
+ ]
+
+ applyTag: aSymbol forLine: anInteger [
+ <category: 'text buffer'>
+
+ | start end |
+ start := codeBuffer getIterAtLine: anInteger.
+ end := codeBuffer getIterAtLine: anInteger + 1.
+ codeBuffer applyTagByName: aSymbol start: start end: end
+ ]
+
]
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
