Mercurial > pidgin.yaz
annotate plugins/gaim.pl @ 4145:b658b502b096
[gaim-migrate @ 4363]
gtk1.2 code in anything except the buddy list window is a bug. this patch from
David Brigada (jsi):
" This patch changes the mechanism in which Gaim changes
the colors on tabs for typing notification, new message
notification, etc.. The previous mechanism was causing
the font to change (possible mix of gtk1.2 and gtk2.0
code). Instead of loading the label's preferences with
gtk_widget_get_modifier_style(), changing the color
(with a -> edit), and then saving the label's
preferences with gtk_widget_modify_style(), it changes
the color with gtk_widget_modify_fg(). This fixes the
font problem on my computer. The GTK 2.0 API docs seem
to suggest the use of gtk_widget_modify_fg() over
gtk_widget_modify_style() when necessary."
committer: Tailor Script <tailor@pidgin.im>
author | Luke Schierer <lschiere@pidgin.im> |
---|---|
date | Thu, 26 Dec 2002 15:40:23 +0000 |
parents | e120097bbd72 |
children |
rev | line source |
---|---|
3563 | 1 sub description { |
2 my($a, $b, $c, $d, $e, $f) = @_; | |
3 ("Example", "1.0", "An example Gaim perl script that does nothing particularly useful:\n\t-Show a dialog on load\n\t-Set user idle for 6,000 seconds\n\t-Greets people signing on with \"Hello\"\n\t-Informs you when script has been loaded for one minute.", "Eric Warmenhoven <eric\@warmenhoven.org>", "http://gaim.sf.net", "/dev/null"); | |
4 } | |
806 | 5 |
3563 | 6 $handle = GAIM::register("Example", "1.0", "goodbye", ""); |
7 | |
8 GAIM::print("Perl Says", "Handle $handle"); | |
9 | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
10 $ver = GAIM::get_info(0); |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
11 @ids = GAIM::get_info(1); |
806 | 12 |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
13 $msg = "Gaim $ver:"; |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
14 foreach $id (@ids) { |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
15 $pro = GAIM::get_info(7, $id); |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
16 $nam = GAIM::get_info(3, $id); |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
17 $msg .= "\n$nam using $pro"; |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
18 } |
806 | 19 |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
20 |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
21 GAIM::command("idle", 6000); |
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
22 |
3563 | 23 GAIM::add_event_handler($handle, "event_buddy_signon", "echo_reply"); |
24 GAIM::add_timeout_handler($handle, 60, "notify"); | |
806 | 25 |
26 sub echo_reply { | |
2511
a83b4a5ffcd6
[gaim-migrate @ 2524]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
2355
diff
changeset
|
27 $index = $_[0]; |
a83b4a5ffcd6
[gaim-migrate @ 2524]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
2355
diff
changeset
|
28 $who = $_[1]; |
a83b4a5ffcd6
[gaim-migrate @ 2524]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
2355
diff
changeset
|
29 GAIM::print_to_conv($index, $who, "Hello", 0); |
806 | 30 } |
31 | |
32 sub notify { | |
2355
571971659533
[gaim-migrate @ 2368]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
1526
diff
changeset
|
33 GAIM::print("1 minute", "gaim test has been loaded for 1 minute"); |
806 | 34 } |
35 | |
36 sub goodbye { | |
1526
190cef255530
[gaim-migrate @ 1536]
Eric Warmenhoven <eric@warmenhoven.org>
parents:
806
diff
changeset
|
37 GAIM::print("You Bastard!", "You killed Kenny!"); |
806 | 38 } |
3551 | 39 |