Grid editable for linux

[lazarusoft]

Hello ... I need a grid editavel my knowledge in GTK
is still little ...
if someone can help me thank these two codes ..

;Grid editable
#GTK_CELL_RENDERER_FOCUSED = 1 << 4


ImportC ""
gtk_tree_view_set_enable_tree_lines(*tree_view.GtkTreeView, enable.l);
gtk_tree_view_set_grid_lines(*tree_view.GtkTreeView, grid.l);
gtk_cell_view_new()
gtk_cell_view_new_with_text(test.s);
gtk_cell_view_set_background_color(*tree_view.GtkTreeView, cor.l)
EndImport

LoadFont(9,"mono",14)

If OpenWindow(5, 100, 100,400, 200, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(5))

ListIconGadget(2, 5, 5, 390, 190, "Cod", 90)

gtk_tree_view_set_grid_lines(GadgetID(2),3)

Renderer = gtk_cell_renderer_text_new_()
; gtk_cell_renderer_set_fixed_size_(Renderer,100,25)

g_object_set_(Renderer, "editable", #True); set colun mode editable

Column=gtk_tree_view_insert_column_with_attributes_(GadgetID(2),-1,"Colun editable",Renderer,"text")
;
AddGadgetItem(2,0, "001")
AddGadgetItem(2,1, "002")
AddGadgetItem(2,2, "003")
;
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 2

EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
EndIf
End

second Code using gtkextra
;
#GTK_SHEET_LEFT_BORDER = 1 << 0
#G_TYPE_STRING = 16 << 2
;
ImportC "/usr/lib/libgtkextra-x11-2.0.a"
gtk_sheet_new(rows,columns, title.s);
gtk_sheet_change_entry(sheet.l, tipo.l);
gtk_sheet_set_cell_text(sheet, row, col, text.s);
gtk_sheet_cell_get_text(sheet, row, col);
gtk_sheet_hide_column_titles(sheet);
gtk_sheet_hide_row_titles(sheet);
gtk_sheet_set_autoresize(sheet.l, autoresize.l);
gtk_sheet_set_autoscroll(sheet.l, auto.l);
EndImport
;
;color.GdkColor
;
If OpenWindow(1, 100, 100,800, 480, "PureBasic Window", #PB_Window_SystemMenu | #PB_Window_MaximizeGadget)
CreateGadgetList(WindowID(1))
;ScrollBarGadget(25, 0, 0, 500, 40, 400, 600, 0)
ContainerGadget(3,0,0,800,480,#PB_Container_Double)

;
*sheets=gtk_sheet_new(10,8, "a");
gtk_sheet_hide_row_titles(*sheets);
gtk_sheet_hide_column_titles(*sheets);
gtk_container_add_(GadgetID(3), *sheets)
;gtk_sheet_set_autoresize(*sheets, 1);
gtk_sheet_set_autoscroll(*sheets, 1);
gtk_widget_set_size_request_(*sheets,700,400)
;gtk_widget_set_scroll_adjustments_(*sheets,100,120)
;*scrolled=gtk_scrolled_window_new_(#Null, #Null);
gtk_container_add_(*scrolled, *sheets)
; Debug PeekS(gtk_sheet_cell_get_text(*sheets, row, col));
gtk_widget_show_(*sheets)
gtk_widget_show_(*scrolled)
; gtk_sheet_set_column_title(*sheets,1, "dsfsdfsd");

CloseGadgetList()

;For y = 0 To 40
gtk_sheet_set_cell_text(*sheets, 0,0, "abc123");
; Next
Repeat

EventID.l = WaitWindowEvent()

If EventID = #PB_Event_CloseWindow ; If the user has pressed on the close button
Quit = 1
EndIf

Until Quit = 1

EndIf

End