fasmw clone in fool :D

i tested to code the fasmw ide using fool and fasm (of course).
the result is, it works, i have it exactlly as i want it.
here a screenshot:

here the code:
(showing that i really need to factorise something in the code, and maybe use some nested struc like ouadji showed)

Code:

include '../comsys.inc'
fasmide:
.x=0
.y=0
.xl=200
.yl=70

        Gnode .x,.y,.xl,.yl,\
        .titlebar,\
        .menubar,\
        .editzone,\
        grabber;,\
.fasmname:
        db 'flat assembler '
.fasmver:
        db '1.69.14',0
        align 4
.titlebar:
        Gnode 0,0,.xl,15,\
        .titleicon,\
        .titletxt,\
        .titlebox
.titletxt:
        Txt 20,0,0,0,Yellow,.fasmname,1,font85
.titleicon:
        But 1,1,15,15,0,.fasmicon,exit.x
.titlebox:
        Box 0,0,.xl,15,Green+8

.menubar:
        Gnode 0,15,.xl,15,\
        .filemenu,\
        .editmenu,\
        .searchmenu,\
        .runmenu,\
        .optionsmenu,\
        .helpmenu,\
        .menubox
.menubox:
        Box 0,0,.xl,15,Silver
.filemenu:
        Txt 5,0,0,0,Black,.filetxt,1,font85
.editmenu:
        Txt 35,0,0,0,Black,.edittxt,1,font85
.searchmenu:
        Txt 65,0,0,0,Black,.searchtxt,1,font85
.runmenu:
        Txt 95,0,0,0,Black,.runtxt,1,font85
.optionsmenu:
        Txt 125,0,0,0,Black,.optionstxt,1,font85
.helpmenu:
        Txt 155,0,0,0,Black,.helptxt,1,font85

.filetxt:
        db 'File',0
.edittxt:
        db 'Edit',0
.searchtxt:
        db 'Find',0
.runtxt:
        db 'Run',0
.optionstxt:
        db 'Conf',0
.helptxt:
        db 'Help',0




.editzone:
        Gnode 0,30,.xl,.yl-30,\
        .editbox
.editbox:
        Box 0,0,.xl,.yl-30,Black

.fasmicon:
include 'fasmicon.inc'

and the icon, imported using gimp

Code:

fasmicon:
dd f.bmp,0,0,16,14,0
db      0,0,0,0,0,0,0,0,0,232,244,230,0,0,0,0,\
        0,0,0,0,0,0,0,232,244,248,248,248,230,0,0,0,\
        0,0,0,0,0,232,244,248,248,248,248,248,248,230,0,0,\
        0,0,0,232,244,248,236,236,236,236,248,236,248,248,230,0,\
        0,232,244,248,248,238,252,252,252,252,240,250,236,246,242,1,\
        232,250,248,248,236,240,232,238,246,244,232,242,232,236,234,1,\
        232,250,250,248,236,242,248,236,236,228,242,228,234,232,232,1,\
        228,242,250,250,248,248,248,242,230,228,234,232,232,1,232,0,\
        0,1,242,250,250,246,242,232,159,136,232,1,232,0,1,0,\
        0,0,1,242,250,236,234,232,159,136,232,0,1,0,0,0,\
        0,0,0,1,242,232,232,1,159,136,1,0,0,0,0,0,\
        0,0,0,0,1,1,232,1,159,136,0,0,0,0,0,0,\
        0,0,0,0,0,0,1,1,159,136,0,0,0,0,0,0,\
        0,0,0,0,0,0,0,1,144,132,0,0,0,0,0,0

for the moment (as all other projects i have) it is only a simple view of the main window. meaning that the difficult job is still to be made.

but it will help me to design the menu item things.

you know, this f****g menuitem like in win32.
there are some things that i don't fix in my mind about how it works.
i think i will be forced to introduce a new type of node objet,

f.menu