ArrowButton.st
changeset 3081 a0996ad1e493
parent 2970 ef580c27776a
child 3112 09898fb82897
equal deleted inserted replaced
3080:e8ff413801ce 3081:a0996ad1e493
   651         bits := #[
   651         bits := #[
   652                  2r00000000 2r00000000
   652                  2r00000000 2r00000000
   653                  2r00000000 2r00000000
   653                  2r00000000 2r00000000
   654                  2r00000010 2r00000000
   654                  2r00000010 2r00000000
   655                  2r00000110 2r00000000
   655                  2r00000110 2r00000000
   656                  2r00001110 2r10000000
   656                  2r00001110 2r00000000
   657                  2r00011110 2r00000000
   657                  2r00011110 2r00000000
   658                  2r00001110 2r00000000
   658                  2r00001110 2r00000000
   659                  2r00000110 2r00000000
   659                  2r00000110 2r00000000
   660                  2r00000010 2r00000000
   660                  2r00000010 2r00000000
   661                  2r00000000 2r00000000
   661                  2r00000000 2r00000000
   666         bits := #[
   666         bits := #[
   667                  2r00000000 2r00000000
   667                  2r00000000 2r00000000
   668                  2r00000000 2r00000000
   668                  2r00000000 2r00000000
   669                  2r00001000 2r00000000
   669                  2r00001000 2r00000000
   670                  2r00001100 2r00000000
   670                  2r00001100 2r00000000
   671                  2r00001110 2r10000000
   671                  2r00001110 2r00000000
   672                  2r00001111 2r00000000
   672                  2r00001111 2r00000000
   673                  2r00001110 2r00000000
   673                  2r00001110 2r00000000
   674                  2r00001100 2r00000000
   674                  2r00001100 2r00000000
   675                  2r00001000 2r00000000
   675                  2r00001000 2r00000000
   676                  2r00000000 2r00000000
   676                  2r00000000 2r00000000
   708                 ]
   708                 ]
   709     ].
   709     ].
   710     ^ (Form 
   710     ^ (Form 
   711         width:w height:h 
   711         width:w height:h 
   712         fromArray:bits) onDevice:aDevice
   712         fromArray:bits) onDevice:aDevice
       
   713 
       
   714     "
       
   715      self defaultWIN32ArrowButtonFormForDirection:#down onDevice:Screen current
       
   716     "
   713 !
   717 !
   714 
   718 
   715 disabledArrowButtonFormForStyle:styleSymbol direction:direction on:aDevice
   719 disabledArrowButtonFormForStyle:styleSymbol direction:direction on:aDevice
   716     <resource: #style (
   720     <resource: #style (
   717                        #'arrowButton.disabledDownForm'
   721                        #'arrowButton.disabledDownForm'
  1047 ! !
  1051 ! !
  1048 
  1052 
  1049 !ArrowButton class methodsFor:'documentation'!
  1053 !ArrowButton class methodsFor:'documentation'!
  1050 
  1054 
  1051 version
  1055 version
  1052     ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.69 2004-05-11 16:40:02 stefan Exp $'
  1056     ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.70 2004-10-19 13:16:13 cg Exp $'
  1053 ! !
  1057 ! !