http://www.perlmonks.org?node_id=636601


in reply to Re: console editor
in thread console editor

gtk2 is a c-library -?
Here is an example in cpp pseudo code how I understood coding with tvision:
class button { // The tvision class public: virtual void buttonclick(){ //Overwrite me ... } ... } class mybutton public Button { // This is my button ... virtual void buttonclick(){ //do something exit(0); } } int main(){ //Initialize the app.. app->mainloop(); }

TVision is object oriented, and I don't know howto implement the example of the class mybutton in perl in a useful manner.

I thought already about a wrapper which implements event style hooks.

Would look something like this:
--- cpp layer class perlwrapper_button public Button{ virtual void buttonclick(){ if ( !call perl->this_instance->buttonclick() ){ Button::buttonclick(); // Call tvision's buttononclick } } } --- perl module package Button; sub buttonclick{ return 0; } 1; --- The perl code of mybutton: package MyButton; push @ISA, 'Button'; sub buttonclick{ exit(0); } 1;
I doubt, however, this concept is wise.