--- 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 $'
! !