Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added missing sensitive key to submenus.

  • Loading branch information...
commit 6c6e0810790e764d053530980c792238f059b7f4 1 parent 1d4501c
@jtappin jtappin authored
Showing with 13 additions and 7 deletions.
  1. +6 −3 src/gtk-hl-menu-tmpl.f90
  2. +7 −4 src/gtk-hl-menu.f90
View
9 src/gtk-hl-menu-tmpl.f90
@@ -107,15 +107,15 @@ function hl_gtk_menu_new(orientation, bar) result(menu)
end function hl_gtk_menu_new
!+
- function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup) &
- & result(submenu)
+ function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup, &
+ & sensitive) result(submenu)
type(c_ptr) :: submenu
type(c_ptr) :: menu
character(kind=c_char), dimension(*), intent(in) :: label
character(kind=c_char), dimension(*), intent(in), optional :: tooltip
integer(kind=c_int), intent(in), optional :: pos
- integer(kind=c_int), intent(in), optional :: is_markup
+ integer(kind=c_int), intent(in), optional :: is_markup, sensitive
! Make a submenu node
!
@@ -126,6 +126,8 @@ function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup) &
! (omit to append)
! IS_MARKUP: boolean: optional: Set this to TRUE if the label contains
! Pango markup.
+ ! SENSITIVE: boolean: optional: Set to FALSE to make the widget start in an
+ ! insensitive state.
!-
type(c_ptr) :: item, label_w
@@ -158,6 +160,7 @@ function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup) &
call gtk_menu_shell_append(menu, item)
end if
+ if (present(sensitive)) call gtk_widget_set_sensitive(item, sensitive)
if (present(tooltip)) call gtk_widget_set_tooltip_text(item, tooltip)
end function hl_gtk_menu_submenu_new
View
11 src/gtk-hl-menu.f90
@@ -26,7 +26,7 @@
! --------------------------------------------------------
! gtk-hl-menu.f90
-! Generated: Fri Feb 1 15:23:23 2013 GMT
+! Generated: Wed Feb 6 17:08:04 2013 GMT
! Please do not edit this file directly,
! Edit gtk-hl-menu-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
! Generated for GTK+ version: 2.24.0.
@@ -106,15 +106,15 @@ function hl_gtk_menu_new(orientation, bar) result(menu)
end function hl_gtk_menu_new
!+
- function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup) &
- & result(submenu)
+ function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup, &
+ & sensitive) result(submenu)
type(c_ptr) :: submenu
type(c_ptr) :: menu
character(kind=c_char), dimension(*), intent(in) :: label
character(kind=c_char), dimension(*), intent(in), optional :: tooltip
integer(kind=c_int), intent(in), optional :: pos
- integer(kind=c_int), intent(in), optional :: is_markup
+ integer(kind=c_int), intent(in), optional :: is_markup, sensitive
! Make a submenu node
!
@@ -125,6 +125,8 @@ function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup) &
! (omit to append)
! IS_MARKUP: boolean: optional: Set this to TRUE if the label contains
! Pango markup.
+ ! SENSITIVE: boolean: optional: Set to FALSE to make the widget start in an
+ ! insensitive state.
!-
type(c_ptr) :: item, label_w
@@ -157,6 +159,7 @@ function hl_gtk_menu_submenu_new(menu, label, tooltip, pos, is_markup) &
call gtk_menu_shell_append(menu, item)
end if
+ if (present(sensitive)) call gtk_widget_set_sensitive(item, sensitive)
if (present(tooltip)) call gtk_widget_set_tooltip_text(item, tooltip)
end function hl_gtk_menu_submenu_new
Please sign in to comment.
Something went wrong with that request. Please try again.