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.
be tolerant in case form creation fails
authorClaus Gittinger <cg@exept.de>
Wed, 27 Dec 1995 17:18:50 +0100
changeset 270 aa6a36e199e7
parent 269 7a1064e632d9
child 271 2554fcf338ec
be tolerant in case form creation fails
ArrButton.st file | annotate | diff | comparison | revisions
ArrowButton.st file | annotate | diff | comparison | revisions 
--- a/ArrButton.st	Sat Dec 23 18:07:32 1995 +0100
+++ b/ArrButton.st	Wed Dec 27 17:18:50 1995 +0100
@@ -218,6 +218,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:Display.
+            form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -242,7 +243,8 @@
 				      2r00000010 2r01000000
 				      2r00000001 2r10000000
 				      2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
     form := form on:aDevice.
@@ -301,6 +303,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:Display.
+            form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -325,7 +328,8 @@
 				     2r00000010 2r10000000
 				     2r00000001 2r10000000
 				     2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
     form := form on:aDevice.
@@ -384,6 +388,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:Display.
+            form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -408,7 +413,8 @@
 				     2r00000001 2r01000000
 				     2r00000001 2r10000000
 				     2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
     form := form on:aDevice.
@@ -467,6 +473,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:aDevice.
+	    form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -491,7 +498,8 @@
 				     2r00001000 2r00010000
 				     2r00001111 2r11110000
 				     2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
 
@@ -717,5 +725,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.19 1995-11-23 18:19:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.20 1995-12-27 16:18:50 cg Exp $'
 ! !
--- a/ArrowButton.st	Sat Dec 23 18:07:32 1995 +0100
+++ b/ArrowButton.st	Wed Dec 27 17:18:50 1995 +0100
@@ -218,6 +218,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:Display.
+            form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -242,7 +243,8 @@
 				      2r00000010 2r01000000
 				      2r00000001 2r10000000
 				      2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
     form := form on:aDevice.
@@ -301,6 +303,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:Display.
+            form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -325,7 +328,8 @@
 				     2r00000010 2r10000000
 				     2r00000001 2r10000000
 				     2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
     form := form on:aDevice.
@@ -384,6 +388,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:Display.
+            form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -408,7 +413,8 @@
 				     2r00000001 2r01000000
 				     2r00000001 2r10000000
 				     2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
     form := form on:aDevice.
@@ -467,6 +473,7 @@
     form isNil ifTrue:[
 	style == #st80 ifTrue:[
 	    form := Form width:9 height:9 depth:1 on:aDevice.
+	    form isNil ifTrue:[^ nil].
 	    form clear.
 	    form lineWidth:2.
 	    form capStyle:#round.
@@ -491,7 +498,8 @@
 				     2r00001000 2r00010000
 				     2r00001111 2r11110000
 				     2r00000000 2r00000000]
-			 on:aDevice
+			 on:aDevice.
+            form isNil ifTrue:[^ nil].
 	].
     ].
 
@@ -717,5 +725,5 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.19 1995-11-23 18:19:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.20 1995-12-27 16:18:50 cg Exp $'
 ! !
hg/stx-libwidg