From: Vaughn S. <vau...@in...> - 2007-03-21 11:07:58
|
Mark, Good morning & thanks for the post. Is there a particular source of information that I should seek for background information on the "SetLogicalFunction" method? I've spent the last several hours scouring the 'net for details and have mostly come up empty handed. I did locate several programming examples ... albeit nothing written in Perl. The best (attached) is written in Python, and is unfortunately beyond my grasp in terms of how to implement in Perl. In studying the attached, as a novice, it does spur recognition that the undo/redo capability is fundamental to marking up displayed images. Basic drawing (lines/rects/text) on an image is fairly straightforward. But interacting with the drawn primitives after-the-fact is really what I'm after ... the ability to select, move, delete ... and that's where I'm stuck. Any further thoughts would be greatly appreciated. Best regards, Vaughn ----- Original Message ----- From: "Mark Dootson" <mar...@zn...> To: "Gene Beaumont" <gen...@in...> Cc: <wxp...@li...> Sent: Monday, March 19, 2007 2:32 PM Subject: Re: [wxperl-users] DCPaint Widget Question Hi, I assume you just want to remove individual items rather than clear the whole canvas? Sorry, I have no code snippet but the function you need is Wx::DC::SetLogicalFunction The general approach is to repeat the drawing code after setting the appropriate logical function - so overwriting returns you to the original background. I don't have the correct logical functions to use, but hopefully this points you in the right direction. Regards Mark Gene Beaumont wrote: > Can anyone supply info and/or code snippet concerning how to undo/redo > text & primitives that are drawn on a canvas that is created via the > following: > > my $dc = Wx::PaintDC->new( $self ); > > Thanks, > Gene > > Eugene S. Beaumont Jr. > Senior Consultant > Intercept Technology Inc. > *** Essayons *** > Office: 1-404-352-0111 x924 > Fax: 585.768.9372 > http://www.intercept.com > > ------------------------------------------------------------------------- > Take Surveys. Earn Cash. Influence the Future of IT > Join SourceForge.net's Techsay panel and you'll get the chance to > share your > opinions on IT & business topics through brief surveys-and earn cash > http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV > _______________________________________________ > wxperl-users mailing list > wxp...@li... > https://lists.sourceforge.net/lists/listinfo/wxperl-users ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys-and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ wxperl-users mailing list wxp...@li... https://lists.sourceforge.net/lists/listinfo/wxperl-users |