 
 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>>

    ] [ vmax ] reduce-outputs ;

M: button-pen pen-background
    button-pen pen-background ;

M: button-pen pen-foreground
    button-pen pen-foreground ;

<PRIVATE


    } cond ;

M: button-pen draw-interior
    lookup-button-pen dup [ draw-interior ] [ 2drop ] if ;

M: button-pen draw-boundary
    lookup-button-pen dup [ draw-boundary ] [ 2drop ] if ;

M: button-pen pen-pref-dim
    [
