;;;;;;;;;;;;;;;;;;;;;;      GUI for the feeble project.             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      graphic mode 13h and all vesa           ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
doclist    dd changeptr,browser.view+item.txt,0,@f-$-4
           dd outtext,fichier,help
           @@:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      BROWSER INTERFACE                       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
initbrowser:
           dd f.asm,@f,browser.xhtml+xhtml.title,TITLEBAR.TITLE
           @@:
           push ebx
           mov eax,[esi+8]
           mov ebx,[esi+12]
           mov [eax],ebx
           pop ebx
           ret
           align 4
browser    dd f.gnode,0,0,320,200,@f-$-4
           dd .asm,.window,.xhtml,.keyboard,initbrowser
           @@:
.asm       dd f.asm,@f,.xhtml
           @@:
           mov eax,[esi+8]
           mov dword[eax],0
           ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      parse                                   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.xhtml     dd f.xhtml,fichier,fichier.end
           dd outtext,outtext.end
           dd TITLEBAR.TITLE
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      main window                             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.window    dd f.gnode,0,0,320,200,@f-$-4
           dd .keyboard,.titlebar
           dd .addressbar
           dd .scrollbar
           dd .view,.workspace
           @@:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      view                                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.view      dd f.txt,3,15,?,?,outtext
           db 0,Black,0,0
           dd font85
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      scroll bar                              ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.scrollbar dd f.gnode,307,15,12,170,@f-$-4
           dd .butup,.butdn,.handle,.track
           @@:
.butup     dd f.put,0,0,0,0,poussoirup,White-31
.butdn     dd f.put,0,159,0,0,poussoirdn,White-31
.track     dd f.box,0,0,0,0,Silver+6
.handle    dd f.gnode,1,0,10,30,@f-$-4
           dd @f
@@         dd f.box,0,0,0,0,Silver+1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      address bar                             ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.addressbar dd f.gnode,1,185,318,14,@f-$-4
            dd .go,.caption,.atxt,.abox
            @@:
.go:
            dd f.put,303,2,0,0,poussoirdn,White-31
.atxt:
            dd f.txt,0,3,0,0,@f
            db Silver+3,Silver-10,0,1
            dd led85
@@:
            db ' address: ',0
;            db '_Address:_____________________________________________',0
            db 0
            align 4
.abox       dd f.box,0,0,0,0,white+24
;;;;;;;;;;;;;;;;;;;;;;      caption                                 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.caption    dd f.gnode,53,2,250,11,@f-$-4
            dd .captxt,.capbox
            @@:
.captxt     dd f.txt,1,1,0,0,@f
            db 0,yellow+8,0,1
            dd font85
            @@:
            db 'http://board.flatassembler.net',0
            rb 60
            db 0
            align 4
.capbox     dd f.box,0,0,0,0,white+30
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      WORKSPACE                               ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.workspace  dd f.gnode,1,11,318,188,@f-$-4
            dd .wframe,.wbox
            @@:
.wbox       dd f.box,0,0,0,0,White-1
.wframe     dd f.frame,0,0,0,0
            db Black,Black,Black,Black
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;        titlebar                              ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.titlebar   dd f.gnode,1,1,318,14,@f-$-4
            dd .buttons
            dd .ttxt,.tbox
            @@:
.tbox       dd f.box,0,0,0,0,white+24
.ttxt       dd f.txt,40,3,0,0,TITLEBAR
            db Green+3,White,0,1
            dd led85
.buttons    dd f.gnode,0,0,320,15,@f-$-4
            dd .prev,.next,.stop,.min,.max,.exit
            @@:
.prev       dd f.put,2,2,0,0,poussoirleft,White-31;Teal-31
.next       dd f.put,15,2,0,0,poussoirright,White-31;Navy-31
.stop       dd f.put,28,2,0,0,poussoirx,White-31;Purple-31
.min        dd f.put,280,2,0,0,poussoirh,White-31;Green-31
.max        dd f.put,293,2,0,0,poussoirm,White-31;Olive-31
.exit       dd f.put,306,2,0,0,poussoirl,White-31;Red-31
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;      KEYBOARD                                ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
.keyboard   dd f.key,0,@f-$-4
            dd .tmk,.otk
            @@:
.otk        dd kb.otk,0,@f-$-4
            dd key.tab,changeptr,doclist
            @@:
.tmk        dd kb.tmk,0,@f-$-4
            dd key.up,scrollu,.view+item.txt
            dd key.down,scrolld,.view+item.txt
            dd key.left,addmod,adder.xplus
            dd key.right,addmod,adder.xmoins
            @@:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
TITLEBAR    db '_FEEBLE_'
.TITLE      db '_______________________________',0
            align 4