added gtk_grid_remove_row/column convenience function

JuliaGraphics · Jan 19, 2016 · eccf234 · eccf234
1 parent 81a6713
commit eccf234
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 1 deletion.
diff --git a/src/layout.jl b/src/layout.jl
@@ -57,6 +57,16 @@ if gtk_version == 3
         end
     end
 
+    function deleteat!(grid::GtkGrid, i::Integer, side::Symbol)
+        if side == :row
+            ccall((:gtk_grid_remove_row,libgtk), Void, (Ptr{GObject}, Cint), grid, i)
+        elseif side == :col
+            ccall((:gtk_grid_remove_column,libgtk), Void, (Ptr{GObject}, Cint), grid, i)
+        else
+            error(string("invalid GtkPositionType ",s))
+        end
+    end
+
     function insert!(grid::GtkGrid, sibling, side::Symbol)
         ccall((:gtk_grid_insert_next_to,libgtk), Void, (Ptr{GObject}, Ptr{GObject}, Cint), grid, sibling, GtkPositionType.(side))
     end

diff --git a/test/gui.jl b/test/gui.jl
@@ -133,7 +133,7 @@ push!(w, ex)
 showall(w)
 destroy(w)
 
-## Grid
+## Table
 grid = @Table(3,3)
 w = @Window(grid, "Grid", 400, 400)
 grid[2,2] = @Button("2,2")
@@ -142,6 +142,17 @@ grid[1,1] = "grid"
 showall(w)
 destroy(w)
 
+## Grid
+grid = @Grid()
+w = @Window(grid, "Grid", 400, 400)
+grid[2,2] = @Button("2,2")
+grid[2,3] = @Button("2,3")
+grid[1,1] = "grid"
+insert!(grid,1,:top)
+deleteat!(grid,1,:row)
+showall(w)
+destroy(w)
+
 
 ## Widgets