8 SUB act_brkset
CDECL ALIAS "act_brkset" ( _
9 BYVAL action
AS GtkAction
PTR, _
10 BYVAL user_data
AS gpointer)
EXPORT
13 ?" --> callback act_brkset, ToDo: insert code"
18 SUB act_brktempset
CDECL ALIAS "act_brktempset" ( _
19 BYVAL action
AS GtkAction
PTR, _
20 BYVAL user_data
AS gpointer)
EXPORT
23 ?" --> callback act_brktempset, ToDo: insert code"
28 SUB act_brkenable
CDECL ALIAS "act_brkenable" ( _
29 BYVAL action
AS GtkAction
PTR, _
30 BYVAL user_data
AS gpointer)
EXPORT
33 ?" --> callback act_brkenable, ToDo: insert code"
38 SUB act_brkmanage
CDECL ALIAS "act_brkmanage" ( _
39 BYVAL action
AS GtkAction
PTR, _
40 BYVAL user_data
AS gpointer)
EXPORT
43 ?" --> callback act_brkmanage, ToDo: insert code"
48 SUB act_varsrcshow
CDECL ALIAS "act_varsrcshow" ( _
49 BYVAL action
AS GtkAction
PTR, _
50 BYVAL user_data
AS gpointer)
EXPORT
53 ?" --> callback act_varsrcshow, ToDo: insert code"
58 SUB act_varsrcwtch
CDECL ALIAS "act_varsrcwtch" ( _
59 BYVAL action
AS GtkAction
PTR, _
60 BYVAL user_data
AS gpointer)
EXPORT
63 ?" --> callback act_varsrcwtch, ToDo: insert code"
68 SUB act_textfind
CDECL ALIAS "act_textfind" ( _
69 BYVAL action
AS GtkAction
PTR, _
70 BYVAL user_data
AS gpointer)
EXPORT
73 ?" --> callback act_textfind, ToDo: insert code"
78 SUB act_bmktoogle
CDECL ALIAS "act_bmktoogle" ( _
79 BYVAL action
AS GtkAction
PTR, _
80 BYVAL user_data
AS gpointer)
EXPORT
83 ?" --> callback act_bmktoogle, ToDo: insert code"
88 SUB act_bmknext
CDECL ALIAS "act_bmknext" ( _
89 BYVAL action
AS GtkAction
PTR, _
90 BYVAL user_data
AS gpointer)
EXPORT
93 ?" --> callback act_bmknext, ToDo: insert code"
98 SUB act_bmkprev
CDECL ALIAS "act_bmkprev" ( _
99 BYVAL action
AS GtkAction
PTR, _
100 BYVAL user_data
AS gpointer)
EXPORT
103 ?" --> callback act_bmkprev, ToDo: insert code"
108 SUB act_linegoto
CDECL ALIAS "act_linegoto" ( _
109 BYVAL action
AS GtkAction
PTR, _
110 BYVAL user_data
AS gpointer)
EXPORT
113 ?" --> callback act_linegoto, ToDo: insert code"
118 SUB act_lineaddress
CDECL ALIAS "act_lineaddress" ( _
119 BYVAL action
AS GtkAction
PTR, _
120 BYVAL user_data
AS gpointer)
EXPORT
123 ?" --> callback act_lineaddress, ToDo: insert code"
128 SUB act_lineasm
CDECL ALIAS "act_lineasm" ( _
129 BYVAL action
AS GtkAction
PTR, _
130 BYVAL user_data
AS gpointer)
EXPORT
133 ?" --> callback act_lineasm, ToDo: insert code"
138 SUB act_procsrcasm
CDECL ALIAS "act_procsrcasm" ( _
139 BYVAL action
AS GtkAction
PTR, _
140 BYVAL user_data
AS gpointer)
EXPORT
143 ?" --> callback act_procsrcasm, ToDo: insert code"
148 SUB act_linenoexec
CDECL ALIAS "act_linenoexec" ( _
149 BYVAL action
AS GtkAction
PTR, _
150 BYVAL user_data
AS gpointer)
EXPORT
153 ?" --> callback act_linenoexec, ToDo: insert code"
158 SUB act_linefocus
CDECL ALIAS "act_linefocus" ( _
159 BYVAL action
AS GtkAction
PTR, _
160 BYVAL user_data
AS gpointer)
EXPORT
163 ?" --> callback act_linefocus, ToDo: insert code"
180 BYVAL action
AS GtkAction
PTR, _
181 BYVAL NoteBook
AS gpointer)
EXPORT
183 VAR page = gtk_notebook_get_current_page(GTK_NOTEBOOK(NoteBook))
184 IF 0 > page
THEN EXIT SUB
186 DIM AS GtkTextIter i1, i2
187 VAR widg = gtk_notebook_get_nth_page(GTK_NOTEBOOK(NoteBook), page) _
188 , buff = g_object_get_data(G_OBJECT(widg),
"Buffer")
190 IF gtk_text_buffer_get_selection_bounds(buff, @i1, @i2)
THEN
191 VAR cont = gtk_text_buffer_get_text(buff, @i1, @i2, TRUE) _
192 , tizo = g_time_zone_new_local() _
193 , tida = g_date_time_new_now(tizo) _
194 , tstp = g_date_time_format(tida,
"[%y%m%d-%H:%M:%S] ") _
195 , strg = *tstp & *cont & !
"\n"
197 g_date_time_unref(tida)
198 g_time_zone_unref(tizo)