UI::Dialog::GNOME(3pm)					User Contributed Perl Documentation				    UI::Dialog::GNOME(3pm)

NAME

       UI::Dialog::GNOME

SYNOPSIS

	 use UI::Dialog::GNOME;
	 my $d = new UI::Dialog::GNOME ( title => 'Default title',
					 height => 20, width => 65 ,
					 listheight => 5,
					 order => [ 'zenity', 'xdialog' ] );

	 # Either a Zenity or Xdialog msgbox widget should popup,
	 # with a preference for Zenity.
	 $d->msgbox( title => 'Welcome!', text => 'Welcome one and all!' );

ABSTRACT

       UI::Dialog::GNOME is simply another meta-class for UI::Dialog. This class simply has a different order of priority than UI::Dialog and no
       console support.

DESCRIPTION

       This class is simply a nice way to try and ensure a GNOME based widget set.  The editbox() widget is also provided in addition to the stan-
       dard widgets as both the XDialog and Zenity backends effectively support it's usage. If you are still using GDialog and not Zenity (which
       provides a very nice gdialog wrapper) the editbox() widget will cause your application to die with a "missing method editbox()" error.

EXPORT

	 None

INHERITS

	 UI::Dialog

CONSTRUCTOR

       new( @options )

       EXAMPLE
	    my $d = new( title => 'Default Title', backtitle => 'Backtitle',
			 width => 65, height => 20, listheight => 5,
			 order => [ 'zenity', 'xdialog', 'gdialog' ] );

       DESCRIPTION
		 This is the Class Constructor method. It accepts a list of key => value pairs and uses them as the defaults when interacting with
		 the various widgets.

       RETURNS
		 A blessed object reference of the UI::Dialog::GNOME class.

       OPTIONS
	   The (...)'s after each option indicate the default for the option.

	   debug = 0,1,2(0)
	   order = [ zenity, xdialog, gdialog ] (as indicated)
	   PATH = [ /bin, /usr/bin, /usr/local/bin, /opt/bin ] (as indicated)
	   backtitle = "backtitle" ('')
	   title = "title" ('')
	   beepbefore = 0,1(0)
	   beepafter = 0,1(0)
	   height = d+(20)
	   width = d+(65)
	   listheight = d+(5)

WIDGET METHODS

       editbox( )

       EXAMPLE
	    $d->editbox( path => '/path/to/a/text/file' );

       DESCRIPTION
		 Present the end user with an editable textbox containing the contents of the given text file.

       RETURNS
		 A SCALAR containing the edited text if the response is OK and FALSE(0) for anything else.

SEE ALSO

       PERLDOC
	  UI::Dialog
	  UI::Dialog::Backend
	  UI::Dialog::Backend::GDialog
	  UI::Dialog::Backend::Nautilus
	  UI::Dialog::Backend::XDialog
	  UI::Dialog::Backend::XOSD
	  UI::Dialog::Backend::Zenity

       MAN FILES
	  zenity(1), gdialog(1), Xdialog(1), osd_cat(1) and nautilus(1)

BUGS

       Please email the author with any bug reports. Include the name of the module in the subject line.

AUTHOR

       Kevin C. Krinke, <kckrinke@opendoorsoftware.com>

COPYRIGHT AND LICENSE

	Copyright (C) 2003  Kevin C. Krinke <kckrinke@opendoorsoftware.com>

	This library is free software; you can redistribute it and/or
	modify it under the terms of the GNU Lesser General Public
	License as published by the Free Software Foundation; either
	version 2.1 of the License, or (at your option) any later version.

	This library is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
	Lesser General Public License for more details.

	You should have received a copy of the GNU Lesser General Public
	License along with this library; if not, write to the Free Software
	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA

perl v5.8.8							    2004-08-01						    UI::Dialog::GNOME(3pm)