plugins/perl/common/Conversation_IM.xs@0897c42d6cb9 (annotated)
plugins/perl/common/Conversation_IM.xs
Sun, 17 Oct 2004 23:55:49 +0000
- author
- Sean Egan <seanegan@pidgin.im>
- date
- Sun, 17 Oct 2004 23:55:49 +0000
- changeset 10108
- 0897c42d6cb9
- parent 7120
- 83dba78f8518
- permissions
- -rw-r--r--
[gaim-migrate @ 11141]
Two things:
a. Added Enter as a gtk_binding to GtkIMHtml. This fixes everything.
Input methods now work. The "Enter sends" and "Ctrl-Enter sends" preferences
were removed and defaulted to yes and no respectively, BUT, in a very super-cool
turn of events, you can now add your own bindings to .gtkrc to make WHATEVER
YOU WANT send. Awesome. Someone should use g_signal_accumulator_true_handled
or something to make profiles and away messages able to insert newlines.
b. Removed "Use multi-colored screennames in chats," defaulted to yes, and
wrote a nifty algorithm to automatically adjust the colors to accomodate the
background (see http://gaim.sf.net/sean/porn-chat.png). People should play
around and tweak it a bit. The algorithm takes into consideration the
luminosity of the current background and the base hue to use for the screenname
in generating the new colors. Note that it does this while maintaining the hues.
Someone should optimize this so it skips over the floating point arithmatic when
the background color is white.
| 6591 | 1 | #include "module.h" |
| 2 | ||
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
3 | MODULE = Gaim::Conversation::IM PACKAGE = Gaim::Conversation::IM PREFIX = gaim_conv_im_ |
| 6591 | 4 | PROTOTYPES: ENABLE |
| 5 | ||
| 6 | Gaim::Conversation::IM | |
| 7 | new(account, name) | |
| 8 | Gaim::Account account | |
| 9 | const char *name | |
| 10 | CODE: | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
11 | RETVAL = GAIM_CONV_IM(gaim_conversation_new(GAIM_CONV_IM, account, name)); |
| 6591 | 12 | OUTPUT: |
| 13 | RETVAL | |
| 14 | ||
| 15 | void | |
| 16 | DESTROY(im) | |
| 17 | Gaim::Conversation::IM im | |
| 18 | CODE: | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
19 | gaim_conversation_destroy(gaim_conv_im_get_conversation(im)); |
| 6591 | 20 | |
| 21 | ||
| 22 | Gaim::Conversation | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
23 | gaim_conv_im_get_conversation(im) |
| 6591 | 24 | Gaim::Conversation::IM im |
| 25 | ||
| 26 | void | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
27 | gaim_conv_im_write(im, who, message, flags) |
| 6591 | 28 | Gaim::Conversation::IM im |
| 29 | const char *who | |
| 30 | const char *message | |
| 31 | int flags | |
| 32 | CODE: | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
33 | gaim_conv_im_write(im, who, message, flags, time(NULL)); |
| 6591 | 34 | |
| 35 | void | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
36 | gaim_conv_im_send(im, message) |
| 6591 | 37 | Gaim::Conversation::IM im |
| 38 | const char *message | |
| 39 | ||
| 40 | ||
| 41 | MODULE = Gaim::Conversation::IM PACKAGE = Gaim PREFIX = gaim_ | |
| 42 | PROTOTYPES: ENABLE | |
| 43 | ||
| 44 | void | |
| 45 | ims() | |
| 46 | PREINIT: | |
| 47 | GList *l; | |
| 48 | PPCODE: | |
| 49 | for (l = gaim_get_ims(); l != NULL; l = l->next) | |
| 50 | { | |
|
7120
83dba78f8518
[gaim-migrate @ 7687]
Christian Hammond <chipx86@chipx86.com>
parents:
6982
diff
changeset
|
51 | XPUSHs(sv_2mortal(gaim_perl_bless_object(GAIM_CONV_IM(l->data), |
| 6591 | 52 | "Gaim::Conversation"))); |
| 53 | } |
