mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 10:45:08 +02:00
* win32 updates
This commit is contained in:
parent
b3136a6790
commit
a7f67c9b9c
@ -24,7 +24,7 @@ end;
|
||||
|
||||
{ this is the signal handler that got connected to button
|
||||
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
|
||||
dlist, free_list : pGList;
|
||||
new_prisoner : pGtkWidget;
|
||||
@ -70,7 +70,7 @@ end;
|
||||
|
||||
{ this is the signal handler that gets called if GtkList
|
||||
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;
|
||||
list_item : pGtkObject;
|
||||
item_data_string : pgchar;
|
||||
@ -213,7 +213,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
|
||||
}
|
||||
|
@ -74,9 +74,7 @@ Procedure gtk_signal_default_marshallerT(theobject : pGtkObject;
|
||||
func_data : gpointer;
|
||||
args : pGtkArg); cdecl;
|
||||
begin
|
||||
{$ifndef win32}
|
||||
gtk_marshal_NONE__NONE (theobject,func,func_data,args);
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
Procedure tictactoe_class_init (theclass : pTictactoeClass );
|
||||
@ -163,7 +161,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
|
||||
}
|
||||
|
@ -9,10 +9,6 @@ uses
|
||||
glib,gdk,gtk,
|
||||
tictactoe;
|
||||
|
||||
{$ifndef win32}
|
||||
{$linklib Xext}
|
||||
{$endif}
|
||||
|
||||
procedure win (widget : pGtkWidget ; data: gpointer); cdecl;
|
||||
begin
|
||||
writeln ('Yay!');
|
||||
@ -48,7 +44,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user