Mercurial > pidgin
view console/libgnt/gntkeys.c @ 14364:338ac096e322
[gaim-migrate @ 17070]
Disabled GTK+ components of the Perl plugin (we'll no longer support gtk-perl prefs frames until this is refactored into a gtkgaim plugin somehow).
Fix gaim_util_fetch_url and plug some leaks.
I haven't successfully tested gaim_util_fetch_url from perl yet - it doesn't seem to actually pass the retrieved text to the plugin sub correctly yet.
The syntax for calling gaim_util_fetch_url() from perl is also funky and should be made more consistent to the C function.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 28 Aug 2006 20:27:03 +0000 |
parents | ae4cbed1b309 |
children | 70623f0d5cdc |
line wrap: on
line source
#include "gntkeys.h" #include <string.h> void gnt_keys_refine(char *text) { if (text[0] == 27) { /* These are for urxvt */ if (strcmp(text + 1, "Oa") == 0) { strcpy(text + 1, GNT_KEY_CTRL_UP); } else if (strcmp(text + 1, "Ob") == 0) { strcpy(text + 1, GNT_KEY_CTRL_DOWN); } } else if ((unsigned char)text[0] == 195) { /* These for xterm */ if (text[2] == 0) { text[0] = 27; text[1] -= 64; } } }