#!/usr/bin/perl
use strict;
use Gtk2 -init;
my $text = Getk2::Label->new("Sin Texto, Salir");
if(-f "archivo.cfg"){
open FL, "archivo.cfg";
while(my $linea = <FL>){
if($linea =~ /^Button_Text: (.*)$/){$text = $1;}
}
close FL;
}
my $entry = Gtk2::Entry->new;
my $button = Gtk2::Button->new;
$button->add($text);
$button->signal_connect(clicked => sub {Gtk2_main->quit;});
my $chbot = Gtk2::Button->new("Modificar texto");
my $box = Gtk2::VBox->new;
$chbot->signal_connect(clicked =>
sub {
$text->set_text($entry->get_text or "Salir");
$box->show_all;
open FL, "+>archivo.cfg";
print FL "Button_Text: $entry->get_text\n";
close FL;
}
);
my $window = Gtk2::Window->new;
$box->pack_start($button, 0, 0);
$box->pack_start($entry, 0, 0);
$box->pack_start($chbot, 0, 0);
$window->add($box);
$window->show_all;
Gtk2->main;