# Repsentation des classes du programme
# 
#AspicScript

include "macros.shapes" ;

# dfinitions
set Turquoise   "0.1,0.4,0.5";


# preset

boxwidth 100;
boxdepth 40;
bindfont 1 "Times-Italic" 14;
bindfont 2 "Times" 20;
#dbut
push;

boxwidth 180;
MAIN:       box  "Application base"/2 ;
boxdepth 20;
INITTB:     box  join top "Init ToolBox";
INITEV:     box  join top  "Init ToolBox Events" ;
boxdepth 60;
REGMESS:    box  join top  "Register InitMessage_handler" "create Mainwindow Instance" "create IconBar Instance";
ARD01:      arrow down;

WIMPLOOP:   rhombus  150 80  "Wimp poll loop" "Quit = true?";
            line right 20 "no";
            line up 60;
            arrow left align middle of ARD01;

            goto WIMPLOOP;
            arrow down;
pop;
            oval 100 30 "End";


#end
