41 my $alpha = $button->get_alpha(); |
41 my $alpha = $button->get_alpha(); |
42 print "Color is: ", $color->to_string(), "\n"; |
42 print "Color is: ", $color->to_string(), "\n"; |
43 print "Alpha is: ", $alpha, "\n"; |
43 print "Alpha is: ", $alpha, "\n"; |
44 |
44 |
45 # Gtk2::StateType?! (man gtk2::widget) |
45 # Gtk2::StateType?! (man gtk2::widget) |
46 # FATAL: invalid enum GtkStateType value what, expecting: normal / GTK_STATE_NORMAL, |
|
47 # active / GTK_STATE_ACTIVE, prelight / GTK_STATE_PRELIGHT, selected / GTK_STATE_SELECTED, |
|
48 # insensitive / GTK_STATE_INSENSITIVE |
|
49 #$label->modify_bg( 'prelight', $color); |
|
50 #$label->modify_fg( 'active', $color); |
|
51 #$label->modify_text( 'normal', $color); |
|
52 |
46 |
53 $eventbox->modify_bg( 'normal', $color); |
47 $eventbox->modify_bg( 'normal', $color); |
54 #$glade->get_widget('frame1')->modify_bg( 'normal', $color); |
48 #$glade->get_widget('frame1')->modify_bg( 'normal', $color); |
55 |
|
56 $window_about->modify_bg( 'prelight', $color); |
|
57 } |
49 } |
58 |
50 |
59 |
51 |
60 sub on_main_about_button_clicked { |
52 sub on_main_about_button_clicked { $window_about->show(); } |
61 $window_about->show(); |
53 sub on_aboutdialog1_response { $window_about->hide(); } |
62 return 1; |
|
63 } |
|
64 |
|
65 sub on_aboutdialog1_response { |
|
66 $window_about->hide(); |
|
67 return 1; |
|
68 } |
|
69 |
54 |
70 sub on_entry_key_release_event { |
55 sub on_entry_key_release_event { |
71 my $widget = shift; |
56 my $widget = shift; |
72 my $event = shift; |
57 my $event = shift; |
73 |
58 |