Thanks :)
Op di, 02-05-2006 te 21:06 +0200, schreef Philippe Valembois - Phil:
> For Karel,
> you can change alpha now using Colorize function :
> To only change alpha :
> colorize $image white $alpha
> Indeed, picture.tcl is updated
> Phil
>
> Le Tuesday 02 May 2006 21:03, Philippe Valembois - Phil a écrit :
> > Update of /cvsroot/amsn/msn/utils/TkCximage/demos
> > In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8635/demos
> >
> > Modified Files:
> > demo.tcl
> > Log Message:
> > Added alpha to Colorize
> >
> >
> > Index: demo.tcl
> > ===================================================================
> > RCS file: /cvsroot/amsn/msn/utils/TkCximage/demos/demo.tcl,v
> > retrieving revision 1.7
> > retrieving revision 1.8
> > diff -C2 -d -r1.7 -r1.8
> > *** demo.tcl 17 Feb 2006 11:25:05 -0000 1.7
> > --- demo.tcl 2 May 2006 19:03:04 -0000 1.8
> > ***************
> > *** 270,280 ****
> >
> > 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
> >
> > --- 270,286 ----
> >
> > frame .color.f2
> > ! label .color.f2.lo -text "Opacity : "
> > ! entry .color.f2.o
> > ! .color.f2.o insert 0 "1"
> > !
> > ! frame .color.f3
> > ! button .color.f3.ok -text "Colorize" -command "Colorize2"
> > ! button .color.f3.cancel -text "Cancel" -command "grab release .color;
> > destroy .color"
> >
> > pack .color.f1.lc .color.f1.c -side left
> > ! pack .color.f2.lo .color.f2.o -side left
> > ! pack .color.f3.ok .color.f3.cancel -side left
> >
> > ! pack .color.f1 .color.f2 .color.f3 -side top
> > grab set .color
> >
> > ***************
> > *** 283,290 ****
> > 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"
> > }
> > --- 289,297 ----
> > proc Colorize2 { } {
> > set color [.color.f1.c get]
> > + set opacity [.color.f2.o get]
> > grab release .color
> > destroy .color
> >
> > ! if { [catch {::CxImage::Colorize $::loaded $color $opacity} res ] != 0 }
> > { msg_box "Unable to create thumbnail\n$res"
> > }
> >
> >
> >
> > -------------------------------------------------------
> > Using Tomcat but need to do more? Need to support web services, security?
> > Get stuff done quickly with pre-integrated technology to make your job
> > easier Download IBM WebSphere Application Server v.1.0.1 based on Apache
> > Geronimo
> > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
> > _______________________________________________
> > Amsn-commits mailing list
> > [EMAIL PROTECTED]
> > https://lists.sourceforge.net/lists/listinfo/amsn-commits
>
>
>
> -------------------------------------------------------
> Using Tomcat but need to do more? Need to support web services, security?
> Get stuff done quickly with pre-integrated technology to make your job easier
> Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid0709&bid&3057&dat1642
> _______________________________________________
> Amsn-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/amsn-devel
>
-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid0709&bid&3057&dat1642
_______________________________________________
Amsn-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/amsn-devel
