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.
allViewBackground stuff
authorClaus Gittinger <cg@exept.de>
Thu, 08 Jul 1999 15:55:57 +0200
changeset 1958 9d53df393af1
parent 1957 41d39e04bf51
child 1959 e7b3df3c952f
allViewBackground 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
RButton.st file | annotate | diff | comparison | revisions
RadioButton.st file | annotate | diff | comparison | revisions
ScrollBar.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/ArrButton.st	Thu Jul 08 15:55:57 1999 +0200
@@ -797,6 +797,13 @@
     "Modified: 24.2.1997 / 21:19:59 / cg"
 ! !
 
+!ArrowButton methodsFor:'accessing-look'!
+
+allViewBackground:something
+    super viewBackground:something.
+    bgColor := activeBgColor := enteredBgColor := something
+! !
+
 !ArrowButton methodsFor:'focus handling'!
 
 wantsFocusWithButtonPress
@@ -979,5 +986,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.53 1999-04-24 14:37:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.54 1999-07-08 13:55:47 cg Exp $'
 ! !
--- a/ArrowButton.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/ArrowButton.st	Thu Jul 08 15:55:57 1999 +0200
@@ -797,6 +797,13 @@
     "Modified: 24.2.1997 / 21:19:59 / cg"
 ! !
 
+!ArrowButton methodsFor:'accessing-look'!
+
+allViewBackground:something
+    super viewBackground:something.
+    bgColor := activeBgColor := enteredBgColor := something
+! !
+
 !ArrowButton methodsFor:'focus handling'!
 
 wantsFocusWithButtonPress
@@ -979,5 +986,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.53 1999-04-24 14:37:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.54 1999-07-08 13:55:47 cg Exp $'
 ! !
--- a/ChckTggle.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/ChckTggle.st	Thu Jul 08 15:55:57 1999 +0200
@@ -425,9 +425,13 @@
 allViewBackground:something
     "redefined here"
 
-    self viewBackground:something.
-    self backgroundColor:something.
-
+    (activeLogo notNil 
+    and:[activeLogo depth > 1
+    and:[styleSheet name ~~ #iris]]) ifTrue:[
+        self viewBackground:something.
+        self backgroundColor:something.
+        enteredBgColor := activeBgColor := something.
+    ]
 ! !
 
 !CheckToggle methodsFor:'event handling'!
@@ -567,5 +571,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.50 1999-07-08 09:30:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ChckTggle.st,v 1.51 1999-07-08 13:55:21 cg Exp $'
 ! !
--- a/CheckToggle.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/CheckToggle.st	Thu Jul 08 15:55:57 1999 +0200
@@ -425,9 +425,13 @@
 allViewBackground:something
     "redefined here"
 
-    self viewBackground:something.
-    self backgroundColor:something.
-
+    (activeLogo notNil 
+    and:[activeLogo depth > 1
+    and:[styleSheet name ~~ #iris]]) ifTrue:[
+        self viewBackground:something.
+        self backgroundColor:something.
+        enteredBgColor := activeBgColor := something.
+    ]
 ! !
 
 !CheckToggle methodsFor:'event handling'!
@@ -567,5 +571,5 @@
 !CheckToggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.50 1999-07-08 09:30:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CheckToggle.st,v 1.51 1999-07-08 13:55:21 cg Exp $'
 ! !
--- a/RButton.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/RButton.st	Thu Jul 08 15:55:57 1999 +0200
@@ -539,7 +539,8 @@
 
     (buttonStyle == #motif 
     or:[buttonStyle == #round3D
-    or:[buttonStyle == #image]]) ifTrue:[
+    or:[buttonStyle == #image
+    or:[buttonStyle == #round2D]]]) ifTrue:[
         enteredBgColor := something.
         activeBgColor := something.
     ]
@@ -786,5 +787,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.30 1999-07-08 09:29:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/RButton.st,v 1.31 1999-07-08 13:55:37 cg Exp $'
 ! !
--- a/RadioButton.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/RadioButton.st	Thu Jul 08 15:55:57 1999 +0200
@@ -539,7 +539,8 @@
 
     (buttonStyle == #motif 
     or:[buttonStyle == #round3D
-    or:[buttonStyle == #image]]) ifTrue:[
+    or:[buttonStyle == #image
+    or:[buttonStyle == #round2D]]]) ifTrue:[
         enteredBgColor := something.
         activeBgColor := something.
     ]
@@ -786,5 +787,5 @@
 !RadioButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.30 1999-07-08 09:29:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/RadioButton.st,v 1.31 1999-07-08 13:55:37 cg Exp $'
 ! !
--- a/ScrollBar.st	Thu Jul 08 11:34:32 1999 +0200
+++ b/ScrollBar.st	Thu Jul 08 15:55:57 1999 +0200
@@ -288,6 +288,11 @@
 
 !ScrollBar methodsFor:'accessing-look'!
 
+allViewBackground:something
+    "blocked"
+
+!
+
 orientation
     "for ST-80 compatibility, answer this query"
 
@@ -1072,5 +1077,5 @@
 !ScrollBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.62 1999-07-07 20:54:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollBar.st,v 1.63 1999-07-08 13:55:57 cg Exp $'
 ! !
hg/stx-libwidg