home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / dev / gui / designerdemo / menudemo / menudemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-21  |  1.9 KB  |  60 lines
  1. Program ButtonDemo;
  2.  
  3. Uses exec,intuition,gadtools,graphics,amiga,diskfont,
  4.      workbench,utility,menudemounit;
  5. var
  6.   done       : boolean;
  7.   class      : long;
  8.   pimsg      : pintuimessage;
  9.   dummy      : long;
  10.   code       : word;
  11.   pitem      : pMenuItem;
  12.   menunumber : word;
  13. begin
  14.   if openlibs then
  15.     begin
  16.       if makeimages then
  17.         begin
  18.           if openwindowdisplaywindow then
  19.             begin
  20.               done:=false;
  21.               repeat
  22.                 dummy:=wait(bitmask(displaywindow^.userport^.mp_sigbit));
  23.                 pimsg:=gt_getimsg(displaywindow^.userport);
  24.                 while(pimsg<>nil) do
  25.                   begin
  26.                     class:=pimsg^.class;
  27.                     code:=pimsg^.code;
  28.                     gt_replyimsg(pimsg);
  29.                     case class of
  30.                       idcmp_closewindow : 
  31.                         done:=true;
  32.                       idcmp_menupick :
  33.                         begin
  34.                           menunumber:=code;
  35.                           while (menunumber<>menunull) and (not done) do
  36.                             begin
  37.                               pitem:=itemaddress(demomenu, menunumber);
  38.                               if (menunum(menunumber)=demomenu_menu0) and
  39.                                  (itemnum(menunumber)=demomenu_menu0_item4) then
  40.                                    done:=true;
  41.                               menunumber:=pitem^.nextselect;
  42.                             end;
  43.                         end;
  44.                      end;
  45.                     pimsg:=gt_getimsg(displaywindow^.userport);
  46.                   end;
  47.               until done;
  48.               closewindowdisplaywindow;
  49.             end
  50.            else
  51.             writeln('Could not open window.');
  52.           freeimages;
  53.         end
  54.        else
  55.         writeln('Could not make images.');
  56.       closelibs;
  57.     end
  58.    else
  59.     writeln('Could not open libraries.');
  60. end.