소스 검색

* win32 updates

peter 25 년 전
부모
커밋
c85760f7c7
3개의 변경된 파일98개의 추가작업 그리고 17개의 파일을 삭제
  1. 38 5
      packages/gtk/examples/list.pp
  2. 36 5
      packages/gtk/examples/tictactoe.pp
  3. 24 7
      packages/gtk/examples/ttt_test.pp

+ 38 - 5
packages/gtk/examples/list.pp

@@ -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,40 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:18  michael
-  + removed logs
- 
+  Revision 1.1.2.1  2000-09-09 20:30:35  peter
+    * win32 updates
+
+  Revision 1.1  2000/07/13 06:34:00  michael
+  + Initial import
+
+  Revision 1.2  2000/01/24 23:57:56  peter
+    * updated for fpcmake require section
+
+  Revision 1.1  1999/11/24 23:36:33  peter
+    * moved to packages dir
+
+  Revision 1.8  1999/10/05 09:28:26  peter
+    * patches from Frank Loemker
+
+  Revision 1.7  1999/05/10 19:18:11  peter
+    * more fixes for the examples to work
+
+  Revision 1.6  1999/05/10 09:02:34  peter
+    * gtk 1.2 port working
+
+  Revision 1.5  1999/02/03 11:34:10  michael
+  + Patch from Frank Loemker
+
+  Revision 1.4  1999/02/01 09:52:43  michael
+  + Patch from Frank Loemker
+
+  Revision 1.3  1999/01/26 12:42:20  michael
+  *** empty log message ***
+
+  Revision 1.2  1998/10/22 11:37:28  peter
+    * fixes for win32
+
+  Revision 1.1  1998/10/21 22:27:01  peter
+    + initial version
+
 }

+ 36 - 5
packages/gtk/examples/tictactoe.pp

@@ -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,40 @@ end;
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:18  michael
-  + removed logs
- 
+  Revision 1.1.2.1  2000-09-09 20:30:35  peter
+    * win32 updates
+
+  Revision 1.1  2000/07/13 06:34:01  michael
+  + Initial import
+
+  Revision 1.1  1999/11/24 23:36:33  peter
+    * moved to packages dir
+
+  Revision 1.8  1999/10/05 09:28:26  peter
+    * patches from Frank Loemker
+
+  Revision 1.7  1999/06/10 20:00:16  peter
+    * fixed tictactoe
+
+  Revision 1.6  1999/05/10 19:18:15  peter
+    * more fixes for the examples to work
+
+  Revision 1.1  1999/05/10 09:02:36  peter
+    * gtk 1.2 port working
+
+  Revision 1.5  1999/05/07 15:09:38  peter
+    * more fixes
+
+  Revision 1.4  1999/02/02 16:13:38  michael
+  + Applied second patch from Frank Loemker
+
+  Revision 1.3  1999/01/26 12:42:21  michael
+  *** empty log message ***
+
+  Revision 1.2  1998/10/22 11:37:32  peter
+    * fixes for win32
+
+  Revision 1.1  1998/10/21 22:27:01  peter
+    + initial version
+
 }

+ 24 - 7
packages/gtk/examples/ttt_test.pp

@@ -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,28 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-07-13 11:33:18  michael
-  + removed logs
- 
+  Revision 1.1.2.1  2000-09-09 20:30:36  peter
+    * win32 updates
+
+  Revision 1.1  2000/07/13 06:34:01  michael
+  + Initial import
+
+  Revision 1.1  1999/11/24 23:36:33  peter
+    * moved to packages dir
+
+  Revision 1.4  1999/10/05 09:28:26  peter
+    * patches from Frank Loemker
+
+  Revision 1.3  1999/06/10 20:00:18  peter
+    * fixed tictactoe
+
+  Revision 1.2  1999/05/10 19:18:16  peter
+    * more fixes for the examples to work
+
+  Revision 1.1  1999/05/10 09:02:36  peter
+    * gtk 1.2 port working
+
+  Revision 1.1  1998/10/21 22:27:01  peter
+    + initial version
+
 }