rendered paste body;;;;;;;;;;;;;;;;;;;;;; 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