Sat, 28 Apr 2007 02:33:40 +0000
Quoth Charkins:
This patch has two changes:
"This patch has two changes:
First is to slightly change the re-creation behavior of the docklet. Sadrul pointed out on gaim-devel that the x11 docklet re-creates itself when it is destroyed and thought this might be causing problems with fluxbox. This patch now distinguishes between initial creation and re-creation. When re-creating, the docklet no longer registers itself as a visibility manager until it successfully embeds.
Second is to change the timeout behavior for embedding. Because the notification area API is asynchronous, gaim assumes the docklet gets embeded for a certain timeout period, allowing the buddy list to start hidden before the docklet has been embeded in the notification area. If the timeout occurs, it is removed as a visibility manager and the buddy list will become visible. This timeout has been set at 5 seconds. There have been a few reports that indicate this timeout period is not long enough when starting gaim from a saved session upon login. I have been hesitant to increase the timeout, as it has the potential of delaying the startup of gaim for the timeout period if the buddy list was hidden when gaim last closed and there is not currently a notification area available. This patch makes the x11 docklet track whether it was successfully embedded and uses a longer timeout (15 seconds in this patch) only if it successfully embedded on the previous execution. Otherwise, it uses the shorter 5 second timeout. "
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
1 | typedef struct group *Pidgin__Group; |
| 14478 | 2 | |
| 3 | #define group perl_group | |
| 4 | ||
| 5 | #include <glib.h> | |
| 6 | #include <gtk/gtk.h> | |
| 7 | #ifdef _WIN32 | |
| 8 | #undef pipe | |
| 9 | #endif | |
| 10 | #include <EXTERN.h> | |
| 11 | #include <perl.h> | |
| 12 | #include <XSUB.h> | |
| 13 | ||
| 14 | #undef group | |
| 15 | ||
| 16 | #include <plugins/perl/common/module.h> | |
| 17 | ||
| 18 | #include "gtkaccount.h" | |
| 19 | #include "gtkblist.h" | |
| 20 | #include "gtkconn.h" | |
| 21 | #include "gtkconv.h" | |
| 22 | #include "gtkconvwin.h" | |
| 23 | #include "gtkdebug.h" | |
| 24 | #include "gtkdialogs.h" | |
| 25 | #include "gtkft.h" | |
| 26 | #include "gtkimhtml.h" | |
| 27 | #include "gtkimhtmltoolbar.h" | |
| 28 | #include "gtklog.h" | |
| 29 | #include "gtkmenutray.h" | |
| 30 | #include "gtkplugin.h" | |
| 31 | #include "gtkpluginpref.h" | |
| 32 | #include "gtkpounce.h" | |
| 33 | #include "gtkprefs.h" | |
| 34 | #include "gtkprivacy.h" | |
| 35 | #include "gtkroomlist.h" | |
| 36 | #include "gtksavedstatuses.h" | |
| 37 | #include "gtksession.h" | |
| 38 | #include "gtksound.h" | |
| 39 | #include "gtkstatusbox.h" | |
| 40 | #include "gtkthemes.h" | |
| 41 | #include "gtkutils.h" | |
| 42 | ||
| 43 | /* gtkaccount.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
44 | typedef PidginAccountDialogType Pidgin__Account__Dialog__Type; |
| 14478 | 45 | |
| 46 | /* gtkblist.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
47 | typedef PidginBuddyList * Pidgin__BuddyList; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
48 | typedef pidgin_blist_sort_function Pidgin__BuddyList__SortFunction; |
| 14478 | 49 | |
| 50 | /* gtkconv.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
51 | typedef PidginConversation * Pidgin__Conversation; |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15884
diff
changeset
|
52 | typedef PidginUnseenState Pidgin__UnseenState; |
| 14478 | 53 | |
| 54 | /* gtkconvwin.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
55 | typedef PidginWindow * Pidgin__Conversation__Window; |
|
15899
75f0041f72b8
Pidgin perl fixes for s/gaim/purple/.
Daniel Atallah <datallah@pidgin.im>
parents:
15884
diff
changeset
|
56 | typedef PidginConvPlacementFunc Pidgin__Conversation__PlacementFunc; |
| 14478 | 57 | |
| 58 | /* gtkft.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
59 | typedef PidginXferDialog * Pidgin__Xfer__Dialog; |
| 14478 | 60 | |
| 61 | /* gtkimhtml.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
62 | typedef GtkIMHtml * Pidgin__IMHtml; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
63 | typedef GtkIMHtmlButtons Pidgin__IMHtml__Buttons; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
64 | typedef GtkIMHtmlFuncs * Pidgin__IMHtml__Funcs; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
65 | typedef GtkIMHtmlScalable * Pidgin__IMHtml__Scalable; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
66 | typedef GtkIMHtmlSmiley * Pidgin__IMHtml__Smiley; |
|
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
67 | typedef GtkIMHtmlOptions Pidgin__IMHtml__Options; |
| 14478 | 68 | |
| 69 | /* gtkimhtmltoolbar.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
70 | typedef GtkIMHtmlToolbar * Pidgin__IMHtmlToolbar; |
| 14478 | 71 | |
| 72 | /* gtkmenutray.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
73 | typedef PidginMenuTray * Pidgin__MenuTray; |
| 14478 | 74 | |
| 75 | /* gtkstatusbox.h */ | |
|
15590
c07dd12bf3f4
Partial fix for pidgin perl support. Fixing fully is going to require a decision on splitting from some of the core perl support - more than I want to deal with right now.
Daniel Atallah <datallah@pidgin.im>
parents:
15577
diff
changeset
|
76 | typedef PidginStatusBox * Pidgin__StatusBox; |