[xiph-cvs] cvs commit: snatch snatch.pl x11.c

[Monty]

xiphmont    01/11/04 23:04:08

  Modified:    .        snatch.pl x11.c
  Log:
  bugfixes. RealPlayer's dialog styles are highly inconsistent.
  
  Monty

Revision  Changes    Path
1.4       +1 -1      snatch/snatch.pl

Index: snatch.pl
===================================================================
RCS file: /usr/local/cvsroot/snatch/snatch.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- snatch.pl	2001/11/05 04:27:14	1.3
+++ snatch.pl	2001/11/05 07:04:08	1.4
@@ -18,7 +18,7 @@
 my $playcode=join "",("Ks",pack ("S",4),"Kp",pack ("S",4));
 my $stopcode=join "",("Ks",pack ("S",4));
 my $exitcode=join "",("Kq",pack ("S",4));
-my $opencode=join "".("Ko",pack ("S",4));
+my $opencode=join "",("Ko",pack ("S",4));
 my $loccode=join "",("Kl",pack ("S",4));
 
 die $! unless socket(LISTEN_SOCK, PF_UNIX, SOCK_STREAM,0);

1.6       +25 -10    snatch/x11.c

Index: x11.c
===================================================================
RCS file: /usr/local/cvsroot/snatch/x11.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- x11.c	2001/11/05 05:55:26	1.5
+++ x11.c	2001/11/05 07:04:08	1.6
@@ -53,6 +53,8 @@
 
 static unsigned long rpfile_shell=0;
 static unsigned long rpfile_main=0;
+static unsigned long rpfile_entry=0;
+static int rpfile_lowest=0;
 
 static void queue_task(void (*f)(void));
 
@@ -207,26 +209,31 @@
                                       window tree to get an
                                       absolute X,Y to make an
                                       event */
+
   if(location)
     FakeTypeString(location,rploc_entry);
   FakeTypeString(" ",rploc_ok);
 
-  rpauth_shell=0;
-  rpauth_main=0;
-  rpauth_password=0;
-  rpauth_username=0;
-  rpauth_okbutton=0;
-  rpauth_count=0;
+  rploc_shell=0;
+  rploc_main=0;
+  rploc_ok=0;
+  rploc_count=0;
+  rploc_entry=0;
   
 }
 
 static void FileEntry(void){
-  
+  int i;
   fprintf(stderr,"    ...: filling in file field...\n");
+
+  /* gah, hack */
+  for(i=0;i<300;i++)
+    FakeKeySym(XStringToKeysym("BackSpace"),0,rpfile_entry);
+
   if(openfile)
-    FakeTypeString(openfile,rpfile_main);
+    FakeTypeString(openfile,rpfile_entry);
 
-  FakeKeySym(XStringToKeysym("Return"),0,rpfile_main);
+  FakeKeySym(XStringToKeysym("Return"),0,rpfile_entry);
 
   rpfile_shell=0;
   rpfile_main=0;
@@ -247,7 +254,7 @@
     queue_task(Location);
   }
 
-  if(id==rpfile_main && rpfile_shell){
+  if(id==rpfile_entry && rpfile_shell){
     rpfile_shell=0;
     queue_task(FileEntry);
   }
@@ -343,6 +350,14 @@
     /* File dialog windows */
     if(parent==rpfile_shell){
       rpfile_main=id;
+      rpfile_lowest=0;
+    }
+    if(parent==rpfile_main){
+      int y=IShort(&buf[14]);
+      if(y>rpfile_lowest){
+	rpfile_entry=id;
+	rpfile_lowest=y;
+      }
     }
   }
 }

--- >8 ----
List archives:  http://www.xiph.org/archives/
Ogg project homepage: http://www.xiph.org/ogg/
To unsubscribe from this list, send a message to 'cvs-request at xiph.org'
containing only the word 'unsubscribe' in the body.  No subject is needed.
Unsubscribe messages sent to the list will be ignored/filtered.