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.
Fix #st80 stuff (#onDevice: etc.)
authorStefan Vogel <sv@exept.de>
Thu, 25 Jul 2002 18:07:34 +0200
changeset 2566 7a962b7c17e1
parent 2565 0071e83cc41d
child 2567 82c91776eb6d
Fix #st80 stuff (#onDevice: etc.)
ArrowButton.st file | annotate | diff | comparison | revisions 
--- a/ArrowButton.st	Wed Jul 24 20:12:22 2002 +0200
+++ b/ArrowButton.st	Thu Jul 25 18:07:34 2002 +0200
@@ -235,9 +235,8 @@
      (if no styleSheet value is defined, and no form can be constructed)"
 
     <resource: #programImage>
-    <resource: #style (#'name')>
 
-    (StyleSheet name startsWith:#win9) ifTrue:[
+    StyleSheet isWindowsStyle ifTrue:[
         ^ Form 
             width:11 height:11 
             fromArray:#[
@@ -285,9 +284,8 @@
      (if no styleSheet value is defined, and no form can be constructed)"
 
     <resource: #programImage>
-    <resource: #style (#'name')>
 
-    (StyleSheet name startsWith:#win9) ifTrue:[
+    StyleSheet isWindowsStyle ifTrue:[
         ^ Form 
             width:11 height:11 
             fromArray:#[
@@ -335,9 +333,8 @@
      (if no styleSheet value is defined, and no form can be constructed)"
 
     <resource: #programImage>
-    <resource: #style (#'name')>
 
-    (StyleSheet name startsWith:#win9) ifTrue:[
+    StyleSheet isWindowsStyle ifTrue:[
         ^ Form 
             width:11 height:11 
             fromArray:#[
@@ -384,9 +381,8 @@
      (if no styleSheet value is defined, and no form can be constructed)"
 
     <resource: #programImage>
-    <resource: #style (#'name')>
 
-    (StyleSheet name startsWith:#win9) ifTrue:[
+    StyleSheet isWindowsStyle ifTrue:[
         ^ Form 
             width:11 height:11 
             fromArray:#[
@@ -473,7 +469,7 @@
     "
     form isNil ifTrue:[
         styleSymbol == #st80 ifTrue:[
-            form := Form width:9 height:9 depth:1 on:Display.
+            form := Form width:9 height:9 depth:1 onDevice:aDevice.
             form isNil ifTrue:[^ nil].
             form clear.
             form lineWidth:2.
@@ -543,7 +539,7 @@
     "
     form isNil ifTrue:[
         styleSymbol == #st80 ifTrue:[
-            form := Form width:9 height:9 depth:1 on:Display.
+            form := Form width:9 height:9 depth:1 onDevice:aDevice.
             form isNil ifTrue:[^ nil].
             form clear.
             form lineWidth:2.
@@ -613,7 +609,7 @@
     "
     form isNil ifTrue:[
         styleSymbol == #st80 ifTrue:[
-            form := Form width:9 height:9 depth:1 on:Display.
+            form := Form width:9 height:9 depth:1 onDevice:aDevice.
             form isNil ifTrue:[^ nil].
             form clear.
             form lineWidth:2.
@@ -683,7 +679,7 @@
     "
     form isNil ifTrue:[
         styleSymbol == #st80 ifTrue:[
-            form := Form width:9 height:9 depth:1 on:aDevice.
+            form := Form width:9 height:9 depth:1 onDevice:aDevice.
             form isNil ifTrue:[^ nil].
             form clear.
             form lineWidth:2.
@@ -988,5 +984,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.61 2002-05-06 06:04:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.62 2002-07-25 16:07:34 stefan Exp $'
 ! !
hg/stx-libwidg