Fix selection error

vmagnin · Aug 12, 2012 · 727756d · 727756d
1 parent 3ddc0cb
commit 727756d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/examples/hl_list1.f90 b/examples/hl_list1.f90
@@ -67,9 +67,10 @@ subroutine list_select(list, gdata) bind(c)
           print *, selections
           deallocate(selections)
        else    ! Delete the selected row
-          call hl_gtk_list1_rem(ihlist, selections(1))
           call gtk_toggle_button_set_active(dbut, FALSE)
           fdata = 0
+          print *, "Delete row:", selections(1)
+          call hl_gtk_list1_rem(ihlist, selections(1))
        end if
     end if