# -stipple @$tk_library/demos/bitmaps/grey.25
proc mkFaceUp {{bmap}} {
    global tk_library
## set item [.canvas.c create rect 100 100 200 250 -width 2 -outline white -fill black  -stipple @$tk_library/demos/bitmaps/face ]
set item [.canvas.c create bitmap 100 100 -foreground white -bitmap @$bmap]
.canvas.c addtag point withtag $item
set c .canvas.c
    $c bind point <Any-Enter> "$c itemconfig current -foreground white"
    $c bind point <Any-Leave> "$c itemconfig current -foreground white"
    $c bind point <1> "cardDown $c %x %y"
    $c bind point <ButtonRelease-1> "$c dtag selected"
    bind $c <B1-Motion> "cardMove $c %x %y"
#puts stdout $bmap
}