home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 2 / crawlyvol2.bin / program / pascal / pdial / demos / popdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-07  |  633 b   |  33 lines
  1. program popdemo;
  2.  
  3. uses gem, geminit, newobs, pform;
  4.  
  5. (*$I popdemo.i*)
  6.  
  7. var
  8.     tree            :    AESTreePtr;
  9.     pop_music    :    POP;
  10.     
  11. begin
  12.     if not initgem then
  13.         exit;
  14.     if rsrc_load('popdemo.rsc') = 0 then
  15.     begin
  16.         exitgem;
  17.         exit;
  18.     end;        
  19.     graf_mouse(ARROW, NIL);
  20.     init_pform(vdihandle, TRUE);    
  21.     init_newobs(vdihandle);
  22.     fix_all(TRUE);
  23.     set_feedback(TRUE);
  24.     circle_delay(50);
  25.     rsrc_gaddr(R_TREE, FORM, pointer(tree));
  26.     attach_popup(tree, POPUP, POP_STRING, POP_BUTTON, POP_CIRCLE,
  27.                  0, TRUE, pop_music, NIL);
  28.     do_popdialog(tree, 0, @pop_music);
  29.     fix_all(FALSE);
  30.     exit_pform;
  31.     rsrc_free;
  32.     exitgem;            
  33. end.