Commit 7b3b3930 authored by kollo's avatar kollo

bugfix gui2bas.bas (Isuue: Wolfgang Schoenewolf 2017-05-01)

parent 1a85fb7d
' Utility to convert gui Files with Formulars OR other Graphical user interface ' Utility to convert gui Files with Formulars or other Graphical user interface
' Objects to X11Basic executable programs ' Objects to X11Basic executable programs
' '
'* This file is part of X11BASIC, the basic interpreter for Unix/X '* This file is part of X11BASIC, the basic interpreter for Unix/X
...@@ -8,9 +8,10 @@ ...@@ -8,9 +8,10 @@
'* '*
' (c) Markus Hoffmann 2003 (letzte Bearbeitung: 10.08.2003) ' (c) Markus Hoffmann 2003 (letzte Bearbeitung: 10.08.2003)
' 27.01.2005 ' 27.01.2005
' 01.05.2017 Korrektur W. Schoenewolf
' '
DIM iz$(1000) DIM iz$(1000)
DIM fSTR$(1000) DIM fstr$(1000)
DIM fstrnam$(1000) DIM fstrnam$(1000)
CLR anziz,anzstring,anztree,anzfreestring,anzobj CLR anziz,anzstring,anztree,anzfreestring,anzobj
CLR anztedinfo,anzdata,anzbitblk,anziconblk CLR anztedinfo,anzdata,anzbitblk,anziconblk
...@@ -19,7 +20,7 @@ inputfile$=PARAM$(2) ...@@ -19,7 +20,7 @@ inputfile$=PARAM$(2)
chw=8 chw=8
chh=16 chh=16
OPEN "I",#1,inputfile$ OPEN "I",#1,inputfile$
WHILE NOT eof(#1) WHILE NOT EOF(#1)
LINEINPUT #1,t$ LINEINPUT #1,t$
t$=TRIM$(t$) t$=TRIM$(t$)
IF LEN(t$) IF LEN(t$)
...@@ -185,7 +186,7 @@ FUNCTION doit2(parent) ...@@ -185,7 +186,7 @@ FUNCTION doit2(parent)
@doobj(idx,obnext,obhead,obtail,typ$,t$) @doobj(idx,obnext,obhead,obtail,typ$,t$)
ENDIF ENDIF
WEND WEND
' print "'# END DOIT2: ",parent,count ' print "'# END DOIT2: ",parent,count
RETURN idx RETURN idx
ENDFUNC ENDFUNC
...@@ -281,7 +282,7 @@ PROCEDURE doobj(idx,obnext,obhead,obtail,a$,b$) ...@@ -281,7 +282,7 @@ PROCEDURE doobj(idx,obnext,obhead,obtail,a$,b$)
obflags=@doflags(flags$) obflags=@doflags(flags$)
obstate=@dostate(state$) obstate=@dostate(state$)
IF UPPER$(a$)="BOX" OR UPPER$(a$)="BOXCHAR" IF UPPER$(a$)="BOX" OR UPPER$(a$)="BOXCHAR"
obtype=20*ABS(UPPER$(a$)="BOX")+27*ABS(UPPER$(a$)="BOX") obtype=20*ABS(UPPER$(a$)="BOX")+27*ABS(UPPER$(a$)="BOXCHAR")
char$=@getval$(b$,"CHAR") char$=@getval$(b$,"CHAR")
IF LEN(char$)=1 IF LEN(char$)=1
char=ASC(char$) char=ASC(char$)
...@@ -391,7 +392,7 @@ PROCEDURE addtree(aob,oobj) ...@@ -391,7 +392,7 @@ PROCEDURE addtree(aob,oobj)
PRINT " ~form_center(varptr(tree"+STR$(anztree)+"$),x,y,w,h)" PRINT " ~form_center(varptr(tree"+STR$(anztree)+"$),x,y,w,h)"
PRINT " ~form_dial(0,0,0,0,0,x,y,w,h)" PRINT " ~form_dial(0,0,0,0,0,x,y,w,h)"
PRINT " ~form_dial(1,0,0,0,0,x,y,w,h)" PRINT " ~form_dial(1,0,0,0,0,x,y,w,h)"
PRINT " ~objc_draw(varptr(tree"+STR$(anztree)+"$),0,-1,0,0)" PRINT " ~objc_draw(varptr(tree"+STR$(anztree)+"$),0,-1,0,0,,)"
PRINT " ret=FORM_DO(VARPTR(tree"+STR$(anztree)+"$))" PRINT " ret=FORM_DO(VARPTR(tree"+STR$(anztree)+"$))"
PRINT " ~form_dial(2,0,0,0,0,x,y,w,h)" PRINT " ~form_dial(2,0,0,0,0,x,y,w,h)"
PRINT " ~form_dial(3,0,0,0,0,x,y,w,h)" PRINT " ~form_dial(3,0,0,0,0,x,y,w,h)"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment