Yep! Let's do it!
Я подошёл к тому моменту, когда пользуясь опытом и наработками версии 0.001 я собираюсь написать следующую версию с 0. Как было написано в книге "Собор и базар" - "при разработке программы стоит хотябы 1 раз начать всё с начала". Заодно я сделал пример проектного файла и сейчас пишу обработчик который будет его превращать в собственно программу, тоесть сам PerlTkMaker будет заниматься обработкой проектного файла.
Образец проектного файла:
%libs
%window0
%button0
%lastcom
%end
VALUES
%libs="use utf8;use Tk;"
%window0="MainWindow->new(-title=>'%twindow0'); $window0->geometry('%gwindow0');"
%twindow0="window0"
%gwindow0="300x300"
%button0="$window0->button(-text=>'%tbutton0', -command=>sub{%cbutton0})->pack(-side=>'%sbutton0');"
%tbutton0="button0"
%sbutton0="top"
%cbutton0="exit(0);"
%lastcom="print 'Test...test';"
%end="MainLoop;"
Образец проектного файла:
%libs
%window0
%button0
%lastcom
%end
VALUES
%libs="use utf8;use Tk;"
%window0="MainWindow->new(-title=>'%twindow0'); $window0->geometry('%gwindow0');"
%twindow0="window0"
%gwindow0="300x300"
%button0="$window0->button(-text=>'%tbutton0', -command=>sub{%cbutton0})->pack(-side=>'%sbutton0');"
%tbutton0="button0"
%sbutton0="top"
%cbutton0="exit(0);"
%lastcom="print 'Test...test';"
%end="MainLoop;"
Забавно
