After our recent monger meeting, I've been hung up on the Logo implementation not being a Tk widget. I decided to create a Tk widget that starts with Tk::Canvas and adds some stuff to do Logo style method calls. The widget is Tk::CanvasLogo.
It's a first draft, but it can execute some basic Logo methods. It isn't a Logo command interpreter and it doesn't get its commands from some channel or pipe or something. It's a plain Tk widget that you can instantiate inside of a normal Tk GUI panel anywhere you would put a Tk::Canvas. Turtles are treated as objects, and you should be able to instantiate multiple turtles if you want. Each turtle can then call methods like $turtle->pen_up or ->forward or whatever that a logo turtle could do. As it stands, the interface is just method calls, so it doesn't run pure logo, it just provides a simple Tk widget with logo-like methods to that you could add whatever interface you want, pipes or threads or simply code it up as perl method calls inside a GUI. I just loaded it to the PAUSE server, so it should eventually show up here. https://pause.perl.org/pub/PAUSE/authors/id/G/GS/GSLONDON/ It'll be Tk::CanvasLogo-0.1.tar.gzip or something approximate to that effect. I'll fiddle with more features when I get some more tuits. Greg _______________________________________________ Boston-pm mailing list [email protected] http://mail.pm.org/mailman/listinfo/boston-pm
