This is a config window for a project I am doing. When you click on "open" the program will load the lines in the file into the config values. The problem that I'm running into is that when you select a file and hit 'ok' the values are not changed in the window. For testing purposes just create a text file with 4 or 5 lines of anything in it. 
#!/usr/bin/perl -w
use strict;
use warnings;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';
use threads;
use threads::shared;

#shared Variables
my $uasposition_local: shared = "/home/deadpickle/Desktop/project_down
+loads/uasposition";
my $uasposition_remote: shared = "/home/uas/Scripts/COORDS/uasposition
+";
my $waytemp_local: shared = "/home/deadpickle/Desktop/project_download
+s/waytemp";
my $waytemp_remote: shared = "/home/uas/Scripts/WP/waytemp";
my $wayfinal_local: shared = "/home/deadpickle/Desktop/project_downloa
+ds/wayfinal";
my $wayfinal_remote: shared = "/home/uas/Scripts/WP/wayfinal";
my $uaspf_local: shared = "/home/deadpickle/Desktop/project_downloads/
+uavpf.txt";
my $uaspf_remote: shared = "/home/uas/public_html/uas/uavpf.txt";
my $username: shared = 'uas';
my $server: shared = 'updraft.unl.edu';

#loads the default.cfg file on starup
open_file( my $default = 'default.cfg');

#create a new window
my $window_config = Gtk2::Window->new( 'toplevel');
$window_config->set_position( 'center');
$window_config->set_title( "Configuration");

#spacers
my $spacer5 = Gtk2::Label->new();
my $spacer6 = Gtk2::Label->new();
my $spacer7 = Gtk2::Label->new();
my $spacer8 = Gtk2::Label->new();
    
#create the container
my $table_interface = Gtk2::Table->new( 3,2, FALSE);

#create the notebook interface
my $notebook_interface = Gtk2::Notebook->new;
$notebook_interface->set_tab_pos( 'top');
    
#create the pages

#config file
my $table_file = Gtk2::Table->new( 3, 2, FALSE);
my $label_file = Gtk2::Label->new();
$label_file->set_markup( '<b>CONFIG FILE</b>'); 
my $button_open = Gtk2::Button->new( 'Open');
$table_file->attach_defaults( $label_file, 0, 2, 0, 1);
$table_file->attach_defaults( $button_open, 0, 1, 1, 2);
$button_open->signal_connect( 'clicked' => sub { 
    my $filechooser_open = Gtk2::FileChooserDialog->new( 'Open Config 
+File', undef, 'open', 'gtk-ok' => 'ok', 'gtk-cancel' => 'cancel');
    if ( 'ok' eq $filechooser_open->run) {
        my $filename = $filechooser_open->get_filename;
        open_file( $filename);
    }
    $filechooser_open->destroy;
});
    
#connection variables
my $table_sftp = Gtk2::Table->new( 3, 2, FALSE);
my $label_sftp = Gtk2::Label->new();
$label_sftp->set_markup( '<b>SFTP CONNECTION</b>'); 
my $label_sftp_username = Gtk2::Label->new( 'Username');
my $label_sftp_server = Gtk2::Label->new( 'Server');
my $entry_sftp_username = Gtk2::Entry->new();
$entry_sftp_username->set_text( $username);
my $entry_sftp_server = Gtk2::Entry->new();
$entry_sftp_server->set_text( $server);
$table_sftp->attach_defaults( $label_sftp, 0, 2, 0, 1);
$table_sftp->attach_defaults( $label_sftp_username, 0, 1, 1, 2);
$table_sftp->attach_defaults( $entry_sftp_username, 1, 2, 1, 2);
$table_sftp->attach_defaults( $label_sftp_server, 0, 1, 2, 3);
$table_sftp->attach_defaults( $entry_sftp_server, 1, 2, 2, 3);
    
#uasposition
my $table_uas = Gtk2::Table->new( 3, 2, FALSE);
my $label_uas = Gtk2::Label->new();
$label_uas->set_markup( '<b>UASPOSITION</b>'); 
my $label_uas_local = Gtk2::Label->new( 'local');
my $label_uas_remote = Gtk2::Label->new( 'remote');
my $entry_uas_local = Gtk2::Entry->new();
$entry_uas_local->set_text( $uasposition_local);
my $entry_uas_remote = Gtk2::Entry->new();
$entry_uas_remote->set_text( $uasposition_remote);
$label_uas_local->set_label( 'Local');
$label_uas_remote->set_label( 'Remote');
$table_uas->attach_defaults( $label_uas, 0, 2, 0, 1);
$table_uas->attach_defaults( $label_uas_local, 0, 1, 1, 2);
$table_uas->attach_defaults( $entry_uas_local, 1, 2, 1, 2);
$table_uas->attach_defaults( $label_uas_remote, 0, 1, 2, 3);
$table_uas->attach_defaults( $entry_uas_remote, 1, 2, 2, 3);
    
#waytemp
my $table_waytemp = Gtk2::Table->new( 3, 2, FALSE);
my $label_waytemp = Gtk2::Label->new();
$label_waytemp->set_markup( '<b>WAYTEMP</b>'); 
my $label_waytemp_local = Gtk2::Label->new( 'local');
my $label_waytemp_remote = Gtk2::Label->new( 'remote');
my $entry_waytemp_local = Gtk2::Entry->new();
$entry_waytemp_local->set_text( $waytemp_local);
my $entry_waytemp_remote = Gtk2::Entry->new();
$entry_waytemp_remote->set_text( $waytemp_remote);
$label_waytemp_local->set_label( 'Local');
$label_waytemp_remote->set_label( 'Remote');
$table_waytemp->attach_defaults( $label_waytemp, 0, 2, 0, 1);
$table_waytemp->attach_defaults( $label_waytemp_local, 0, 1, 1, 2);
$table_waytemp->attach_defaults( $entry_waytemp_local, 1, 2, 1, 2);
$table_waytemp->attach_defaults( $label_waytemp_remote, 0, 1, 2, 3);
$table_waytemp->attach_defaults( $entry_waytemp_remote, 1, 2, 2, 3);

#wayfinal
my $table_wayfinal = Gtk2::Table->new( 3, 2, FALSE);
my $label_wayfinal = Gtk2::Label->new();
$label_wayfinal->set_markup( '<b>WAYFINAL</b>'); 
my $label_wayfinal_local = Gtk2::Label->new( 'local');
my $label_wayfinal_remote = Gtk2::Label->new( 'remote');
my $entry_wayfinal_local = Gtk2::Entry->new();
$entry_wayfinal_local->set_text( $wayfinal_local);
my $entry_wayfinal_remote = Gtk2::Entry->new();
$entry_wayfinal_remote->set_text( $wayfinal_remote);
$label_wayfinal_local->set_label( 'Local');
$label_wayfinal_remote->set_label( 'Remote');
$table_wayfinal->attach_defaults( $label_wayfinal, 0, 2, 0, 1);
$table_wayfinal->attach_defaults( $label_wayfinal_local, 0, 1, 1, 2);
$table_wayfinal->attach_defaults( $entry_wayfinal_local, 1, 2, 1, 2);
$table_wayfinal->attach_defaults( $label_wayfinal_remote, 0, 1, 2, 3);
$table_wayfinal->attach_defaults( $entry_wayfinal_remote, 1, 2, 2, 3);

#uaspf.txt
my $table_uaspf = Gtk2::Table->new( 3, 2, FALSE);
my $label_uaspf = Gtk2::Label->new();
$label_uaspf->set_markup( '<b>UASPF.TXT</b>'); 
my $label_uaspf_local = Gtk2::Label->new( 'local');
my $label_uaspf_remote = Gtk2::Label->new( 'remote');
my $entry_uaspf_local = Gtk2::Entry->new();
$entry_uaspf_local->set_text( $uaspf_local);
my $entry_uaspf_remote = Gtk2::Entry->new();
$entry_uaspf_remote->set_text( $uaspf_remote);
$label_uaspf_local->set_label( 'Local');
$label_uaspf_remote->set_label( 'Remote');
$table_uaspf->attach_defaults( $label_uaspf, 0, 2, 0, 1);
$table_uaspf->attach_defaults( $label_uaspf_local, 0, 1, 1, 2);
$table_uaspf->attach_defaults( $entry_uaspf_local, 1, 2, 1, 2);
$table_uaspf->attach_defaults( $label_uaspf_remote, 0, 1, 2, 3);
$table_uaspf->attach_defaults( $entry_uaspf_remote, 1, 2, 2, 3);
    
#add pages to the notebook
$notebook_interface->append_page( $table_file, "config file");
$notebook_interface->append_page( $table_sftp, "sftp connection");
$notebook_interface->append_page( $table_uas, "uasposition");
$notebook_interface->append_page( $table_waytemp, "waytemp");
$notebook_interface->append_page( $table_wayfinal, "wayfinal");
$notebook_interface->append_page( $table_uaspf, "uaspf.txt");
    
#add buttons
my $button_cancel = Gtk2::Button->new( 'Cancel');

#add to the window
$table_interface->attach_defaults( $notebook_interface, 0, 2, 0, 1);
$table_interface->attach_defaults( $spacer5, 0, 2, 1, 2);
#$table_interface->attach_defaults( $button_save, 0, 1, 2, 3);
$table_interface->attach_defaults( $button_cancel, 1, 2, 2, 3);
$window_config->add( $table_interface);

$window_config->show_all;

$button_cancel->signal_connect( 'button-press-event' => sub { Gtk2->ma
+in_quit});

Gtk2->main;

#opens the file containing the config options
sub open_file {
    if ( defined (open FILE, '<', "$_[0]")) {
        
        #open the default.cfg file a nd load the variables
        my @file = <FILE>;
        chomp @file;
        $username = $file[0];
        $server = $file[1];
        $uasposition_local = $file[2];
        $uasposition_remote = $file[3];
        $waytemp_local = $file[4];
        $waytemp_remote = $file[5];
        $wayfinal_local= $file[6];
        $wayfinal_remote= $file[7];
        $uaspf_local= $file[8];
        $uaspf_remote= $file[9];
    }
    close FILE;
    
    return 1;
}

[download]

In reply to Gtk2: Config window/ FileChooser by deadpickle

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.