diff -r a0728fb8d54e -r 338e856bddc9 ArrowButton.st
--- a/ArrowButton.st	Fri May 19 18:41:01 1995 +0200
+++ b/ArrowButton.st	Tue Jun 06 06:16:07 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.12 1995-05-17 12:24:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.13 1995-06-06 04:12:19 claus Exp $
 '!
 
 !ArrowButton class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.12 1995-05-17 12:24:24 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.13 1995-06-06 04:12:19 claus Exp $
 "
 !
 
@@ -77,6 +77,12 @@
 
 	arrowButtonEnteredForegroundColor           foregroundColor when mouse pointer entered
 	arrowButtonEnteredBackgroundColor           backgroundColor when mouse pointer entered
+
+    See examples.
+
+    See also: Button  Toggle  CheckToggle  CheckBox
+	      ScrollBar
+
 "
 !
 
@@ -216,7 +222,12 @@
      (i.e. they are computed instead of drawn from a bitmap)
     "
     style ~~ #st80 ifTrue:[
-	form := Form fromFile:UpArrowFormFile resolution:100 on:aDevice.
+	UpArrowFormFile notNil ifTrue:[
+	    form := Form fromFile:UpArrowFormFile resolution:100 on:aDevice.
+	    form isNil ifTrue:[
+		'ARRBUTTON: no bitmapFile: ' infoPrint. UpArrowFormFile infoPrintNL.
+	    ]
+	]
     ].
 
     "
@@ -290,7 +301,12 @@
      (i.e. they are computed instead of drawn from a bitmap)
     "
     style ~~ #st80 ifTrue:[
-	form := Form fromFile:DownArrowFormFile resolution:100 on:aDevice.
+	DownArrowFormFile notNil ifTrue:[
+	    form := Form fromFile:DownArrowFormFile resolution:100 on:aDevice.
+	    form isNil ifTrue:[
+		'ARRBUTTON: no bitmapFile: ' infoPrint. DownArrowFormFile infoPrintNL.
+	    ]
+	]
     ].
 
     "
@@ -363,7 +379,12 @@
      (i.e. they are computed instead of drawn from a bitmap)
     "
     style ~~ #st80 ifTrue:[
-	form := Form fromFile:LeftArrowFormFile resolution:100 on:aDevice.
+	LeftArrowFormFile notNil ifTrue:[
+	    form := Form fromFile:LeftArrowFormFile resolution:100 on:aDevice.
+	    form isNil ifTrue:[
+		'ARRBUTTON: no bitmapFile: ' infoPrint. LeftArrowFormFile infoPrintNL.
+	    ]
+	]
     ].
 
     "
@@ -436,7 +457,12 @@
      (i.e. they are computed instead of drawn from a bitmap)
     "
     style ~~ #st80 ifTrue:[
-	form := Form fromFile:RightArrowFormFile resolution:100 on:aDevice.
+	RightArrowFormFile notNil ifTrue:[
+	    form := Form fromFile:RightArrowFormFile resolution:100 on:aDevice.
+	    form isNil ifTrue:[
+		'ARRBUTTON: no bitmapFile: ' infoPrint. RightArrowFormFile infoPrintNL.
+	    ]
+	]
     ].
 
     "