test1: remov unused stuff, implode long unnecessary thingz default tip
authorPeter Gervai <grin@grin.hu>
Thu, 16 Oct 2008 15:29:50 +0200
changeset 5 89516833532f
parent 4 e1efc7395f84
test1: remov unused stuff, implode long unnecessary thingz
test1.pl
--- a/test1.pl	Thu Oct 16 15:29:16 2008 +0200
+++ b/test1.pl	Thu Oct 16 15:29:50 2008 +0200
@@ -43,29 +43,14 @@
     print "Alpha is: ", $alpha, "\n";
     
     # Gtk2::StateType?! (man gtk2::widget)
-    #  FATAL: invalid enum GtkStateType value what, expecting: normal / GTK_STATE_NORMAL, 
-    # active / GTK_STATE_ACTIVE, prelight / GTK_STATE_PRELIGHT, selected / GTK_STATE_SELECTED, 
-    # insensitive / GTK_STATE_INSENSITIVE 
-    #$label->modify_bg( 'prelight', $color);
-    #$label->modify_fg( 'active', $color);
-    #$label->modify_text( 'normal', $color);
     
     $eventbox->modify_bg( 'normal', $color);
     #$glade->get_widget('frame1')->modify_bg( 'normal', $color);
-    
-    $window_about->modify_bg( 'prelight', $color);
 }
 
 
-sub on_main_about_button_clicked {
-    $window_about->show();
-    return 1;
-}
-
-sub on_aboutdialog1_response {
-    $window_about->hide();
-    return 1;
-}
+sub on_main_about_button_clicked { $window_about->show(); }
+sub on_aboutdialog1_response { $window_about->hide(); }
 
 sub on_entry_key_release_event {
     my $widget = shift;