home *** CD-ROM | disk | FTP | other *** search
/ Kyūkyoku!! X68000 Emulator / X68000Book.dat / mac / OLS / X68000 / Ko-Window / kow142s.lzh / corlib / ClipGetString.c < prev    next >
C/C++ Source or Header  |  1994-09-07  |  751b  |  37 lines
  1. /* 1994 H.Ogasawara(COR.) */
  2. #include    "wlib.h"
  3.  
  4. ClipGetKeyboardAll( wp, info )
  5. WindowID    wp;
  6. EventInfo    *info;
  7. {
  8.     if( info->option == EventUser ){
  9.         EventInfo    DummyInfo;
  10.         switch( info->ComData ){
  11.         case UserStrings: {
  12.                 unsigned char    **p= info->ComBuffer;
  13.                 for(; *p ;){
  14.                     DummyInfo.option= EventUser;
  15.                     DummyInfo.ComData= UserString;
  16.                     DummyInfo.ComBuffer= *p++;
  17.                     WindowSendEvent( wp, &DummyInfo );
  18.                 }
  19.             }
  20.             break;
  21.         case UserPaste:
  22.         case UserString: {
  23.                 unsigned char    *p= info->ComBuffer;
  24.                 for(; *p ;){
  25.                     DummyInfo.option= EventKey;
  26.                     DummyInfo.KeyCode= *p++;
  27.                     DummyInfo.ShiftStat= 0;
  28.                     WindowSendEvent( wp, &DummyInfo );
  29.                 }
  30.             }
  31.         }
  32.         return    TRUE;
  33.     }
  34.     return    FALSE;
  35. }
  36.  
  37.