double click on a context line opens a browser
authorClaus Gittinger <cg@exept.de>
Sat, 20 Apr 1996 15:50:56 +0200
changeset 494 0d35a48c45bc
parent 493 eddc0d77d99e
child 495 6d6a6b8feb2b
double click on a context line opens a browser
DebugView.st
--- a/DebugView.st	Fri Apr 19 18:20:49 1996 +0200
+++ b/DebugView.st	Sat Apr 20 15:50:56 1996 +0200
@@ -800,68 +800,69 @@
     bpanel := HorizontalPanelView
 "/                        origin:(0.0 @ 0.0)
 "/                        extent:(1.0 @ (font height * 2))
-			    in:self.
+                            in:self.
     bpanel horizontalLayout:#leftSpace.
     bpanel verticalSpace:ViewSpacing // 2.
 
     terminateButton := Button
-			label:(resources at:'terminate')
-			action:[terminateButton turnOffWithoutRedraw. self doTerminate]
-			in:bpanel.
+                        label:(resources at:'terminate')
+                        action:[terminateButton turnOffWithoutRedraw. self doTerminate]
+                        in:bpanel.
     separator := View extent:(10 @ 5) in:bpanel.
     separator borderWidth:0; level:0.
 
     abortButton := Button
-			label:(resources at:'abort')
-			action:[abortButton turnOffWithoutRedraw. self doAbort]
-			in:bpanel.
+                        label:(resources at:'abort')
+                        action:[abortButton turnOffWithoutRedraw. self doAbort]
+                        in:bpanel.
     returnButton := Button
-			label:(resources at:'return')
-			action:[returnButton turnOff. self doReturn]
-			in:bpanel.
+                        label:(resources at:'return')
+                        action:[returnButton turnOff. self doReturn]
+                        in:bpanel.
 
     restartButton := Button
-			label:(resources at:'restart')
-			action:[restartButton turnOff. self doRestart]
-			in:bpanel.
+                        label:(resources at:'restart')
+                        action:[restartButton turnOff. self doRestart]
+                        in:bpanel.
 
     separator := View extent:(10 @ 5) in:bpanel.
     separator borderWidth:0; level:0.
 
     continueButton := Button
-			label:(resources at:'continue')
-			action:[continueButton turnOffWithoutRedraw. self doContinue]
-			in:bpanel.
+                        label:(resources at:'continue')
+                        action:[continueButton turnOffWithoutRedraw. self doContinue]
+                        in:bpanel.
 
     separator := View extent:(10 @ 5) in:bpanel.
     separator borderWidth:0; level:0.
 
     nextButton := Button
-			label:(resources at:'next')
-			action:[stepButton turnOff. self doNext]
-			in:bpanel.
+                        label:(resources at:'next')
+                        action:[stepButton turnOff. self doNext]
+                        in:bpanel.
     stepButton := Button
-			label:(resources at:'step')
-			action:[stepButton turnOff. self doStep]
-			in:bpanel.
+                        label:(resources at:'step')
+                        action:[stepButton turnOff. self doStep]
+                        in:bpanel.
     sendButton := Button
-			label:(resources at:'send')
-			action:[sendButton turnOff. self doSend]
-			in:bpanel.
+                        label:(resources at:'send')
+                        action:[sendButton turnOff. self doSend]
+                        in:bpanel.
 
     bpanel origin:(0.0 @ 0.0)
-	   extent:(1.0 @ (bpanel preferredExtent y)).
+           extent:(1.0 @ (bpanel preferredExtent y)).
 
     panel := VariableVerticalPanel
-			origin:(0.0 @ bpanel height)
-			corner:(1.0 @ 1.0)
-			    in:self.
+                        origin:(0.0 @ bpanel height)
+                        corner:(1.0 @ 1.0)
+                            in:self.
 
     v := ScrollableView for:SelectionInListView in:panel.
     v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
 
     contextView := v scrolledView.
     contextView action:[:lineNr | self showSelection:lineNr].
+    contextView doubleClickAction:[:line | self browse].
 
     v := ScrollableView for:CodeView in:panel.
     v origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
@@ -872,12 +873,14 @@
     hpanel origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
 
     receiverInspector := InspectorView
-				origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
-				    in:hpanel.
+                                origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
+                                    in:hpanel.
 
     contextInspector := ContextInspectorView
-				origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
-				    in:hpanel
+                                origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+                                    in:hpanel
+
+    "Modified: 20.4.1996 / 13:34:52 / cg"
 !
 
 initializeMiddleButtonMenu
@@ -2499,5 +2502,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.74 1996-04-18 14:52:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.75 1996-04-20 13:50:56 cg Exp $'
 ! !