[Amsn-commits] msn/utils/TkCximage/demos demo.tcl,1.5,1.6

[Le p. <lep...@us...>]

Update of /cvsroot/amsn/msn/utils/TkCximage/demos
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4212/utils/TkCximage/demos

Modified Files:
	demo.tcl 
Log Message:
Added a proc to TkCxImage to colorish images : use the demo to see what it does


Index: demo.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/utils/TkCximage/demos/demo.tcl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** demo.tcl	3 Jun 2005 08:01:53 -0000	1.5
--- demo.tcl	23 Jun 2005 18:03:49 -0000	1.6
***************
*** 256,259 ****
--- 256,292 ----
  }
  
+ proc Colorize { } {
+ 	if { $::loaded == 0 } {
+ 		msg_box "You must first load an image before using this function"
+ 		return
+ 	}
+ 	toplevel .color
+ 	
+ 	frame .color.f1
+ 	label .color.f1.lc -text "Color : "
+ 	entry .color.f1.c 
+ 
+ 	frame .color.f2
+ 	button .color.f2.ok -text "Colorize" -command "Colorize2"
+ 	button .color.f2.cancel -text "Cancel" -command "grab release .color; destroy .color"
+ 
+ 	pack .color.f1.lc .color.f1.c -side left
+ 	pack .color.f2.ok .color.f2.cancel -side left
+ 
+ 	pack .color.f1 .color.f2 -side top
+ 	grab set .color
+ 
+ }
+ 
+ proc Colorize2 { } {
+ 	set color [.color.f1.c get]
+ 	grab release .color
+ 	destroy .color
+ 
+ 	if { [catch {::CxImage::Colorize $::loaded $color} res ] != 0 } {
+ 			msg_box "Unable to create thumbnail\n$res"
+ 	}
+ }
+ 
  proc ShowImage { img } {
  	catch {
***************
*** 342,350 ****
  button .res -text "Resize" -command "Resize"
  button .thumbnail -text "Thumbnail" -command "Thumbnail"
  button .crop -text "Crop" -command "Crop"
  button .blending -text "Test Alpha blending" -command "Blending"
  button .exit -text "Exit" -command "exit"
  
! pack .load .save .play .pause .convert .res .thumbnail .crop .blending .exit -side top
  
  
--- 375,384 ----
  button .res -text "Resize" -command "Resize"
  button .thumbnail -text "Thumbnail" -command "Thumbnail"
+ button .colorize -text "Colorize" -command "Colorize"
  button .crop -text "Crop" -command "Crop"
  button .blending -text "Test Alpha blending" -command "Blending"
  button .exit -text "Exit" -command "exit"
  
! pack .load .save .play .pause .convert .res .thumbnail .colorize .crop .blending .exit -side top