Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Set initial values BEFORE connecting signals.

  • Loading branch information...
commit 11e35d5ea2c7cc1c5ebb0f3165794347164b6873 1 parent 2ea698e
@jtappin jtappin authored
View
6 src/gtk-hl-button-tmpl.f90
@@ -233,6 +233,9 @@ function hl_gtk_check_button_new(label, toggled, data, tooltip, &
end if
end if
+ if (present(initial_state)) &
+ & call gtk_toggle_button_set_active(but, initial_state)
+
if (present(toggled)) then
if (present(data)) then
call g_signal_connect(but, "toggled"//c_null_char, toggled, data)
@@ -243,9 +246,6 @@ function hl_gtk_check_button_new(label, toggled, data, tooltip, &
if (present(tooltip)) call gtk_widget_set_tooltip_text(but, tooltip)
- if (present(initial_state)) &
- & call gtk_toggle_button_set_active(but, initial_state)
-
if (present(sensitive)) &
& call gtk_widget_set_sensitive(but, sensitive)
View
8 src/gtk-hl-button.f90
@@ -26,7 +26,7 @@
! --------------------------------------------------------
! gtk-hl-button.f90
-! Generated: Mon Dec 31 18:00:13 2012 GMT
+! Generated: Thu Jan 31 20:34:49 2013 GMT
! Please do not edit this file directly,
! Edit gtk-hl-button-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
! Generated for GTK+ version: 2.24.0.
@@ -232,6 +232,9 @@ function hl_gtk_check_button_new(label, toggled, data, tooltip, &
end if
end if
+ if (present(initial_state)) &
+ & call gtk_toggle_button_set_active(but, initial_state)
+
if (present(toggled)) then
if (present(data)) then
call g_signal_connect(but, "toggled"//c_null_char, toggled, data)
@@ -242,9 +245,6 @@ function hl_gtk_check_button_new(label, toggled, data, tooltip, &
if (present(tooltip)) call gtk_widget_set_tooltip_text(but, tooltip)
- if (present(initial_state)) &
- & call gtk_toggle_button_set_active(but, initial_state)
-
if (present(sensitive)) &
& call gtk_widget_set_sensitive(but, sensitive)
View
3  src/gtk-hl-combobox-tmpl.f90
@@ -133,6 +133,8 @@ function hl_gtk_combo_box_new(has_entry, changed, data, initial_choices, &
end do
end if
+ if (present(active)) call gtk_combo_box_set_active(cbox, active)
+
if (present(changed)) then
if (present(data)) then
call g_signal_connect(cbox, "changed"//C_NULL_CHAR, changed, data)
@@ -141,7 +143,6 @@ function hl_gtk_combo_box_new(has_entry, changed, data, initial_choices, &
end if
end if
- if (present(active)) call gtk_combo_box_set_active(cbox, active)
if (present(sensitive)) call gtk_widget_set_sensitive(cbox, sensitive)
if (present(tooltip)) call gtk_widget_set_tooltip_text(cbox, tooltip)
end function hl_gtk_combo_box_new
View
5 src/gtk-hl-combobox.f90
@@ -26,7 +26,7 @@
! --------------------------------------------------------
! gtk-hl-combobox.f90
-! Generated: Mon Dec 31 18:00:13 2012 GMT
+! Generated: Thu Jan 31 20:34:49 2013 GMT
! Please do not edit this file directly,
! Edit gtk-hl-combobox-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
! Generated for GTK+ version: 2.24.0.
@@ -132,6 +132,8 @@ function hl_gtk_combo_box_new(has_entry, changed, data, initial_choices, &
end do
end if
+ if (present(active)) call gtk_combo_box_set_active(cbox, active)
+
if (present(changed)) then
if (present(data)) then
call g_signal_connect(cbox, "changed"//C_NULL_CHAR, changed, data)
@@ -140,7 +142,6 @@ function hl_gtk_combo_box_new(has_entry, changed, data, initial_choices, &
end if
end if
- if (present(active)) call gtk_combo_box_set_active(cbox, active)
if (present(sensitive)) call gtk_widget_set_sensitive(cbox, sensitive)
if (present(tooltip)) call gtk_widget_set_tooltip_text(cbox, tooltip)
end function hl_gtk_combo_box_new
View
14 src/gtk-hl-entry-tmpl.f90
@@ -149,6 +149,8 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
if (present(editable)) &
& call gtk_editable_set_editable(entry, editable)
+ if (present(value)) call gtk_entry_set_text(entry, value)
+
if (present(activate)) then
if (present(data)) then
call g_signal_connect(entry, &
@@ -169,16 +171,16 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
end if
if (present(delete_text)) then
if (present(data_delete_text)) then
- call g_signal_connect(entry, "delete-text"//C_NULL_CHAR, delete_text, &
- & data_delete_text)
+ call g_signal_connect(entry, "delete-text"//C_NULL_CHAR, &
+ & delete_text, data_delete_text)
else
call g_signal_connect(entry, "delete-text"//C_NULL_CHAR, delete_text)
end if
end if
if (present(insert_text)) then
if (present(data_insert_text)) then
- call g_signal_connect(entry, "insert-text"//C_NULL_CHAR, insert_text, &
- & data_insert_text)
+ call g_signal_connect(entry, "insert-text"//C_NULL_CHAR, &
+ & insert_text, data_insert_text)
else
call g_signal_connect(entry, "insert-text"//C_NULL_CHAR, insert_text)
end if
@@ -186,7 +188,8 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
if (present(focus_out_event)) then
if (present(data_focus_out)) then
call g_signal_connect(entry, &
- & "focus-out-event"//C_NULL_CHAR, focus_out_event, data_focus_out)
+ & "focus-out-event"//C_NULL_CHAR, focus_out_event, &
+ & data_focus_out)
else
call g_signal_connect(entry, &
& "focus-out-event"//C_NULL_CHAR, focus_out_event)
@@ -205,7 +208,6 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
if (present(tooltip)) call gtk_widget_set_tooltip_text(entry, tooltip)
- if (present(value)) call gtk_entry_set_text(entry, value)
if (present(sensitive)) &
& call gtk_widget_set_sensitive(entry, sensitive)
View
16 src/gtk-hl-entry.f90
@@ -26,7 +26,7 @@
! --------------------------------------------------------
! gtk-hl-entry.f90
-! Generated: Mon Dec 31 18:00:13 2012 GMT
+! Generated: Thu Jan 31 20:34:49 2013 GMT
! Please do not edit this file directly,
! Edit gtk-hl-entry-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
! Generated for GTK+ version: 2.24.0.
@@ -148,6 +148,8 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
if (present(editable)) &
& call gtk_editable_set_editable(entry, editable)
+ if (present(value)) call gtk_entry_set_text(entry, value)
+
if (present(activate)) then
if (present(data)) then
call g_signal_connect(entry, &
@@ -168,16 +170,16 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
end if
if (present(delete_text)) then
if (present(data_delete_text)) then
- call g_signal_connect(entry, "delete-text"//C_NULL_CHAR, delete_text, &
- & data_delete_text)
+ call g_signal_connect(entry, "delete-text"//C_NULL_CHAR, &
+ & delete_text, data_delete_text)
else
call g_signal_connect(entry, "delete-text"//C_NULL_CHAR, delete_text)
end if
end if
if (present(insert_text)) then
if (present(data_insert_text)) then
- call g_signal_connect(entry, "insert-text"//C_NULL_CHAR, insert_text, &
- & data_insert_text)
+ call g_signal_connect(entry, "insert-text"//C_NULL_CHAR, &
+ & insert_text, data_insert_text)
else
call g_signal_connect(entry, "insert-text"//C_NULL_CHAR, insert_text)
end if
@@ -185,7 +187,8 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
if (present(focus_out_event)) then
if (present(data_focus_out)) then
call g_signal_connect(entry, &
- & "focus-out-event"//C_NULL_CHAR, focus_out_event, data_focus_out)
+ & "focus-out-event"//C_NULL_CHAR, focus_out_event, &
+ & data_focus_out)
else
call g_signal_connect(entry, &
& "focus-out-event"//C_NULL_CHAR, focus_out_event)
@@ -204,7 +207,6 @@ function hl_gtk_entry_new(len, editable, activate, data, tooltip, value, &
if (present(tooltip)) call gtk_widget_set_tooltip_text(entry, tooltip)
- if (present(value)) call gtk_entry_set_text(entry, value)
if (present(sensitive)) &
& call gtk_widget_set_sensitive(entry, sensitive)
Please sign in to comment.
Something went wrong with that request. Please try again.