Permalink
Browse files

Fix default column types

  • Loading branch information...
jtappin committed Jan 18, 2013
1 parent 148f706 commit 98e46fe4f199b7eb2ff40c08a22645fdf5ec638d
Showing with 5 additions and 5 deletions.
  1. +2 −2 src/gtk-hl-tree-tmpl.f90
  2. +3 −3 src/gtk-hl-tree.f90
View
@@ -342,7 +342,7 @@ function hl_gtk_listn_new(scroll, ncols, types, changed, data, multiple,&
if (present(types)) then
types_all = types
else
- types_all = (/ (ncols_all-1)*G_TYPE_STRING /)
+ types_all(:) = G_TYPE_STRING
end if
if (present(renderers)) &
& call hl_gtk_list_tree_type_adjust(types_all, renderers)
@@ -1283,7 +1283,7 @@ function hl_gtk_tree_new(scroll, ncols, types, changed, data, multiple,&
if (present(types)) then
types_all = types
else
- types_all = (/ (ncols_all-1)*G_TYPE_STRING /)
+ types_all(:) = G_TYPE_STRING
end if
if (present(renderers)) &
& call hl_gtk_list_tree_type_adjust(types_all, renderers)
View
@@ -26,7 +26,7 @@
! --------------------------------------------------------
! gtk-hl-tree.f90
-! Generated: Fri Jan 18 16:30:11 2013 GMT
+! Generated: Fri Jan 18 17:40:21 2013 GMT
! Please do not edit this file directly,
! Edit gtk-hl-tree-tmpl.f90, and use ./mk_gtk_hl.pl to regenerate.
! Generated for GTK+ version: 2.24.0.
@@ -341,7 +341,7 @@ function hl_gtk_listn_new(scroll, ncols, types, changed, data, multiple,&
if (present(types)) then
types_all = types
else
- types_all = (/ (ncols_all-1)*G_TYPE_STRING /)
+ types_all(:) = G_TYPE_STRING
end if
if (present(renderers)) &
& call hl_gtk_list_tree_type_adjust(types_all, renderers)
@@ -1282,7 +1282,7 @@ function hl_gtk_tree_new(scroll, ncols, types, changed, data, multiple,&
if (present(types)) then
types_all = types
else
- types_all = (/ (ncols_all-1)*G_TYPE_STRING /)
+ types_all(:) = G_TYPE_STRING
end if
if (present(renderers)) &
& call hl_gtk_list_tree_type_adjust(types_all, renderers)

0 comments on commit 98e46fe

Please sign in to comment.