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

Diff of /mcclim/menu.lisp

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

revision 1.18 by adejneka, Tue Jul 30 16:41:40 2002 UTC revision 1.19 by brian, Tue Sep 10 07:15:54 2002 UTC
# Line 49  Line 49 
49              (draw-rectangle* gadget -1 -1 x2 y2              (draw-rectangle* gadget -1 -1 x2 y2
50                               :ink (gadget-highlighted-color gadget)                               :ink (gadget-highlighted-color gadget)
51                               :filled t)                               :filled t)
52              (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)) ;(- w 2) (- h 2)
53              (draw-label* gadget x1 y1 x2 y2)))))))              (draw-label* gadget x1 y1 x2 y2)))))))
54    
55  (defun menu-draw-unhighlighted (gadget)  (defun menu-draw-unhighlighted (gadget)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5