diff options
| -rw-r--r-- | src/perl/common/Core.xs | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 129b2081..174c3a4c 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -1,5 +1,6 @@ #include "module.h" #include "irssi-version.h" +#include "core.h" #define DEFAULT_COMMAND_CATEGORY "Perl scripts' commands" @@ -556,6 +557,54 @@ CODE: OUTPUT: RETVAL +int get_gui() +CODE: + RETVAL = irssi_gui; +OUTPUT: + RETVAL + +int +IRSSI_GUI_NONE() +CODE: + RETVAL = IRSSI_GUI_NONE; +OUTPUT: + RETVAL + +int +IRSSI_GUI_TEXT() +CODE: + RETVAL = IRSSI_GUI_TEXT; +OUTPUT: + RETVAL + +int +IRSSI_GUI_GTK() +CODE: + RETVAL = IRSSI_GUI_GTK; +OUTPUT: + RETVAL + +int +IRSSI_GUI_GNOME() +CODE: + RETVAL = IRSSI_GUI_GNOME; +OUTPUT: + RETVAL + +int +IRSSI_GUI_QT() +CODE: + RETVAL = IRSSI_GUI_QT; +OUTPUT: + RETVAL + +int +IRSSI_GUI_KDE() +CODE: + RETVAL = IRSSI_GUI_KDE; +OUTPUT: + RETVAL + #******************************* MODULE = Irssi::Core PACKAGE = Irssi::Server #******************************* |