[Scsh-checkins] CVS: scx/c/xlib event.c,1.3,1.4

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/c/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv4414

Modified Files:
        event.c 
Log Message:
Fixed Event_Mask_Syms/Event_Syms confusion.


Index: event.c
===================================================================
RCS file: /cvsroot/scsh/scx/c/xlib/event.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** event.c     2001/07/09 13:39:59     1.3
--- event.c     2001/07/16 11:55:03     1.4
***************
*** 2,6 ****
  #include "scheme48.h"
  
! SYMDESCR Event_Names[] = {
    { "key-press",       KeyPress },
    { "key-release",     KeyRelease },
--- 2,6 ----
  #include "scheme48.h"
  
! SYMDESCR Event_Syms[] = {
    { "key-press",       KeyPress },
    { "key-release",     KeyRelease },
***************
*** 340,344 ****
    
    // And the Event-Name
!   r = s48_cons( Bit_To_Symbol(e->type, Event_Names), r );
  
    S48_GC_UNPROTECT();
--- 340,344 ----
    
    // And the Event-Name
!   r = s48_cons( Bit_To_Symbol(e->type, Event_Syms), r );
  
    S48_GC_UNPROTECT();