File: gnomeui.defs

package info (click to toggle)
rep-gtk 0.15-3
  • links: PTS
  • area: main
  • in suites: woody
  • size: 728 kB
  • ctags: 349
  • sloc: ansic: 3,577; sh: 2,430; lisp: 1,102; makefile: 159
file content (1485 lines) | stat: -rw-r--r-- 30,563 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
;;; -*- lisp -*-
;;; gnomeui.defs - Export Gnome interfaces to Guile.
;;; 
;;; Copyright (C) 1998 Tom Tromey
;;; Copyright (C) 2000 John Harper
;;; 
;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;; 
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;; 
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
;;; 02111-1307, USA.  */

(import "gtk.defs")

(define-enum GnomePreferencesType
  (never GNOME_PREFERENCES_NEVER)
  (user GNOME_PREFERENCES_USER)
  (always GNOME_PREFERENCES_ALWAYS))

;; ugh, kludge of the highest order..

(define-type 'GnomeStringCallback "sgtk_protshell*" output-rep-to-full-callback
	     nil "sgtk_valid_function"
	     (cons 'c2args
		   (lambda (output type var options)
		     (@ "sgtk_gnome_string_callback, (gpointer) %s" var)))
	     (cons 'finish output-full-callback-finish))

(define-type 'GnomeReplyCallback "sgtk_protshell*" output-rep-to-full-callback
	     nil "sgtk_valid_function"
	     (cons 'c2args
		   (lambda (output type var options)
		     (@ "sgtk_gnome_reply_callback, (gpointer) %s" var)))
	     (cons 'finish output-full-callback-finish))


;; gnome-app-helper

(define-func gnome_app_message
  GtkWidget
  ((GnomeApp app)
   (string message)))

(define-func gnome_app_flash
  none
  ((GnomeApp app)
   (string flash)))

(define-func gnome_app_error
  GtkWidget
  ((GnomeApp app)
   (string error)))

(define-func gnome_app_warning
  GtkWidget
  ((GnomeApp app)
   (string warning)))

(define-func gnome_app_question
  GtkWidget
  ((GnomeApp app)
   (string question)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_app_question_modal
  GtkWidget
  ((GnomeApp app)
   (string question)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_app_ok_cancel
  GtkWidget
  ((GnomeApp app)
   (string message)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_app_ok_cancel_modal
  GtkWidget
  ((GnomeApp app)
   (string message)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_app_request_string
  GtkWidget
  ((GnomeApp app)
   (string prompt)
   (GnomeStringCallback callback))
  (protection *result*))

(define-func gnome_app_request_password
  GtkWidget
  ((GnomeApp app)
   (string prompt)
   (GnomeStringCallback callback))
  (protection *result*))


;; gnome-dialog-util

(define-func gnome_ok_dialog
  GtkWidget
  ((string message)))

(define-func gnome_ok_dialog_parented
  GtkWidget
  ((string message)
   (GtkWindow parent)))

(define-func gnome_error_dialog
  GtkWidget
  ((string error)))

(define-func gnome_error_dialog_parented
  GtkWidget
  ((string error)
   (GtkWindow parent)))

(define-func gnome_warning_dialog
  GtkWidget
  ((string warning)))

(define-func gnome_warning_dialog_parented
  GtkWidget
  ((string warning)
   (GtkWindow parent)))

(define-func gnome_question_dialog
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_question_dialog_parented
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback)
   (GtkWindow parent))
  (protection *result*))

(define-func gnome_question_dialog_modal
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_question_dialog_modal_parented
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback)
   (GtkWindow parent))
  (protection *result*))

(define-func gnome_ok_cancel_dialog
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_ok_cancel_dialog_parented
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback)
   (GtkWindow parent))
  (protection *result*))

(define-func gnome_ok_cancel_dialog_modal
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback))
  (protection *result*))

(define-func gnome_ok_cancel_dialog_modal_parented
  GtkWidget
  ((string question)
   (GnomeReplyCallback callback)
   (GtkWindow parent))
  (protection *result*))

(define-func gnome_request_string_dialog
  GtkWidget
  ((string prompt)
   (GnomeStringCallback callback))
  (protection *result*))

(define-func gnome_request_string_dialog_parented
  GtkWidget
  ((string prompt)
   (GnomeStringCallback callback)
   (GtkWindow parent))
  (protection *result*))

(define-func gnome_request_password_dialog
  GtkWidget
  ((string prompt)
   (GnomeStringCallback callback))
  (protection *result*))

(define-func gnome_request_password_dialog_parented
  GtkWidget
  ((string prompt)
   (GnomeStringCallback callback)
   (GtkWindow parent))
  (protection *result*))

(define-func gnome_request_dialog
  GtkWidget
  ((bool password)
   (string prompt)
   (string default_text (null-ok))
   (int max_length)
   (GnomeStringCallback callback)
   (GtkWindow parent (null-ok)))
  (protection *result*))


;; gnome-geometry

(define-func gnome_parse_geometry
  bool
  ((string geom)
   ((ret int) xpos)
   ((ret int) ypos)
   ((ret int) width)
   ((ret int) height)))

(define-func gnome_geometry_string
  string
  ((GdkWindow window)))


;; gtkcauldron

;; [the interface isn't suited to lisp anyway..]


;; GnomeAbout

(define-object GnomeAbout (GnomeDialog))

(define-func gnome_about_new
  GtkWidget
  ((string title)
   (string version)
   (string copyright)
   ((tvec string) authors)
   (string comments)
   (string logo (null-ok))))


;; GnomeApp

(define-object GnomeApp (GtkWindow))

(define-func gnome_app_new
  GtkWidget
  ((string appname)
   (string title)))

(define-func gnome_app_set_menus
  none
  ((GnomeApp app)
   (GtkMenuBar menubar)))

(define-func gnome_app_set_toolbar
  none
  ((GnomeApp app)
   (GtkToolbar toolbar)))

(define-func gnome_app_set_statusbar
  none
  ((GnomeApp app)
   (GtkWidget statusbar)))

(define-func gnome_app_set_contents
  none
  ((GnomeApp app)
   (GtkWidget contents)))


;; GnomeAppBar

(define-object GnomeAppBar (GtkHBox))

(define-func gnome_appbar_new
  GtkWidget
  ((bool has_progress)
   (bool has_status)
   (GnomePreferencesType interactivity)))

(define-func gnome_appbar_set_status
  none
  ((GnomeAppBar appbar)
   (string status)))

(define-func gnome_appbar_set_default
  none
  ((GnomeAppBar appbar)
   (string default_status)))

(define-func gnome_appbar_push
  none
  ((GnomeAppBar appbar)
   (string status)))

(define-func gnome_appbar_pop
  none
  ((GnomeAppBar appbar)))

(define-func gnome_appbar_clear_stack
  none
  ((GnomeAppBar appbar)))

(define-func gnome_appbar_set_progress
  none
  ((GnomeAppBar appbar)
   (float percentage)))

(define-func gnome_appbar_get_progress
  GtkProgress
  ((GnomeAppBar appbar)))

(define-func gnome_appbar_refresh
  none
  ((GnomeAppBar appbar)))

(define-func gnome_appbar_set_prompt
  none
  ((GnomeAppBar appbar)
   (string prompt)
   (bool modal)))

(define-func gnome_appbar_clear_prompt
  none
  ((GnomeAppBar appbar)))

(define-func gnome_appbar_get_response
  string
  ((GnomeAppBar appbar)))


;; GnomeCalculator

(define-object GnomeCalculator (GtkVBox))

(define-func gnome_calculator_new
  GnomeCalculator
  ())

(define-func gnome_calculator_clear
  none
  ((GnomeCalculator gc)
   (bool reset)))

(define-func gnome_calculator_set
  none
  ((GnomeCalculator gc)
   (double result)))

(define-func gnome_calculator_get_result
  double
  ((GnomeCalculator gc)))


;; GnomeClient

;; FIXME: Some functions still live in client.c, until argc/argv supported.

(define-enum GnomeInteractStyle
  (none GNOME_INTERACT_NONE)
  (errors GNOME_INTERACT_ERRORS)
  (any GNOME_INTERACT_ANY))

(define-enum GnomeDialogType
  (error GNOME_DIALOG_ERROR)
  (normal GNOME_DIALOG_NORMAL))

(define-enum GnomeSaveStyle
  (global GNOME_SAVE_GLOBAL)
  (local GNOME_SAVE_LOCAL)
  (both GNOME_SAVE_BOTH))

(define-enum GnomeRestartStyle
  (if-running GNOME_RESTART_IF_RUNNING)
  (anyway GNOME_RESTART_ANYWAY)
  (immediately GNOME_RESTART_IMMEDIATELY)
  (never GNOME_RESTART_NEVER))

(define-object GnomeClient (GtkObject))

(define-func gnome_client_disable_master_connection
  none
  ())

(define-func gnome_master_client
  GnomeClient
  ())

(define-func gnome_cloned_client
  GnomeClient
  ())

(define-func gnome_client_new
  GnomeClient
  ())

(define-func gnome_client_new_without_connection
  GnomeClient
  ())

(define-func gnome_client_connect
  none
  ((GnomeClient client)))

(define-func gnome_client_disconnect
  none
  ((GnomeClient client)))

(define-func gnome_client_flush
  none
  ((GnomeClient client)))

(define-func gnome_client_set_id
  none
  ((GnomeClient client)
   (string id)))

(define-func gnome_client_get_config_prefix
  string
  ((GnomeClient client)))

; gnome_client_set_clone_command

(define-func gnome_client_set_current_directory
  none
  ((GnomeClient client)
   (string dir)))     

; gnome_client_set_environment

(define-func gnome_client_set_process_id
  none
  ((GnomeClient client)
   (int id)))

(define-func gnome_client_set_program
  none
  ((GnomeClient client)
   (string program)))

; gnome_client_set_restart_command

; gnome_client_set_resign_command

(define-func gnome_client_set_restart_style
  none
  ((GnomeClient client)
   (GnomeRestartStyle style)))    

; gnome_client_set_shutdown_command

(define-func gnome_client_set_user_id
  none
  ((GnomeClient client)
   (string id)))

(define-func gnome_client_request_phase_2
  none
  ((GnomeClient client)))

(define-func gnome_client_request_save
  none
  ((GnomeClient client)
   (GnomeSaveStyle save_style)
   (bool shutdown)
   (GnomeInteractStyle interact_style)
   (bool fast)
   (bool global)))

; XXX can't handle callbacks, only full-callbacks
;(define-func gnome_client_request_interaction_interp
;  none
;  ((GnomeClient client)
;   (GnomeDialogType dialog_type)
;   (callback function))
;  (protection client))

(define-func gnome_interaction_key_return
  none
  ((int key)
   (bool cancel_shutdown)))


;; GnomeColorPicker

(define-object GnomeColorPicker (GtkButton))

(define-func gnome_color_picker_new
  GnomeColorPicker
  ())

(define-func gnome_color_picker_set_i16
  none
  ((GnomeColorPicker cp)
   (char r)
   (char g)
   (char b)
   (char a)))

(define-func gnome_color_picker_get_i16
  none
  ((GnomeColorPicker cp)
   ((ret char) r)
   ((ret char) g)
   ((ret char) b)
   ((ret char) a)))

(define-func gnome_color_picker_set_dither
  none
  ((GnomeColorPicker cp)
   (bool dither)))

(define-func gnome_color_picker_set_use_alpha
  none
  ((GnomeColorPicker cp)
   (bool use_alpha)))

(define-func gnome_color_picker_set_title
  none
  ((GnomeColorPicker cp)
   (string title)))


;; GnomeDateEdit

(define-object GnomeDateEdit (GtkHBox))

(define-func gnome_date_edit_new
  GtkWidget
  ((ulong the_time)			;actually time_t
   (bool show_time)
   (bool use_24)))

(define-func gnome_date_edit_set_time
  none
  ((GnomeDateEdit de)
   (ulong the_time)))			;actually time_t

(define-func gnome_date_edit_set_popup_range
  none
  ((GnomeDateEdit de)
   (int low_hour)
   (int high_hour)))

(define-func gnome_date_edit_get_date
  ulong					;actually time_t
  ((GnomeDateEdit de)))


;; GnomeDEntryEdit


;; GnomeDialog

(define-object GnomeDialog (GtkWindow)
  (fields
   (GtkWidget vbox)))

(define-func gnome_dialog_newv
  GtkWidget
  ((string title)
   ((tvec GnomeStockButtonNameType) buttons))
  (scm-name "gnome-dialog-new"))

(define-func gnome_dialog_set_parent
  none
  ((GnomeDialog d)
   (GtkWindow parent)))

(define-func gnome_dialog_run
  int
  ((GnomeDialog d)))

(define-func gnome_dialog_run_and_close
  int
  ((GnomeDialog d)))

(define-func gnome_dialog_set_default
  none
  ((GnomeDialog d)
   (int button)))

(define-func gnome_dialog_set_sensitive
  none
  ((GnomeDialog d)
   (int button)
   (bool setting)))

(define-func gnome_dialog_set_accelerator
  none
  ((GnomeDialog d)
   (int button)
   (char accel_key)
   (uint accel_mods)))			;uint8

(define-func gnome_dialog_close
  none
  ((GnomeDialog d)))

(define-func gnome_dialog_close_hides
  none
  ((GnomeDialog d)
   (bool just_hide)))

(define-func gnome_dialog_set_close
  none
  ((GnomeDialog d)
   (bool click_closes)))

(define-func gnome_dialog_editable_enters
  none
  ((GnomeDialog d)
   (GtkEditable editable)))

(define-func gnome_dialog_append_button
  none
  ((GnomeDialog d)
   (GnomeStockButtonNameType name)))

(define-func gnome_dialog_append_buttonsv
  none
  ((GnomeDialog d)
   ((tvec GnomeStockButtonNameType) buttons))
  (scm-name "gnome-dialog-append-buttons"))

(define-func gnome_dialog_append_button_with_pixmap
  none
  ((GnomeDialog d)
   (GnomeStockButtonNameType name)
   (string pixmap)))

(define-func gnome_dialog_append_buttons_with_pixmaps
  none
  ((GnomeDialog d)
   ((tvec GnomeStockButtonNameType) names)
   ((tvec string) pixmaps)))


;; GnomeDockBand
;; GnomeDockItem
;; GnomeDock
;; GnomeDockLayout

;; GnomeDruid
;; GnomeDruidPage
;; GnomeDruidPageStart
;; GnomeDruidPageStandard
;; GnomeDruidPageFinish


;; GnomeEntry

(define-object GnomeEntry (GtkCombo))

(define-func gnome_entry_new
  GtkWidget
  ((string history_id (null-ok))))

(define-func gnome_entry_gtk_entry
  GtkWidget
  ((GnomeEntry ge)))

(define-func gnome_entry_set_history_id
  none
  ((GnomeEntry ge)
   (string history_id)))

(define-func gnome_entry_prepend_history
  none
  ((GnomeEntry ge)
   (int save)
   (string text)))

(define-func gnome_entry_append_history
  none
  ((GnomeEntry ge)
   (int save)
   (string text)))

(define-func gnome_entry_load_history
  none
  ((GnomeEntry ge)))

(define-func gnome_entry_save_history
  none
  ((GnomeEntry ge)))


;; GnomeFileEntry

(define-object GnomeFileEntry (GtkHBox))

(define-func gnome_file_entry_new
  GtkWidget
  ((string history_id)
   (string browse_dialog_title)))

(define-func gnome_file_entry_gnome_entry
  GtkWidget
  ((GnomeFileEntry fe)))

(define-func gnome_file_entry_gtk_entry
  GtkWidget
  ((GnomeFileEntry fe)))

(define-func gnome_file_entry_set_title
  none
  ((GnomeFileEntry fe)
   (string browse_dialog_title)))

(define-func gnome_file_entry_set_default_path
  none
  ((GnomeFileEntry fe)
   (string path)))

(define-func gnome_file_entry_set_directory
  none
  ((GnomeFileEntry fe)
   (bool directory_only)))

(define-func gnome_file_entry_get_full_path
  string
  ((GnomeFileEntry fe)
   (bool file_must_exist)))

(define-func gnome_file_entry_set_modal
  none
  ((GnomeFileEntry fe)
   (bool is_modal)))


;; GnomeFontPicker


;; GnomeHRef

(define-object GnomeHRef (GtkButton))

(define-func gnome_href_new
  GtkWidget
  ((string url)
   (string label)))

(define-func gnome_href_set_url
  none
  ((GnomeHRef href)
   (string url)))

(define-func gnome_href_set_label
  none
  ((GnomeHRef href)
   (string label)))

(define-func gnome_href_get_url
  string
  ((GnomeHRef href)))

(define-func gnome_href_get_label
  string
  ((GnomeHRef href)))


;; GnomeIconEntry

(define-object GnomeIconEntry (GtkVBox))

(define-func gnome_icon_entry_new
  GtkWidget
  ((string history_id)
   (string browse_dialog_title)))

(define-func gnome_icon_entry_set_pixmap_subdir
  none
  ((GnomeIconEntry ie)
   (string subdir)))

(define-func gnome_icon_entry_set_icon
  none
  ((GnomeIconEntry ie)
   (string filename)))

(define-func gnome_icon_entry_gnome_file_entry
  GtkWidget
  ((GnomeIconEntry ie)))

(define-func gnome_icon_entry_gnome_entry
  GtkWidget
  ((GnomeIconEntry ie)))

(define-func gnome_icon_entry_gtk_entry
  GtkWidget
  ((GnomeIconEntry ie)))

(define-func gnome_icon_entry_get_filename
  string
  ((GnomeIconEntry ie)))


;; GnomeIconSelection

(define-object GnomeIconSelection (GtkVBox))

(define-func gnome_icon_selection_new
  GtkWidget
  ())

(define-func gnome_icon_selection_add_defaults
  none
  ((GnomeIconSelection gis)))

(define-func gnome_icon_selection_add_directory
  none
  ((GnomeIconSelection gis)
   (string dir)))

(define-func gnome_icon_selection_show_icons
  none
  ((GnomeIconSelection gis)))

(define-func gnome_icon_selection_clear
  none
  ((GnomeIconSelection gis)
   (bool not_shown)))

(define-func gnome_icon_selection_get_icon
  static_string
  ((GnomeIconSelection gis)
   (bool full_path)))

(define-func gnome_icon_selection_select_icon
  none
  ((GnomeIconSelection gis)
   (string filename)))


;; GnomeLess

(define-object GnomeLess (GtkVBox))

(define-func gnome_less_new
  GtkWidget
  ())

(define-func gnome_less_clear
  none
  ((GnomeLess gl)))

(define-func gnome_less_show_file
  bool
  ((GnomeLess gl)
   (string path)))

(define-func gnome_less_show_command
  bool
  ((GnomeLess gl)
   (string command_line)))

(define-func gnome_less_show_string
  none
  ((GnomeLess gl)
   (string s)))

(define-func gnome_less_show_fd
  bool
  ((GnomeLess gl)
   (file-descriptor fd)))

(define-func gnome_less_write_file
  bool
  ((GnomeLess gl)
   (string path)))

(define-func gnome_less_write_fd
  bool
  ((GnomeLess gl)
   (file-descriptor fd)))

(define-func gnome_less_set_font
  none
  ((GnomeLess gl)
   (GdkFont font)))

(define-func gnome_less_set_fixed_font
  none
  ((GnomeLess gl)
   (bool fixed)))

(define-func gnome_less_reshow
  none
  ((GnomeLess gl)))

(define-func gnome_less_fixed_font
  none
  ((GnomeLess gl)))


;; GnomeMDIChild
;; GnomeMDIGenericChild
;; GnomeMDI


;; GnomeMessageBox

(define-object GnomeMessageBox (GnomeDialog))

(define-func gnome_message_box_newv
  GtkWidget
  ((string message)
   (string messagebox_type)
   ((tvec string) buttons)))

(define-func gnome_message_box_set_modal
  none
  ((GnomeMessageBox messagebox)))

(define-func gnome_message_box_set_default
  none
  ((GnomeMessageBox messagebox)
   (int button)))


;; GnomeNumberEntry

(define-object GnomeNumberEntry (GtkHBox))

(define-func gnome_number_entry_new
  GtkWidget
  ((string history_id)
   (string calc_dialog_title)))

(define-func gnome_number_entry_gnome_entry
  GtkWidget
  ((GnomeNumberEntry ne)))

(define-func gnome_number_entry_gtk_entry
  GtkWidget
  ((GnomeNumberEntry ne)))

(define-func gnome_number_entry_set_title
  none
  ((GnomeNumberEntry ne)
   (string calc_dialog_title)))

(define-func gnome_number_entry_get_number
  double
  ((GnomeNumberEntry ne)))


;; GnomePaperSelector

(define-object GnomePaperSelector (GtkVBox))

(define-func gnome_paper_selector_new
  GtkWidget
  ())

(define-func gnome_paper_selector_get_name
  string
  ((GnomePaperSelector ps)))

(define-func gnome_paper_selector_get_width
  float
  ((GnomePaperSelector ps)))

(define-func gnome_paper_selector_get_height
  float
  ((GnomePaperSelector ps)))

(define-func gnome_paper_selector_get_left_margin
  float
  ((GnomePaperSelector ps)))

(define-func gnome_paper_selector_get_right_margin
  float
  ((GnomePaperSelector ps)))

(define-func gnome_paper_selector_get_top_margin
  float
  ((GnomePaperSelector ps)))

(define-func gnome_paper_selector_get_bottom_margin
  float
  ((GnomePaperSelector ps)))


;; GnomePixmapEntry

(define-object GnomePixmapEntry (GtkVBox))

(define-func gnome_pixmap_entry_new
  GtkWidget
  ((string history_id)
   (string browse_dialog_title)
   (bool do_preview)))

(define-func gnome_pixmap_entry_set_pixmap_subdir
  none
  ((GnomePixmapEntry pe)
   (string subdir)))

(define-func gnome_pixmap_entry_gnome_file_entry
  GtkWidget
  ((GnomePixmapEntry pe)))

(define-func gnome_pixmap_entry_gtk_entry
  GtkWidget
  ((GnomePixmapEntry pe)))

(define-func gnome_pixmap_entry_set_preview
  none
  ((GnomePixmapEntry pe)
   (bool do_preview)))

(define-func gnome_pixmap_entry_set_preview_size
  none
  ((GnomePixmapEntry pe)
   (int preview_w)
   (int preview_h)))

(define-func gnome_pixmap_entry_get_filename
  string
  ((GnomePixmapEntry pe)))


;; GnomePixmap

(define-object GnomePixmap (GtkWidget))

(define-func gnome_pixmap_new_from_file
  GtkWidget
  ((string filename)))

(define-func gnome_pixmap_new_from_file_at_size
  GtkWidget
  ((string filename)
   (int width)
   (int height)))

(define-func gnome_pixmap_new_from_gnome_pixmap
  GtkWidget
  ((GnomePixmap p)))

(define-func gnome_pixmap_load_file
  none
  ((GnomePixmap p)
   (string file)))

(define-func gnome_pixmap_load_file_at_size
  none
  ((GnomePixmap p)
   (string file)
   (int width)
   (int height)))

;; lots of others I can't be arsed to type in..


;; GnomePropertyBox

(define-object GnomePropertyBox (GnomeDialog)
  (fields 
   (GtkWidget notebook)
   (GtkWidget ok_button)
   (GtkWidget apply_button)
   (GtkWidget cancel_button)
   (GtkWidget help_button)))

(define-func gnome_property_box_new
  GtkWidget
  ())

(define-func gnome_property_box_changed
  none
  ((GnomePropertyBox box)))

(define-func gnome_property_box_set_state
  none
  ((GnomePropertyBox box)
   (bool state)))

(define-func gnome_property_box_append_page
  int
  ((GnomePropertyBox box)
   (GtkWidget child)
   (GtkWidget tab_label)))


;; GnomeScores


;; GnomeStock

(define-string-enum GnomeStockButtonNameType
  (ok GNOME_STOCK_BUTTON_OK)
  (cancel GNOME_STOCK_BUTTON_CANCEL)
  (yes GNOME_STOCK_BUTTON_YES)
  (no GNOME_STOCK_BUTTON_NO)
  (close GNOME_STOCK_BUTTON_CLOSE)
  (apply GNOME_STOCK_BUTTON_APPLY)
  (help GNOME_STOCK_BUTTON_HELP))

(define-string-enum GnomeStockMenuNameType
  (blank GNOME_STOCK_MENU_BLANK)
  (new GNOME_STOCK_MENU_NEW)
  (save GNOME_STOCK_MENU_SAVE)
  (save-as GNOME_STOCK_MENU_SAVE_AS)
  (open GNOME_STOCK_MENU_OPEN)
  (quit GNOME_STOCK_MENU_QUIT)
  (cut GNOME_STOCK_MENU_CUT)
  (copy GNOME_STOCK_MENU_COPY)
  (paste GNOME_STOCK_MENU_PASTE)
  (prop GNOME_STOCK_MENU_PROP)
  (pref GNOME_STOCK_MENU_PREF)
  (about GNOME_STOCK_MENU_ABOUT)
  (scores GNOME_STOCK_MENU_SCORES)
  (undo GNOME_STOCK_MENU_UNDO)
  (print GNOME_STOCK_MENU_PRINT)
  (search GNOME_STOCK_MENU_SEARCH)
  (back GNOME_STOCK_MENU_BACK)
  (forward GNOME_STOCK_MENU_FORWARD)
  (home GNOME_STOCK_MENU_HOME)
  (stop GNOME_STOCK_MENU_STOP)
  (refresh GNOME_STOCK_MENU_REFRESH)
  (mail GNOME_STOCK_MENU_MAIL)
  (mail-receive GNOME_STOCK_MENU_MAIL_RCV)
  (mail-send GNOME_STOCK_MENU_MAIL_SND)
  (trash GNOME_STOCK_MENU_TRASH)
  (trash-full GNOME_STOCK_MENU_TRASH_FULL)
  ;; This is an alias for Quit for now.
  (exit GNOME_STOCK_MENU_QUIT))

(define-string-enum GnomeStockPixmapNameType
  (new GNOME_STOCK_PIXMAP_NEW)
  (open GNOME_STOCK_PIXMAP_OPEN)
  (close GNOME_STOCK_PIXMAP_CLOSE)
  (revert GNOME_STOCK_PIXMAP_REVERT)
  (save GNOME_STOCK_PIXMAP_SAVE)
  (save-as GNOME_STOCK_PIXMAP_SAVE_AS)
  (cut GNOME_STOCK_PIXMAP_CUT)
  (copy GNOME_STOCK_PIXMAP_COPY)
  (paste GNOME_STOCK_PIXMAP_PASTE)
  (clear GNOME_STOCK_PIXMAP_CLEAR)
  (properties GNOME_STOCK_PIXMAP_PROPERTIES)
  (preferences GNOME_STOCK_PIXMAP_PREFERENCES)
  (help GNOME_STOCK_PIXMAP_HELP)
  (scores GNOME_STOCK_PIXMAP_SCORES)
  (print GNOME_STOCK_PIXMAP_PRINT)
  (search GNOME_STOCK_PIXMAP_SEARCH)
  (search/Replace GNOME_STOCK_PIXMAP_SRCHRPL)
  (back GNOME_STOCK_PIXMAP_BACK)
  (forward GNOME_STOCK_PIXMAP_FORWARD)
  (first GNOME_STOCK_PIXMAP_FIRST)
  (last GNOME_STOCK_PIXMAP_LAST)
  (home GNOME_STOCK_PIXMAP_HOME)
  (stop GNOME_STOCK_PIXMAP_STOP)
  (refresh GNOME_STOCK_PIXMAP_REFRESH)
  (undo GNOME_STOCK_PIXMAP_UNDO)
  (redo GNOME_STOCK_PIXMAP_REDO)
  (timer GNOME_STOCK_PIXMAP_TIMER)
  (timer-stopped GNOME_STOCK_PIXMAP_TIMER_STOP)
  (mail GNOME_STOCK_PIXMAP_MAIL	)
  (receive-mail GNOME_STOCK_PIXMAP_MAIL_RCV)
  (send-mail GNOME_STOCK_PIXMAP_MAIL_SND)
  (reply-to-mail GNOME_STOCK_PIXMAP_MAIL_RPL)
  (forward-mail GNOME_STOCK_PIXMAP_MAIL_FWD)
  (new-mail GNOME_STOCK_PIXMAP_MAIL_NEW)
  (trash GNOME_STOCK_PIXMAP_TRASH)
  (trash-full GNOME_STOCK_PIXMAP_TRASH_FULL)
  (undelete GNOME_STOCK_PIXMAP_UNDELETE)
  (spellchecker GNOME_STOCK_PIXMAP_SPELLCHECK)
  (microphone GNOME_STOCK_PIXMAP_MIC)
  (line-in GNOME_STOCK_PIXMAP_LINE_IN)
  (cdrom GNOME_STOCK_PIXMAP_CDROM)
  (volume GNOME_STOCK_PIXMAP_VOLUME)
  (midi GNOME_STOCK_PIXMAP_MIDI)
  (book-red GNOME_STOCK_PIXMAP_BOOK_RED)
  (book-green GNOME_STOCK_PIXMAP_BOOK_GREEN)
  (book-blue GNOME_STOCK_PIXMAP_BOOK_BLUE)
  (book-yellow GNOME_STOCK_PIXMAP_BOOK_YELLOW)
  (book-open GNOME_STOCK_PIXMAP_BOOK_OPEN)
  (about GNOME_STOCK_PIXMAP_ABOUT)
  (quit GNOME_STOCK_PIXMAP_QUIT)
  (exit GNOME_STOCK_PIXMAP_QUIT)
  (multiple GNOME_STOCK_PIXMAP_MULTIPLE)
  (not GNOME_STOCK_PIXMAP_NOT)
  (convert GNOME_STOCK_PIXMAP_CONVERT)
  (jump-to GNOME_STOCK_PIXMAP_JUMP_TO)
  (up GNOME_STOCK_PIXMAP_UP)
  (down GNOME_STOCK_PIXMAP_DOWN)
  (top GNOME_STOCK_PIXMAP_TOP)
  (bottom GNOME_STOCK_PIXMAP_BOTTOM)
  (attach GNOME_STOCK_PIXMAP_ATTACH)
  (index GNOME_STOCK_PIXMAP_INDEX)
  (font GNOME_STOCK_PIXMAP_FONT)
  (exec GNOME_STOCK_PIXMAP_EXEC)
  (left GNOME_STOCK_PIXMAP_ALIGN_LEFT)
  (right GNOME_STOCK_PIXMAP_ALIGN_RIGHT)
  (center GNOME_STOCK_PIXMAP_ALIGN_CENTER)
  (justify GNOME_STOCK_PIXMAP_ALIGN_JUSTIFY)
  (bold GNOME_STOCK_PIXMAP_TEXT_BOLD)
  (italic GNOME_STOCK_PIXMAP_TEXT_ITALIC)
  (underline GNOME_STOCK_PIXMAP_TEXT_UNDERLINE)
  (strikeout GNOME_STOCK_PIXMAP_TEXT_STRIKEOUT)
  (text-indent GNOME_STOCK_PIXMAP_TEXT_INDENT)
  (text-unindent GNOME_STOCK_PIXMAP_TEXT_UNINDENT)
  (color-select GNOME_STOCK_PIXMAP_COLORSELECTOR)
  (add GNOME_STOCK_PIXMAP_ADD)
  (remove GNOME_STOCK_PIXMAP_REMOVE)
  (table-borders GNOME_STOCK_PIXMAP_TABLE_BORDERS)
  (table-fill GNOME_STOCK_PIXMAP_TABLE_FILL)
  (text-bulleted-list GNOME_STOCK_PIXMAP_TEXT_BULLETED_LIST)
  (text-numbered-list GNOME_STOCK_PIXMAP_TEXT_NUMBERED_LIST)
  (regular GNOME_STOCK_PIXMAP_REGULAR)
  (disabled GNOME_STOCK_PIXMAP_DISABLED)
  (focused GNOME_STOCK_PIXMAP_FOCUSED))

(define-func gnome_stock_pixmap_widget
  GtkWidget
  ((GtkWidget window (null-ok))
   (string icon)))

(define-func gnome_stock_pixmap_widget_at_size
  GtkWidget
  ((GtkWidget window (null-ok))
   (string icon)
   (uint width)
   (uint height)))

(define-func gnome_pixmap_button
  GtkWidget
  ((GtkWidget pixmap)
   (string text)))

(define-func gnome_button_can_default
  none
  ((GtkButton button)
   (bool can_default)))

(define-func gnome_stock_button
  GtkWidget
  ((GnomeStockButtonNameType type)))

(define-func gnome_stock_or_ordinary_button
  GtkWidget
  ((GnomeStockButtonNameType type)))

(define-func gnome_stock_menu_item
  GtkWidget
  ((GnomeStockMenuNameType type)
   (string text)))

(define-func gnome_stock_transparent_window
  GtkWidget
  ((string icon)
   (string subtype)))


;; gnome-winhints

(define-enum GnomeWinLayer
  (desktop WIN_LAYER_DESKTOP)
  (below WIN_LAYER_BELOW)
  (normal WIN_LAYER_NORMAL)
  (on-top WIN_LAYER_ONTOP)
  (dock WIN_LAYER_DOCK)
  (above-dock WIN_LAYER_ABOVE_DOCK))

(define-flags GnomeWinState
  (sticky WIN_STATE_STICKY)
  (minimized WIN_STATE_MINIMIZED)
  (maximized-vert WIN_STATE_MAXIMIZED_VERT)
  (maximized-horiz WIN_STATE_MAXIMIZED_HORIZ)
  (hidden WIN_STATE_HIDDEN)
  (shaded WIN_STATE_SHADED)
  (hid-workspace WIN_STATE_HID_WORKSPACE)
  (hid-transient WIN_STATE_HID_TRANSIENT)
  (fixed-position WIN_STATE_FIXED_POSITION)
  (arrange-ignore WIN_STATE_ARRANGE_IGNORE))

(define-flags GnomeWinHints
  (skip-focus WIN_HINTS_SKIP_FOCUS)
  (skip-winlist WIN_HINTS_SKIP_WINLIST)
  (skip-taskbar WIN_HINTS_SKIP_TASKBAR)
  (group-transient WIN_HINTS_GROUP_TRANSIENT)
  (focus-on-click WIN_HINTS_FOCUS_ON_CLICK)
  (do-not-cover WIN_HINTS_DO_NOT_COVER))

(define-func gnome_win_hints_set_layer
  none
  ((GtkWidget window)
   (GnomeWinLayer layer)))

(define-func gnome_win_hints_get_layer
  GnomeWinLayer
  ((GtkWidget window)))

(define-func gnome_win_hints_set_state
  none
  ((GtkWidget window)
   (GnomeWinState state)))

(define-func gnome_win_hints_get_state
  GnomeWinState
  ((GtkWidget window)))

(define-func gnome_win_hints_set_hints
  none
  ((GtkWidget window)
   (GnomeWinHints state)))

(define-func gnome_win_hints_get_hints
  GnomeWinHints
  ((GtkWidget window)))

(define-func gnome_win_hints_set_workspace
  none
  ((GtkWidget window)
   (int workspace)))

(define-func gnome_win_hints_get_workspace
  int
  ((GtkWidget window)))

(define-func gnome_win_hints_set_current_workspace
  none
  ((int workspace)))

(define-func gnome_win_hints_get_current_workspace
  int
  ())

(define-func gnome_win_hints_get_workspace_names
  (list string)
  ())

(define-func gnome_win_hints_get_workspace_count
  int
  ())

;; XXX missed out a load of pointless functions

(define-func gnome_win_hints_wm_exists
  bool
  ())


;; GtkClock

(define-object GtkClock (GtkLabel))

(define-enum GtkClockType
  (increasing GTK_CLOCK_INCREASING)
  (decreasing GTK_CLOCK_DECREASING)
  (realtime GTK_CLOCK_REALTIME))

(define-func gtk_clock_new
  GtkWidget
  ((GtkClockType type)))

(define-func gtk_clock_set_format
  none
  ((GtkClock clock)
   (string fmt)))

(define-func gtk_clock_set_seconds
  none
  ((GtkClock clock)
   (ulong seconds)))			;time_t

(define-func gtk_clock_start
  none
  ((GtkClock clock)))

(define-func gtk_clock_stop
  none
  ((GtkClock clock)))


;; GtkDial

(define-object GtkDial (GtkWidget))

(define-func gtk_dial_new 
  GtkWidget
  ((GtkAdjustment adj)))

(define-func gtk_dial_get_adjustment
  GtkAdjustment
  ((GtkDial dial)))

(define-func gtk_dial_set_update_policy
  none
  ((GtkDial dial)
   (GtkUpdateType policy)))

(define-func gtk_dial_set_adjustment
  none
  ((GtkDial dial)
   (GtkAdjustment adj)))

(define-func gtk_dial_set_percentage
  none
  ((GtkDial dial)
   (float percent)))

(define-func gtk_dial_get_percentage
  float
  ((GtkDial dial)))

(define-func gtk_dial_set_value
  none
  ((GtkDial dial)
   (float value)))

(define-func gtk_dial_get_value
  float
  ((GtkDial dial)))

(define-func gtk_dial_set_view_only
  none
  ((GtkDial dial)
   (bool view_only)))


;; GtkPixmapMenuItem

(define-object GtkPixmapMenuItem (GtkMenuItem))

(define-func gtk_pixmap_menu_item_new
  GtkWidget
  ())

(define-func gtk_pixmap_menu_item_set_pixmap
  none
  ((GtkPixmapMenuItem item)
   (GtkWidget pixmap)))


;; GnomeProcBar


;; misc

(define-func gdk_imlib_get_visual
  GdkVisual
  ())

(define-func gdk_imlib_get_colormap
  GdkColormap
  ())

(define-func sgtk_gnome_init
  bool
  ((string app_id)
   (string app_version))
  (scm-name "gnome-init"))



(options
 (includes "#include <gnome.h>")
 (includes "#include \"rep-gnome.h\"")
 (init-func "sgtk_gnome_init_gnomeui_glue"))