Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
comments
authorClaus Gittinger <cg@exept.de>
Wed, 22 Jan 1997 12:03:01 +0100
changeset 966 824e0ecc0e6f
parent 965 ff8e6542eb13
child 967 6739eb5496da
comments
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions
TextView.st file | annotate | diff | comparison | revisions
Toggle.st file | annotate | diff | comparison | revisions
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions
Workspace.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/ArrButton.st	Wed Jan 22 12:03:01 1997 +0100
@@ -169,19 +169,35 @@
 !ArrowButton class methodsFor:'instance creation'!
 
 downIn:aView
+    "create and return a new down-button in aView"
+
     ^ (super in:aView) direction:#down
+
+    "Modified: 22.1.1997 / 11:59:08 / cg"
 !
 
 leftIn:aView
+    "create and return a new left-button in aView"
+
     ^ (super in:aView) direction:#left
+
+    "Modified: 22.1.1997 / 11:59:14 / cg"
 !
 
 rightIn:aView
+    "create and return a new right-button in aView"
+
     ^ (super in:aView) direction:#right
+
+    "Modified: 22.1.1997 / 11:59:21 / cg"
 !
 
 upIn:aView
+    "create and return a new up-button in aView"
+
     ^ (super in:aView) direction:#up
+
+    "Modified: 22.1.1997 / 11:59:27 / cg"
 ! !
 
 !ArrowButton class methodsFor:'defaults'!
@@ -612,52 +628,58 @@
 !ArrowButton methodsFor:'accessing'!
 
 direction:aDirectionSymbol
+    "create and return a new arrow button in aView"
+
     |form|
 
     aDirectionSymbol == #up ifTrue:[
-	form := (self class upArrowButtonForm:arrowStyle on:device).
-	name := 'upButton'.
+        form := (self class upArrowButtonForm:arrowStyle on:device).
+        name := 'upButton'.
     ].
     aDirectionSymbol == #down ifTrue:[
-	form := (self class downArrowButtonForm:arrowStyle on:device).
-	name := 'downButton'.
+        form := (self class downArrowButtonForm:arrowStyle on:device).
+        name := 'downButton'.
     ].
     aDirectionSymbol == #left ifTrue:[
-	form := (self class leftArrowButtonForm:arrowStyle on:device).
-	name := 'leftButton'.
+        form := (self class leftArrowButtonForm:arrowStyle on:device).
+        name := 'leftButton'.
     ].
     aDirectionSymbol == #right ifTrue:[
-	form := (self class rightArrowButtonForm:arrowStyle on:device).
-	name := 'rightButton'.
+        form := (self class rightArrowButtonForm:arrowStyle on:device).
+        name := 'rightButton'.
     ].
     self form:form
+
+    "Modified: 22.1.1997 / 11:59:38 / cg"
 ! !
 
 !ArrowButton methodsFor:'initialization'!
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     DefaultBackgroundColor notNil ifTrue:[
-	bgColor := DefaultBackgroundColor on:device
+        bgColor := DefaultBackgroundColor on:device
     ].
     DefaultForegroundColor notNil ifTrue:[
-	fgColor := DefaultForegroundColor on:device
+        fgColor := DefaultForegroundColor on:device
     ].
     DefaultActiveForegroundColor notNil ifTrue:[
-	activeFgColor := DefaultActiveForegroundColor on:device
+        activeFgColor := DefaultActiveForegroundColor on:device
     ].
     DefaultActiveBackgroundColor notNil ifTrue:[
-	activeBgColor := DefaultActiveBackgroundColor on:device
+        activeBgColor := DefaultActiveBackgroundColor on:device
     ].
     DefaultEnteredForegroundColor notNil ifTrue:[
-	enteredFgColor := DefaultEnteredForegroundColor on:device
+        enteredFgColor := DefaultEnteredForegroundColor on:device
     ].
     DefaultEnteredBackgroundColor notNil ifTrue:[
-	enteredBgColor := DefaultEnteredBackgroundColor on:device
+        enteredBgColor := DefaultEnteredBackgroundColor on:device
     ].
     DefaultDisabledForegroundColor notNil ifTrue:[
-	disabledFgColor := DefaultDisabledForegroundColor on:device
+        disabledFgColor := DefaultDisabledForegroundColor on:device
     ].
 
     arrowStyle := DefaultArrowStyle.
@@ -675,6 +697,8 @@
 "/        offLevel := 0.
 "/        self level:0.
 "/    ]
+
+    "Modified: 22.1.1997 / 11:57:00 / cg"
 !
 
 initialize
@@ -783,5 +807,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.34 1997-01-17 22:26:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.35 1997-01-22 11:01:20 cg Exp $'
 ! !
--- a/ArrowButton.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/ArrowButton.st	Wed Jan 22 12:03:01 1997 +0100
@@ -169,19 +169,35 @@
 !ArrowButton class methodsFor:'instance creation'!
 
 downIn:aView
+    "create and return a new down-button in aView"
+
     ^ (super in:aView) direction:#down
+
+    "Modified: 22.1.1997 / 11:59:08 / cg"
 !
 
 leftIn:aView
+    "create and return a new left-button in aView"
+
     ^ (super in:aView) direction:#left
+
+    "Modified: 22.1.1997 / 11:59:14 / cg"
 !
 
 rightIn:aView
+    "create and return a new right-button in aView"
+
     ^ (super in:aView) direction:#right
+
+    "Modified: 22.1.1997 / 11:59:21 / cg"
 !
 
 upIn:aView
+    "create and return a new up-button in aView"
+
     ^ (super in:aView) direction:#up
+
+    "Modified: 22.1.1997 / 11:59:27 / cg"
 ! !
 
 !ArrowButton class methodsFor:'defaults'!
@@ -612,52 +628,58 @@
 !ArrowButton methodsFor:'accessing'!
 
 direction:aDirectionSymbol
+    "create and return a new arrow button in aView"
+
     |form|
 
     aDirectionSymbol == #up ifTrue:[
-	form := (self class upArrowButtonForm:arrowStyle on:device).
-	name := 'upButton'.
+        form := (self class upArrowButtonForm:arrowStyle on:device).
+        name := 'upButton'.
     ].
     aDirectionSymbol == #down ifTrue:[
-	form := (self class downArrowButtonForm:arrowStyle on:device).
-	name := 'downButton'.
+        form := (self class downArrowButtonForm:arrowStyle on:device).
+        name := 'downButton'.
     ].
     aDirectionSymbol == #left ifTrue:[
-	form := (self class leftArrowButtonForm:arrowStyle on:device).
-	name := 'leftButton'.
+        form := (self class leftArrowButtonForm:arrowStyle on:device).
+        name := 'leftButton'.
     ].
     aDirectionSymbol == #right ifTrue:[
-	form := (self class rightArrowButtonForm:arrowStyle on:device).
-	name := 'rightButton'.
+        form := (self class rightArrowButtonForm:arrowStyle on:device).
+        name := 'rightButton'.
     ].
     self form:form
+
+    "Modified: 22.1.1997 / 11:59:38 / cg"
 ! !
 
 !ArrowButton methodsFor:'initialization'!
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     DefaultBackgroundColor notNil ifTrue:[
-	bgColor := DefaultBackgroundColor on:device
+        bgColor := DefaultBackgroundColor on:device
     ].
     DefaultForegroundColor notNil ifTrue:[
-	fgColor := DefaultForegroundColor on:device
+        fgColor := DefaultForegroundColor on:device
     ].
     DefaultActiveForegroundColor notNil ifTrue:[
-	activeFgColor := DefaultActiveForegroundColor on:device
+        activeFgColor := DefaultActiveForegroundColor on:device
     ].
     DefaultActiveBackgroundColor notNil ifTrue:[
-	activeBgColor := DefaultActiveBackgroundColor on:device
+        activeBgColor := DefaultActiveBackgroundColor on:device
     ].
     DefaultEnteredForegroundColor notNil ifTrue:[
-	enteredFgColor := DefaultEnteredForegroundColor on:device
+        enteredFgColor := DefaultEnteredForegroundColor on:device
     ].
     DefaultEnteredBackgroundColor notNil ifTrue:[
-	enteredBgColor := DefaultEnteredBackgroundColor on:device
+        enteredBgColor := DefaultEnteredBackgroundColor on:device
     ].
     DefaultDisabledForegroundColor notNil ifTrue:[
-	disabledFgColor := DefaultDisabledForegroundColor on:device
+        disabledFgColor := DefaultDisabledForegroundColor on:device
     ].
 
     arrowStyle := DefaultArrowStyle.
@@ -675,6 +697,8 @@
 "/        offLevel := 0.
 "/        self level:0.
 "/    ]
+
+    "Modified: 22.1.1997 / 11:57:00 / cg"
 !
 
 initialize
@@ -783,5 +807,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.34 1997-01-17 22:26:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.35 1997-01-22 11:01:20 cg Exp $'
 ! !
--- a/TextView.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/TextView.st	Wed Jan 22 12:03:01 1997 +0100
@@ -733,6 +733,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
 "/    DefaultFont notNil ifTrue:[font := DefaultFont on:device].
@@ -759,7 +761,7 @@
         ]
     ].
 
-    "Modified: 28.5.1996 / 21:14:08 / cg"
+    "Modified: 22.1.1997 / 11:57:53 / cg"
 !
 
 initialize
@@ -2279,5 +2281,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.78 1997-01-13 23:14:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.79 1997-01-22 11:03:01 cg Exp $'
 ! !
--- a/Toggle.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/Toggle.st	Wed Jan 22 12:03:01 1997 +0100
@@ -429,6 +429,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     showLamp := DefaultShowLamp.
@@ -445,7 +447,7 @@
     lampWidth := (device horizontalPixelPerMillimeter * 1.8) rounded.
     lampHeight := (device verticalPixelPerMillimeter * 3.5) rounded.
 
-    "Modified: 13.1.1997 / 23:46:35 / cg"
+    "Modified: 22.1.1997 / 11:57:55 / cg"
 !
 
 realize
@@ -524,5 +526,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.32 1997-01-13 22:47:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.33 1997-01-22 11:02:42 cg Exp $'
 ! !
--- a/VarPanel.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/VarPanel.st	Wed Jan 22 12:03:01 1997 +0100
@@ -1112,6 +1112,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     |mm|
 
     super initStyle.
@@ -1147,7 +1149,7 @@
         barWidth := (ArrowButton new direction:#up) width + 1 
     ].
 
-    "Modified: 8.3.1996 / 11:51:59 / cg"
+    "Modified: 22.1.1997 / 11:57:58 / cg"
 !
 
 initialize
@@ -1399,5 +1401,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.20 1997-01-17 22:24:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.21 1997-01-22 11:02:26 cg Exp $'
 ! !
--- a/VariablePanel.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/VariablePanel.st	Wed Jan 22 12:03:01 1997 +0100
@@ -1112,6 +1112,8 @@
 !
 
 initStyle
+    "setup viewStyle specifics"
+
     |mm|
 
     super initStyle.
@@ -1147,7 +1149,7 @@
         barWidth := (ArrowButton new direction:#up) width + 1 
     ].
 
-    "Modified: 8.3.1996 / 11:51:59 / cg"
+    "Modified: 22.1.1997 / 11:57:58 / cg"
 !
 
 initialize
@@ -1399,5 +1401,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.20 1997-01-17 22:24:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.21 1997-01-22 11:02:26 cg Exp $'
 ! !
--- a/Workspace.st	Wed Jan 22 04:25:30 1997 +0100
+++ b/Workspace.st	Wed Jan 22 12:03:01 1997 +0100
@@ -494,18 +494,22 @@
 !Workspace methodsFor:'initialize / release'!
 
 initStyle
+    "setup viewStyle specifics"
+
     super initStyle.
 
     errorFgColor := DefaultErrorForegroundColor.
     errorFgColor isNil ifTrue:[errorFgColor := selectionFgColor].
     errorBgColor := DefaultErrorBackgroundColor.
     errorBgColor isNil ifTrue:[
-	device hasColors ifTrue:[
-	    errorBgColor := Color red
-	] ifFalse:[
-	    errorBgColor := selectionBgColor
-	]
+        device hasColors ifTrue:[
+            errorBgColor := Color red
+        ] ifFalse:[
+            errorBgColor := selectionBgColor
+        ]
     ].
+
+    "Modified: 22.1.1997 / 11:58:00 / cg"
 !
 
 initialize
@@ -597,5 +601,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.51 1997-01-11 20:46:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.52 1997-01-22 11:02:10 cg Exp $'
 ! !
hg/stx-libwidg