/[mcclim]/mcclim/menu.lisp
ViewVC logotype

Diff of /mcclim/menu.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by moore, Mon Apr 21 15:05:22 2003 UTC revision 1.27 by gilbert, Mon Apr 21 23:51:29 2003 UTC
# Line 47  Line 47 
47              (draw-rectangle* gadget -1 -1 x2 y2              (draw-rectangle* gadget -1 -1 x2 y2
48                               :ink (gadget-highlighted-color gadget)                               :ink (gadget-highlighted-color gadget)
49                               :filled t)                               :filled t)
50              (draw-edges-lines* gadget 0 0 (1- w) (1- h)) ;(- w 2) (- h 2)              (draw-edges-lines* gadget +white+ 0 0 +black+ (1- w) (1- h))
51              (draw-label* gadget x1 y1 x2 y2)))))))              (draw-label* gadget x1 y1 x2 y2)))))))
52    
53  (defun menu-draw-unhighlighted (gadget)  (defun menu-draw-unhighlighted (gadget)

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5