Use geometry configuration as startup geometry

Author: H.Merijn Brand - Tux

lib/PM/CB/GUI.pm

@@ -40,6 +40,7 @@ sub gui {
     require Tk::Balloon;
 
     $self->{mw} = my $mw = 'MainWindow'->new(-title => TITLE);
+    $self->{geometry} and $mw->geometry ($self->{geometry});
     $mw->protocol(WM_DELETE_WINDOW => sub { $self->quit });
     $mw->optionAdd('*font', "$self->{font_name} $self->{char_size}");
 

pm-cb-g

@@ -109,28 +109,13 @@ my $control_t = $worker_class->create(sub {
 });
 
 my $gui = 'PM::CB::GUI'->new({
-    bg_color      => $conf{bg_color},
-    fg_color      => $conf{fg_color},
-    author_color  => $conf{author_color},
-    private_color => $conf{private_color},
-    gesture_color => $conf{gesture_color},
-    time_color    => $conf{time_color},
-    font_name     => $conf{font_name},
-    char_size     => $conf{char_size},
-    stack_size    => $conf{stack_size},
-    seen_color    => $conf{seen_color},
-    mce           => $conf{mce},
-    no_time       => $conf{no_time},
-    from_comm     => $to_gui,
-    to_comm       => $to_comm,
-    to_control    => $to_control,
-    control_t     => $control_t,
-    copy_url      => $conf{copy_url},
-    browse_url    => $conf{browse_url},
-    random_url    => $conf{random_url}});
+    %conf,
+    from_comm  => $to_gui,
+    to_comm    => $to_comm,
+    to_control => $to_control,
+    control_t  => $control_t});
 $gui->gui;
 
-
 =head1 NAME
 
 pm-cb-g - A GUI client to PerlMonks' Chatter Box