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.
filename stuff
authorClaus Gittinger <cg@exept.de>
Mon, 08 Sep 1997 20:32:30 +0200
changeset 1317 e7b4c929b229
parent 1316 b3fbbd88dea0
child 1318 f9091a617af2
filename stuff
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions
ChckTggle.st file | annotate | diff | comparison | revisions
CheckToggle.st file | annotate | diff | comparison | revisions
DialogBox.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/ArrButton.st	Mon Sep 08 20:32:30 1997 +0200
@@ -385,7 +385,7 @@
             form displayLineFromX:4 y:6 toX:8 y:2.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultDownArrowButtonForm on:aDevice.
+            form  := self defaultDownArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -460,7 +460,7 @@
             form displayLineFromX:2 y:4 toX:6 y:8.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultLeftArrowButtonForm on:aDevice.
+            form  := self defaultLeftArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -535,7 +535,7 @@
             form displayLineFromX:6 y:4 toX:2 y:8.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultRightArrowButtonForm on:aDevice.
+            form  := self defaultRightArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -610,7 +610,7 @@
             form displayLineFromX:4 y:2 toX:8 y:6.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultUpArrowButtonForm on:aDevice.
+            form  := self defaultUpArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -884,5 +884,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.42 1997-07-28 10:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.43 1997-09-08 18:32:27 cg Exp $'
 ! !
--- a/ArrowButton.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/ArrowButton.st	Mon Sep 08 20:32:30 1997 +0200
@@ -385,7 +385,7 @@
             form displayLineFromX:4 y:6 toX:8 y:2.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultDownArrowButtonForm on:aDevice.
+            form  := self defaultDownArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -460,7 +460,7 @@
             form displayLineFromX:2 y:4 toX:6 y:8.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultLeftArrowButtonForm on:aDevice.
+            form  := self defaultLeftArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -535,7 +535,7 @@
             form displayLineFromX:6 y:4 toX:2 y:8.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultRightArrowButtonForm on:aDevice.
+            form  := self defaultRightArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -610,7 +610,7 @@
             form displayLineFromX:4 y:2 toX:8 y:6.
             form beImmediateForm.
         ] ifFalse:[
-            form  := self defaultUpArrowButtonForm on:aDevice.
+            form  := self defaultUpArrowButtonForm onDevice:aDevice.
             form isNil ifTrue:[^ nil].
         ].
     ].
@@ -884,5 +884,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.42 1997-07-28 10:21:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.43 1997-09-08 18:32:27 cg Exp $'
 ! !
--- a/ChckTggle.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/ChckTggle.st	Mon Sep 08 20:32:30 1997 +0200
@@ -418,14 +418,24 @@
     DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].
     DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel].
 
-    activeLogo := DefaultCheckForm on:device.
+    activeLogo := DefaultCheckForm onDevice:device.
     passiveLogo := nil.
 
-    DefaultActiveFGColor notNil ifTrue:[self activeForegroundColor:DefaultActiveFGColor].
-    DefaultCheckColor notNil ifTrue:[self activeForegroundColor:DefaultCheckColor].
-    DefaultActiveBGColor notNil ifTrue:[self activeBackgroundColor:DefaultActiveBGColor].
-    DefaultFGColor notNil ifTrue:[self foregroundColor:DefaultFGColor].
-    DefaultBGColor notNil ifTrue:[self backgroundColor:DefaultBGColor].
+    DefaultActiveFGColor notNil ifTrue:[
+	self activeForegroundColor:DefaultActiveFGColor
+    ].
+    DefaultCheckColor notNil ifTrue:[
+	self activeForegroundColor:DefaultCheckColor
+    ].
+    DefaultActiveBGColor notNil ifTrue:[
+	self activeBackgroundColor:DefaultActiveBGColor
+    ].
+    DefaultFGColor notNil ifTrue:[
+	self foregroundColor:DefaultFGColor
+    ].
+    DefaultBGColor notNil ifTrue:[
+	self backgroundColor:DefaultBGColor
+    ].
 
     showLamp := false.
 
@@ -503,5 +513,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.37 1997-07-25 14:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.38 1997-09-08 18:32:28 cg Exp $'
 ! !
--- a/CheckToggle.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/CheckToggle.st	Mon Sep 08 20:32:30 1997 +0200
@@ -418,14 +418,24 @@
     DefaultActiveLevel notNil ifTrue:[onLevel := DefaultActiveLevel].
     DefaultPassiveLevel notNil ifTrue:[offLevel := DefaultPassiveLevel].
 
-    activeLogo := DefaultCheckForm on:device.
+    activeLogo := DefaultCheckForm onDevice:device.
     passiveLogo := nil.
 
-    DefaultActiveFGColor notNil ifTrue:[self activeForegroundColor:DefaultActiveFGColor].
-    DefaultCheckColor notNil ifTrue:[self activeForegroundColor:DefaultCheckColor].
-    DefaultActiveBGColor notNil ifTrue:[self activeBackgroundColor:DefaultActiveBGColor].
-    DefaultFGColor notNil ifTrue:[self foregroundColor:DefaultFGColor].
-    DefaultBGColor notNil ifTrue:[self backgroundColor:DefaultBGColor].
+    DefaultActiveFGColor notNil ifTrue:[
+	self activeForegroundColor:DefaultActiveFGColor
+    ].
+    DefaultCheckColor notNil ifTrue:[
+	self activeForegroundColor:DefaultCheckColor
+    ].
+    DefaultActiveBGColor notNil ifTrue:[
+	self activeBackgroundColor:DefaultActiveBGColor
+    ].
+    DefaultFGColor notNil ifTrue:[
+	self foregroundColor:DefaultFGColor
+    ].
+    DefaultBGColor notNil ifTrue:[
+	self backgroundColor:DefaultBGColor
+    ].
 
     showLamp := false.
 
@@ -503,5 +513,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.37 1997-07-25 14:20:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.38 1997-09-08 18:32:28 cg Exp $'
 ! !
--- a/DialogBox.st	Sat Sep 06 20:42:34 1997 +0200
+++ b/DialogBox.st	Mon Sep 08 20:32:30 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:44:02 am'                  !
+
 ModalBox subclass:#DialogBox
 	instanceVariableNames:'buttonPanel okButton okAction abortButton abortAction
 		acceptReturnAsOK yPosition leftIndent rightIndent addedComponents
@@ -5188,7 +5190,7 @@
     buttonPanel 
         origin:(0.0 @ 1.0) corner:(1.0 @ 1.0);
         bottomInset:mm; 
-        topInset:(font height + mm * 2) negated;
+        topInset:(font height + mm * 4) negated;
         borderWidth:0;
         horizontalLayout:#spread.
 
@@ -5225,7 +5227,7 @@
        showAtPointer
     "
 
-    "Modified: 16.1.1997 / 00:50:56 / cg"
+    "Modified: 7.9.1997 / 22:59:33 / cg"
 !
 
 reAdjustGeometry
@@ -5480,6 +5482,6 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.106 1997-07-28 10:22:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.107 1997-09-08 18:32:30 cg Exp $'
 ! !
 DialogBox initialize!
hg/stx-libwidg