* win32 updates

This commit is contained in:
peter 2000-09-09 20:59:15 +00:00
parent b3136a6790
commit a7f67c9b9c
3 changed files with 17 additions and 14 deletions

View File

@ -24,7 +24,7 @@ end;
{ this is the signal handler that got connected to button { this is the signal handler that got connected to button
press/release events of the GtkList } press/release events of the GtkList }
procedure sigh_button_event (gtklist: pGtkWidget;event:pGdkEventButton;frame:pGtkWidget);{$ifdef win32}stdcall;{$else}cdecl;{$endif} procedure sigh_button_event (gtklist: pGtkWidget;event:pGdkEventButton;frame:pGtkWidget);cdecl;
var var
dlist, free_list : pGList; dlist, free_list : pGList;
new_prisoner : pGtkWidget; new_prisoner : pGtkWidget;
@ -70,7 +70,7 @@ end;
{ this is the signal handler that gets called if GtkList { this is the signal handler that gets called if GtkList
emits the 'selection_changed' signal } emits the 'selection_changed' signal }
procedure sigh_print_selection (gtklist : pGtkWidget;func_data : gpointer);{$ifdef win32}stdcall;{$else}cdecl;{$endif} procedure sigh_print_selection (gtklist : pGtkWidget;func_data : gpointer);cdecl;
var dlist : pGList; var dlist : pGList;
list_item : pGtkObject; list_item : pGtkObject;
item_data_string : pgchar; item_data_string : pgchar;
@ -213,7 +213,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:18 michael Revision 1.3 2000-09-09 20:59:15 peter
* win32 updates
Revision 1.2 2000/07/13 11:33:18 michael
+ removed logs + removed logs
} }

View File

@ -74,9 +74,7 @@ Procedure gtk_signal_default_marshallerT(theobject : pGtkObject;
func_data : gpointer; func_data : gpointer;
args : pGtkArg); cdecl; args : pGtkArg); cdecl;
begin begin
{$ifndef win32}
gtk_marshal_NONE__NONE (theobject,func,func_data,args); gtk_marshal_NONE__NONE (theobject,func,func_data,args);
{$endif}
end; end;
Procedure tictactoe_class_init (theclass : pTictactoeClass ); Procedure tictactoe_class_init (theclass : pTictactoeClass );
@ -163,7 +161,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:18 michael Revision 1.3 2000-09-09 20:59:15 peter
* win32 updates
Revision 1.2 2000/07/13 11:33:18 michael
+ removed logs + removed logs
} }

View File

@ -9,10 +9,6 @@ uses
glib,gdk,gtk, glib,gdk,gtk,
tictactoe; tictactoe;
{$ifndef win32}
{$linklib Xext}
{$endif}
procedure win (widget : pGtkWidget ; data: gpointer); cdecl; procedure win (widget : pGtkWidget ; data: gpointer); cdecl;
begin begin
writeln ('Yay!'); writeln ('Yay!');
@ -48,7 +44,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:18 michael Revision 1.3 2000-09-09 20:59:15 peter
* win32 updates
Revision 1.2 2000/07/13 11:33:18 michael
+ removed logs + removed logs
} }