GUIDeFATE
view release on metacpan or search on metacpan
A simple hellow world
+------------------+
|T Message |
+------------------+
| |
| Hello World! ! |
| |
+------------------+
A Calculator
+------------------------+
|T Calculator |
+------------------------+
| [__________________] |
| { V }{ % }{ C }{AC } |
| { 1 }{ 2 }{ 3 }{ + } |
| { 4 }{ 5 }{ 6 }{ - } |
| { 7 }{ 8 }{ 9 }{ * } |
| { . }{ 0 }{ = }{ / } |
| made with GUIdeFATE |
+------------------------+
# Example PERL script
perl
#!/usr/bin/perl -w
use strict;
use GUIDeFATE;
package Main;
my $window=<<END;
+------------------------+
|T Calculator |
+------------------------+
| [ ] |
| { V }{ % }{ C }{AC } |
| { 1 }{ 2 }{ 3 }{ + } |
| { 4 }{ 5 }{ 6 }{ - } |
| { 7 }{ 8 }{ 9 }{ * } |
| { . }{ 0 }{ = }{ / } |
| made with GUIdeFATE |
+------------------------+
END
my $gui=GUIDeFATE->new($window);
$gui->MainLoop;
This produces something like
https://github.com/saiftynet/GUIDeFATE/blob/master/calculator%20screenshot.png
Of course this is at a very early stage, and I have only implemented
buttons, static text and text control widgets. More will come.
Suggestions welcome.
EDIT> have implemented Menu and image subpanels at version 0.0.2
EDIT> have implemented Multiline text ctrl subpanels at version 0.0.3
EDIT> have implemented Message Boxes and file selector at Version 0.04
EDIT> have implemented an potential modification to allow other backends
EDIT> Have implemented a Tk backend
Copyright (C) 2018 Saif Ahmed
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.6 or,
at your option, any later version of Perl 5 you may have available.
( run in 1.435 second using v1.01-cache-2.11-cpan-63c85eba8c4 )