Skip to content

Instantly share code, notes, and snippets.

@ik5

ik5/gist:3549959

Created August 31, 2012 07:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ik5/3549959 to your computer and use it in GitHub Desktop.
Save ik5/3549959 to your computer and use it in GitHub Desktop.
Download ZIP
old gtk2 binding to pascal
Raw
gistfile1.pas
type
PGtkButton = ^TGtkButton;
TGtkButton = record
bin : TGtkBin;
event_window : PGdkWindow;
label_text : Pgchar;
activate_timeout : guint;
flag0 : word;
end;
function gtk_button_new:PGtkWidget; cdecl; external gtklib;
procedure gtk_button_set_label(button:PGtkButton; _label:Pgchar); cdecl; external gtklib;
function gtk_button_get_label(button:PGtkButton):Pgchar; cdecl; external gtklib;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment