issue #358: Rename button-pen -> lookup-button-pen.

db4
Doug Coleman 2012-06-20 22:41:47 -07:00
parent 425846298c
commit fbfa8543a1
1 changed files with 5 additions and 5 deletions

View File

@ -67,7 +67,7 @@ pressed selected pressed-selected ;
C: <button-pen> button-pen
: button-pen ( button pen -- button pen )
: lookup-button-pen ( button pen -- button pen )
over find-button {
{ [ dup { [ pressed?>> ] [ selected?>> ] } 1&& ] [
drop pressed-selected>>
@ -79,10 +79,10 @@ C: <button-pen> button-pen
} cond ;
M: button-pen draw-interior
button-pen dup [ draw-interior ] [ 2drop ] if ;
lookup-button-pen dup [ draw-interior ] [ 2drop ] if ;
M: button-pen draw-boundary
button-pen dup [ draw-boundary ] [ 2drop ] if ;
lookup-button-pen dup [ draw-boundary ] [ 2drop ] if ;
M: button-pen pen-pref-dim
[
@ -95,10 +95,10 @@ M: button-pen pen-pref-dim
] [ vmax ] reduce-outputs ;
M: button-pen pen-background
button-pen pen-background ;
lookup-button-pen pen-background ;
M: button-pen pen-foreground
button-pen pen-foreground ;
lookup-button-pen pen-foreground ;
<PRIVATE