From 09505d628c3bfee6eebabd34ccdba85d149b28d7 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 20 May 2002 03:25:48 +0000
Subject: [PATCH] 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
 #*******************************