flat assembler
Message board for the users of flat assembler.

Index > IDE Development > fasmw clone in fool :D

Author
Thread Post new topic Reply to topic
edfed



Joined: 20 Feb 2006
Posts: 4242
Location: 2018
edfed
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:
Image


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
Post 16 Nov 2010, 00:26
View user's profile Send private message Visit poster's website Reply with quote
Display posts from previous:
Post new topic Reply to topic

Jump to:  


< Last Thread | Next Thread >
Forum Rules:
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Copyright © 1999-2020, Tomasz Grysztar. Also on GitHub, YouTube, Twitter.

Website powered by rwasa.