--- a/VarHPanel.st Sat Jan 08 18:30:02 1994 +0100
+++ b/VarHPanel.st Sat Jan 08 18:31:31 1994 +0100
@@ -12,7 +12,7 @@
VariableVerticalPanel subclass:#VariableHorizontalPanel
instanceVariableNames:''
- classVariableNames:'hArrow'
+ classVariableNames:''
poolDictionaries:''
category:'Views-Layout'
!
@@ -27,7 +27,7 @@
The bar-handle is either an exposed knob (knobStyle == #motif)
or the forms defined in Scroller (knobStyle ~~ #motif)
-$Header: /cvs/stx/stx/libwidg/Attic/VarHPanel.st,v 1.4 1993-12-11 01:50:46 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/VarHPanel.st,v 1.5 1994-01-08 17:31:27 claus Exp $
written summer 92 by claus
'!
--- a/VarVPanel.st Sat Jan 08 18:30:02 1994 +0100
+++ b/VarVPanel.st Sat Jan 08 18:31:31 1994 +0100
@@ -16,7 +16,7 @@
shadowForm lightForm
handlePosition
handleColor noColor'
- classVariableNames:'arrow defaultPosition'
+ classVariableNames:''
poolDictionaries:''
category:'Views-Layout'
!
@@ -32,7 +32,7 @@
The bar-handle is either an exposed knob (style == #motif)
or the forms defined in Scroller (style ~~ #motif)
-$Header: /cvs/stx/stx/libwidg/Attic/VarVPanel.st,v 1.4 1993-12-11 01:50:56 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Attic/VarVPanel.st,v 1.5 1994-01-08 17:31:30 claus Exp $
written summer 91 by claus
'!
@@ -57,12 +57,6 @@
super initialize.
noColor := Color noColor.
handleColor := Black.
- self is3D ifTrue:[
- self barHeight:(3 * ViewSpacing)
- ] ifFalse:[
- self barHeight:(2 * ViewSpacing)
- ].
- barWidth := 2 * ViewSpacing "motif style width"
!
initStyle
@@ -81,7 +75,13 @@
defaultPosition := #right
].
handlePosition := resources at:'HANDLE_POSITION' default:defaultPosition.
- separatingLine := resources at:'SEPARATING_LINE' default:false "its so ugly"
+ separatingLine := resources at:'SEPARATING_LINE' default:false. "its so ugly"
+ self is3D ifTrue:[
+ self barHeight:(3 * ViewSpacing)
+ ] ifFalse:[
+ self barHeight:(2 * ViewSpacing)
+ ].
+ barWidth := 2 * ViewSpacing. "motif style width"
!
initCursor
--- a/VariableHorizontalPanel.st Sat Jan 08 18:30:02 1994 +0100
+++ b/VariableHorizontalPanel.st Sat Jan 08 18:31:31 1994 +0100
@@ -12,7 +12,7 @@
VariableVerticalPanel subclass:#VariableHorizontalPanel
instanceVariableNames:''
- classVariableNames:'hArrow'
+ classVariableNames:''
poolDictionaries:''
category:'Views-Layout'
!
@@ -27,7 +27,7 @@
The bar-handle is either an exposed knob (knobStyle == #motif)
or the forms defined in Scroller (knobStyle ~~ #motif)
-$Header: /cvs/stx/stx/libwidg/VariableHorizontalPanel.st,v 1.4 1993-12-11 01:50:46 claus Exp $
+$Header: /cvs/stx/stx/libwidg/VariableHorizontalPanel.st,v 1.5 1994-01-08 17:31:27 claus Exp $
written summer 92 by claus
'!
--- a/VariableVerticalPanel.st Sat Jan 08 18:30:02 1994 +0100
+++ b/VariableVerticalPanel.st Sat Jan 08 18:31:31 1994 +0100
@@ -16,7 +16,7 @@
shadowForm lightForm
handlePosition
handleColor noColor'
- classVariableNames:'arrow defaultPosition'
+ classVariableNames:''
poolDictionaries:''
category:'Views-Layout'
!
@@ -32,7 +32,7 @@
The bar-handle is either an exposed knob (style == #motif)
or the forms defined in Scroller (style ~~ #motif)
-$Header: /cvs/stx/stx/libwidg/VariableVerticalPanel.st,v 1.4 1993-12-11 01:50:56 claus Exp $
+$Header: /cvs/stx/stx/libwidg/VariableVerticalPanel.st,v 1.5 1994-01-08 17:31:30 claus Exp $
written summer 91 by claus
'!
@@ -57,12 +57,6 @@
super initialize.
noColor := Color noColor.
handleColor := Black.
- self is3D ifTrue:[
- self barHeight:(3 * ViewSpacing)
- ] ifFalse:[
- self barHeight:(2 * ViewSpacing)
- ].
- barWidth := 2 * ViewSpacing "motif style width"
!
initStyle
@@ -81,7 +75,13 @@
defaultPosition := #right
].
handlePosition := resources at:'HANDLE_POSITION' default:defaultPosition.
- separatingLine := resources at:'SEPARATING_LINE' default:false "its so ugly"
+ separatingLine := resources at:'SEPARATING_LINE' default:false. "its so ugly"
+ self is3D ifTrue:[
+ self barHeight:(3 * ViewSpacing)
+ ] ifFalse:[
+ self barHeight:(2 * ViewSpacing)
+ ].
+ barWidth := 2 * ViewSpacing. "motif style width"
!
initCursor
--- a/Workspace.st Sat Jan 08 18:30:02 1994 +0100
+++ b/Workspace.st Sat Jan 08 18:31:31 1994 +0100
@@ -40,7 +40,7 @@
errorFgColor <Color> fg-color used when highlighting error
errorBgColor <Color> bg-Color used when highlighting error
-$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.5 1993-12-20 17:24:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.6 1994-01-08 17:31:31 claus Exp $
written winter-89 by claus
'!
@@ -49,11 +49,19 @@
start
"launch a new workspace"
- |topView workspace f|
+ |scrollable scr topView workspace f|
topView := StandardSystemView label:'Workspace' minExtent:(100 @ 100).
- workspace := super origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:topView.
- workspace level:0.
+
+ scrollable := true.
+ scrollable ifTrue:[
+ scr := ScrollableView for:self in:topView.
+ scr origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+ workspace := scr scrolledView.
+ ] ifFalse:[
+ workspace := super origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:topView.
+ workspace level:0.
+ ].
"adjust topViews extent"
f := workspace font.
@@ -97,7 +105,7 @@
'printIt'
'inspectIt'
'-'
- 'others ...'
+ 'others'
).
self middleButtonMenu:(PopUpMenu
@@ -122,7 +130,7 @@
for:self).
middleButtonMenu subMenuAt:#others put:(PopUpMenu
- labels:#(
+ labels:(resources array:#(
'search'
'goto'
'-'
@@ -130,9 +138,9 @@
'-'
'indent'
'-'
- 'save as ..'
+ 'save as ...'
'print'
- )
+ ))
selectors:#(
search
gotoLine
@@ -350,8 +358,8 @@
!Workspace methodsFor:'events'!
keyPress:key x:x y:y
- (key == #Cmdd) ifTrue:[^ self doIt].
- (key == #Cmdi) ifTrue:[^ self inspectIt].
- (key == #Cmdp) ifTrue:[^ self printIt].
+ (key == #DoIt) ifTrue:[^ self doIt].
+ (key == #InspectIt) ifTrue:[^ self inspectIt].
+ (key == #PrintIt) ifTrue:[^ self printIt].
super keyPress:key x:x y:y
! !