22 VAR fnam =
"log.ui", fnr =
FREEFILE
23 IF OPEN(fnam
FOR INPUT AS fnr)
THEN
24 ?PROJ_NAME &
": Cannot open " & fnam :
END 1
27 Xml =
STRING(
LOF(fnr), 0)
31 ?" CONSTRUCTOR LOG_Udt"
45 IF 0 = Txt
ORELSE 0 = Txt[0]
THEN EXIT SUB
47 THEN gtk_text_buffer_insert_at_cursor(BufNotes, Txt, -1) _
60 STATIC AS GtkWidget
PTR dia
61 STATIC AS GtkTextView
PTR gtv
64 VAR build = gtk_builder_new()
65 DIM AS GError
PTR meld
66 IF 0 = gtk_builder_add_from_string(build, Xml, -1, @meld)
THEN
68 ?"Fehler/Error (GTK-Builder in LOG_Udt.Notes):"
70 simple_message(*.message)
75 dia = GTK_WIDGET(gtk_builder_get_object(build,
"window1"))
76 gtv = GTK_TEXT_VIEW(gtk_builder_get_object(build,
"textview1"))
77 gtk_builder_connect_signals(build, 0)
79 gtk_window_set_title(GTK_WINDOW(dia),
"Notes")
80 BufNotes = gtk_text_view_get_buffer(gtv)
83 IF Txt
ANDALSO 0 <> Txt[0]
THEN gtk_text_buffer_set_text(BufNotes, Txt, -1)
85 IF gtk_widget_get_visible(dia)
THEN
103 IF 0 = Fnam
ORELSE 0 = Fnam[0]
THEN exit sub
104 STATIC AS GtkWidget
PTR dia
105 STATIC AS GtkTextView
PTR gtv
107 IF 0 = BufLogFile
THEN
108 VAR build = gtk_builder_new()
109 DIM AS GError
PTR meld
110 IF 0 = gtk_builder_add_from_string(build, Xml, -1, @meld)
THEN
112 ?"Fehler/Error (GTK-Builder in LOG_Udt.Notes):"
118 dia = GTK_WIDGET(gtk_builder_get_object(build,
"window1"))
119 gtv = GTK_TEXT_VIEW(gtk_builder_get_object(build,
"textview1"))
120 gtk_builder_connect_signals(build, 0)
121 g_object_unref(build)
122 gtk_window_set_title(GTK_WINDOW(dia),
"Log file: " & *Fnam)
123 BufLogFile = gtk_text_view_get_buffer(gtv)
126 IF 0 =
OPEN(*Fnam
FOR INPUT AS fnr)
THEN
127 VAR txt =
STRING(
LOF(fnr), 0)
131 gtk_text_buffer_set_text(BufLogFile, txt,
LEN(txt))
135 IF gtk_widget_get_visible(dia)
THEN
142 DIM SHARED AS LOG_Udt
PTR TXT