home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / extspsht.zip / EXTSPSHT / Main / 1008.9 < prev    next >
Text File  |  1997-07-15  |  316b  |  9 lines
  1. /* Event Key press - Free-form Window  1008 */
  2. Arg window self key isChar ctrl shft alt
  3. if isChar  then
  4.   response=VpMessageBox(window,'Bad additional Edit Key','A normal Character is not a good choice!')
  5. else  
  6. /* Set item value 1010 Text */
  7. CALL VpSetItemValue window,1010, key ctrl shft alt
  8. call setStyle
  9.