home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / kpwdemo.zip / SETICOND.SRC < prev    next >
Text File  |  1990-07-26  |  1KB  |  43 lines
  1. window (quit,15,2,50,17.56,,[popup,thickFrame,titleBar,showChildren,siblings],,,,close_event).
  2. text ('
  3.   Install applications on the Program Manager.
  4.   To install KnowledgePro just press INSTALL.
  5.  
  6.   Group Name:
  7.  
  8.   Description:
  9.  
  10.   Command Line:
  11.  
  12.   Icon Name:
  13.  ').
  14. ed1 is edit_line ('Windows Applications',,19,4.8,25).
  15. ed2 is edit_line ('KPWIN Demo',,19,6.8,25).
  16. ed3 is edit_line ('\kpwin\kpwinrun.exe demo.ckb',,19,8.8,25).
  17. ed4 is edit_line ('\kpwin\kpwin.ico',,19,10.8,25).
  18. button ('Install',install,11,14,).
  19. button ('Quit',quit,32,14,9).
  20. show_window ().
  21. set_focus (?ed1).
  22.  
  23. topic install.
  24.   group is get_text (?ed1).
  25.   describe is get_text (?ed2).
  26.   file is get_text (?ed3).
  27.   iconName is get_text (?ed4).    
  28.   channel is dde_open (dde_topic, progman, progman). 
  29.   command1 is concat ('[ShowGroup(',?group,',2)]').
  30.   command2 is concat ('[ShowGroup(',?group,',1)]' ).
  31.   command3 is concat (' [AddItem(',?file,',',?describe,',',?iconName,')]').
  32.   dde_execute (?channel,[?command1,?command2,?command3]).
  33.   wait (,1).
  34.   new_kb ('demo.ckb').
  35. end.
  36.   
  37. topic dde_topic.
  38. end.
  39.   
  40. topic quit.
  41.   new_kb ('demo.ckb').
  42. end.
  43.