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
|
;; Automatically generated - DO NOT EDIT
(include "gtk-lib.types")
"#include \"gauche-gtk.h\""
(define-cproc gtk-entry-get-text (entry::<gtk-entry>) "SCM_RETURN(SCM_MAKE_STR_COPYING(gtk_entry_get_text(entry)));")
;; struct GtkEntry
(define-cclass <gtk-entry> :base
"ScmGObject*" "Scm_GtkEntryClass"
("Scm_GtkEditableClass" "Scm_GtkCellEditableClass" "Scm_GtkWidgetClass" "Scm_GtkObjectClass" "Scm_GObjectClass")
(
(text :type <gchar*> :getter "return SCM_MAKE_STR_COPYING_SAFELY(obj->text);" :setter #f)
(editable :type <uint>)
(visible :type <uint>)
(overwrite-mode :type <uint>)
(in-drag :type <uint>)
(text-length :type <uint16>)
(text-max-length :type <uint16>)
(text-area :type <gdk-drawable>)
(im-context :type <gtk-im-context>)
(popup-menu :type <gtk-widget>)
(current-pos :type <int>)
(selection-bound :type <int>)
;; cached-layout :type <pango-layout>
(cache-includes-preedit :type <uint>)
(need-im-reset :type <uint>)
(has-frame :type <uint>)
(activates-default :type <uint>)
(cursor-visible :type <uint>)
(in-click :type <uint>)
(is-cell-renderer :type <uint>)
(editing-canceled :type <uint>)
(mouse-cursor-obscured :type <uint>)
(button :type <uint>)
(blink-timeout :type <uint>)
(recompute-idle :type <uint>)
(scroll-offset :type <int>)
(ascent :type <int>)
(descent :type <int>)
(text-size :type <uint16>)
(n-bytes :type <uint16>)
(preedit-length :type <uint16>)
(preedit-cursor :type <uint16>)
(dnd-position :type <int>)
(drag-start-x :type <int>)
(drag-start-y :type <int>)
;; invisible-char :type (UNKNOWN . gunichar)
(width-chars :type <int>)
)
(allocator (c "Scm_GtkObjectAllocate"))
(direct-supers "Scm_GtkEditableClass" "Scm_GtkCellEditableClass" "Scm_GtkWidgetClass")
)
(initcode "Scm_GtkRegisterClass(GTK_TYPE_ENTRY, SCM_CLASS_GTK_ENTRY);
")
;; gtk_entry_get_type
;; gtk_entry_new
(define-cproc gtk-entry-new () (return <gtk-widget> "gtk_entry_new"))
;; gtk_entry_set_visibility
(define-cproc gtk-entry-set-visibility (entry::<gtk-entry> visible::<boolean>) (return <void> "gtk_entry_set_visibility"))
;; gtk_entry_get_visibility
(define-cproc gtk-entry-get-visibility (entry::<gtk-entry>) (return <boolean> "gtk_entry_get_visibility"))
;; gtk_entry_set_invisible_char
;; (define-cproc gtk-entry-set-invisible-char (entry::<gtk-entry> ch::(UNKNOWN . gunichar)) (return <void> gtk_entry_set_invisible_char))
;; gtk_entry_get_invisible_char
;; (define-cproc gtk-entry-get-invisible-char (entry::<gtk-entry>) (return (UNKNOWN . gunichar) gtk_entry_get_invisible_char))
;; gtk_entry_set_has_frame
(define-cproc gtk-entry-set-has-frame (entry::<gtk-entry> setting::<boolean>) (return <void> "gtk_entry_set_has_frame"))
;; gtk_entry_get_has_frame
(define-cproc gtk-entry-get-has-frame (entry::<gtk-entry>) (return <boolean> "gtk_entry_get_has_frame"))
;; gtk_entry_set_max_length
(define-cproc gtk-entry-set-max-length (entry::<gtk-entry> max::<int>) (return <void> "gtk_entry_set_max_length"))
;; gtk_entry_get_max_length
(define-cproc gtk-entry-get-max-length (entry::<gtk-entry>) (return <int> "gtk_entry_get_max_length"))
;; gtk_entry_set_activates_default
(define-cproc gtk-entry-set-activates-default (entry::<gtk-entry> setting::<boolean>) (return <void> "gtk_entry_set_activates_default"))
;; gtk_entry_get_activates_default
(define-cproc gtk-entry-get-activates-default (entry::<gtk-entry>) (return <boolean> "gtk_entry_get_activates_default"))
;; gtk_entry_set_width_chars
(define-cproc gtk-entry-set-width-chars (entry::<gtk-entry> n_chars::<int>) (return <void> "gtk_entry_set_width_chars"))
;; gtk_entry_get_width_chars
(define-cproc gtk-entry-get-width-chars (entry::<gtk-entry>) (return <int> "gtk_entry_get_width_chars"))
;; gtk_entry_set_text
(define-cproc gtk-entry-set-text (entry::<gtk-entry> text::<const-gchar*>) (return <void> "gtk_entry_set_text"))
;; gtk_entry_get_layout
(define-cproc gtk-entry-get-layout (entry::<gtk-entry>) (return <pango-layout> "gtk_entry_get_layout"))
;; gtk_entry_get_layout_offsets
;; (define-cproc gtk-entry-get-layout-offsets (entry::<gtk-entry> x::(UNKNOWN . gint*) y::(UNKNOWN . gint*)) (return <void> gtk_entry_get_layout_offsets))
;; gtk_entry_new_with_max_length
(define-cproc gtk-entry-new-with-max-length (max::<int>) (return <gtk-widget> "gtk_entry_new_with_max_length"))
;; gtk_entry_append_text
(define-cproc gtk-entry-append-text (entry::<gtk-entry> text::<const-gchar*>) (return <void> "gtk_entry_append_text"))
;; gtk_entry_prepend_text
(define-cproc gtk-entry-prepend-text (entry::<gtk-entry> text::<const-gchar*>) (return <void> "gtk_entry_prepend_text"))
;; gtk_entry_set_position
(define-cproc gtk-entry-set-position (entry::<gtk-entry> position::<int>) (return <void> "gtk_entry_set_position"))
;; gtk_entry_select_region
(define-cproc gtk-entry-select-region (entry::<gtk-entry> start::<int> end::<int>) (return <void> "gtk_entry_select_region"))
;; gtk_entry_set_editable
(define-cproc gtk-entry-set-editable (entry::<gtk-entry> editable::<boolean>) (return <void> "gtk_entry_set_editable"))
|
