mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 10:09:20 +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
|
{ 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
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -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
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user