[htoolkit-cvs] gio/src/examples/picture Main.hs,1.1,1.2

[<kr_...@us...>]

Update of /cvsroot/htoolkit/gio/src/examples/picture
In directory sc8-pr-cvs1:/tmp/cvs-serv24479/picture

Modified Files:
	Main.hs 
Log Message:
update


Index: Main.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/examples/picture/Main.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Main.hs	1 Jun 2003 15:45:48 -0000	1.1
--- Main.hs	4 Oct 2003 08:34:24 -0000	1.2
***************
*** 84,88 ****
  	
  	mfile  <- menu [title =: "&File"] mainMenu
! 	mopen  <- menuitem [title =: "&Open",  accel =: KeyChar '\^O', menuicon =: Just bmpOpen] mfile
  	mclose <- menuitem [title =: "&Close", enabled=:False] mfile
  	menuline mfile
--- 84,88 ----
  	
  	mfile  <- menu [title =: "&File"] mainMenu
! 	mopen  <- menuitem [title =: "&Open",  accel =: KeyChar '\^O', icon =: Just bmpOpen] mfile
  	mclose <- menuitem [title =: "&Close", enabled=:False] mfile
  	menuline mfile
***************
*** 111,122 ****
  								
  					mpic  <- menu [title =: "&Picture"] mainMenu
! 					menuitem [title =: "Rotate Left",  accel =: KeyChar '\^L', menuicon =: Just bmpRLeft,  on command =: onRotatePicture w (-pi/4) ref] mpic
! 					menuitem [title =: "Rotate Right", accel =: KeyChar '\^R', menuicon =: Just bmpRRight, on command =: onRotatePicture w ( pi/4) ref] mpic
  					menuline mpic
! 					menuitem [title =: "ScaleX +", accel =: KeyChar 'X',   menuicon =: Just bmpXPlus,  on command =: onScalePicture w (2  ,1) pic ref] mpic
! 					menuitem [title =: "ScaleX -", accel =: KeyChar '\^X', menuicon =: Just bmpXMinus, on command =: onScalePicture w (0.5,1) pic ref] mpic
  					menuline mpic
! 					menuitem [title =: "ScaleY +", accel =: KeyChar 'Y',   menuicon =: Just bmpYPlus,  on command =: onScalePicture w (1,2  ) pic ref] mpic
! 					menuitem [title =: "ScaleY -", accel =: KeyChar '\^Y', menuicon =: Just bmpYMinus, on command =: onScalePicture w (1,0.5) pic ref] mpic
  
  					set mclose [enabled =: True, on command =: destroyWidget w]
--- 111,122 ----
  								
  					mpic  <- menu [title =: "&Picture"] mainMenu
! 					menuitem [title =: "Rotate Left",  accel =: KeyChar '\^L', icon =: Just bmpRLeft,  on command =: onRotatePicture w (-pi/4) ref] mpic
! 					menuitem [title =: "Rotate Right", accel =: KeyChar '\^R', icon =: Just bmpRRight, on command =: onRotatePicture w ( pi/4) ref] mpic
  					menuline mpic
! 					menuitem [title =: "ScaleX +", accel =: KeyChar 'X',   icon =: Just bmpXPlus,  on command =: onScalePicture w (2  ,1) pic ref] mpic
! 					menuitem [title =: "ScaleX -", accel =: KeyChar '\^X', icon =: Just bmpXMinus, on command =: onScalePicture w (0.5,1) pic ref] mpic
  					menuline mpic
! 					menuitem [title =: "ScaleY +", accel =: KeyChar 'Y',   icon =: Just bmpYPlus,  on command =: onScalePicture w (1,2  ) pic ref] mpic
! 					menuitem [title =: "ScaleY -", accel =: KeyChar '\^Y', icon =: Just bmpYMinus, on command =: onScalePicture w (1,0.5) pic ref] mpic
  
  					set mclose [enabled =: True, on command =: destroyWidget w]