ArrowButton.st
changeset 6773 58b7789b722f
parent 6327 836071dbfe51
equal deleted inserted replaced
6772:cd06b6bf8dc9 6773:58b7789b722f
   280                        #'arrowButton.enteredLeftForm'     #'arrowButton.enteredRightForm'
   280                        #'arrowButton.enteredLeftForm'     #'arrowButton.enteredRightForm'
   281                 )>
   281                 )>
   282 
   282 
   283     |styleSheet defaultScreen|
   283     |styleSheet defaultScreen|
   284 
   284 
       
   285     CachedStyle := nil.
   285     styleSheet := StyleSheet.
   286     styleSheet := StyleSheet.
   286 
   287 
   287     DefaultArrowStyle := styleSheet at:#'arrowButton.style' default:styleSheet name.
   288     DefaultArrowStyle := styleSheet at:#'arrowButton.style' default:styleSheet name.
   288     DefaultArrowStyle := DefaultArrowStyle asSymbol.
   289     DefaultArrowStyle := DefaultArrowStyle asSymbol.
   289 
   290