From 09505d628c3bfee6eebabd34ccdba85d149b28d7 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Mon, 20 May 2002 03:25:48 +0000 Subject: Irssi::get_gui() now returns IRSSI_GUI_xxx which is in use. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2820 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Core.xs | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) 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 #******************************* -- cgit v1.2.3