From: Muthu <gnu...@us...> - 2006-12-06 07:19:12
|
Update of /cvsroot/octave/octave-forge/main/zenity/inst In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv20919 Modified Files: zenity_message.m Added Files: zenity_scale.m Log Message: zenity_scale: Shamelessly copied from Søren Hauberg's zenity_calendar Index: zenity_message.m =================================================================== RCS file: /cvsroot/octave/octave-forge/main/zenity/inst/zenity_message.m,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- zenity_message.m 4 Dec 2006 20:04:03 -0000 1.1 +++ zenity_message.m 6 Dec 2006 07:19:10 -0000 1.2 @@ -21,13 +21,15 @@ ## optional variable @var{type} sets the type of the message. ## @var{type} must be one of the following strings @code{error}, ## @code{info}, @code{question}, and @code{warning}. The default -## value of @var{type} is @code{info}. +## value of @var{type} is @code{info}. Retuns the value @code{status} +## which is 0 for 'Ok' and 1 for 'Cancel' button selection; a value +## of -1 indicates a failure of dialog box. ## ## @seealso{zenity_calendar, zenity_list, zenity_progress, zenity_entry, ## zenity_text_info, zenity_file_selection, zenity_notification} ## @end deftypefn -function zenity_message(text, type) +function status=zenity_message(text, type) if (nargin == 0 || !ischar(text)), print_usage(); endif if (nargin < 2), type = "info"; endif if !(ischar(type) && any(strcmp(type, {"error", "info", "question", "warning"}))) --- NEW FILE: zenity_scale.m --- ## Copyright (C) 2006 Muthiah Annamalai ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 2 of the License, or ## (at your option) any later version. ## ## This program 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 General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with this program; if not, write to the Free Software ## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ## -*- texinfo -*- ## @deftypefn {Function File} @var{output} = zenity_scale(@var{title},@var{text}, @var{value}, @var{minval}, @var{maxval},@var{step},@var{print_partial},@var{hideval}) ## Displays a selection scale (range widget) window. ## Allows the user to choose a parameter within the set ranges, and sets ## default value, and step sizes. ## The variable @var{title} sets the title of the window. ## The variable @var{text} sets the label of the range widget. ## The optional arguments @var{value}, @var{minval},@var{maxval}, ## @var{step}, @var{print_partial}, and @var{hideval}. ## The range widget can be used to select anywhere from @var{minval} to ## @var{maxval} values in increments of @var{step}. The variable ## @var{print_partial} and @var{hideval} are boolean flags to partial ## and hidden views of the value on the range widget. ## The first 3 parameters are essential, while the remaining parameters ## @var{minval}, @var{maxval},@var{step},@var{print_partial},@var{hideval} if ## not specified take on default values of 0,100,1,false,false ## respectively. ## @seealso{zenity_list, zenity_progress, zenity_entry, zenity_message, ## zenity_text_info, zenity_file_selection, zenity_notification} ## @end deftypefn function output = zenity_scale(title,text, value, minval, maxval, step, print_partial, hideval) if (nargin < 3), error("Usage: zenity_scale(tite,text, value, minval, maxval, step, print_partial, hideval)"); endif if (nargin < 4), minval= 0; endif if (nargin < 5), maxval= 100; endif if (nargin < 6), step = 1; endif if (nargin < 7), print_partial = false; endif if (nargin < 8), hideval = false; endif ppartial=""; hvalue=""; if(length(title)==0), title="Adjust the scale value"; endif if(print_partial), ppartial="--print-partial"; endif if(hideval), hvalue="--hide-value"; endif cmd = sprintf(['zenity --scale --title="%s" --text="%s" ', ... '--value=%d --min-value=%d --max-value=%d --step=%d ',... '%s %s '],title, text, value, minval,maxval,step,ppartial,hvalue); [status, output] = system(cmd); if (status == 0) output = str2num(output); elseif (status == 1) output = value; ##default when user kills it. else error("zenity_scale: %s", output); ##kill -9 endif endfunction % %(Shamelessly copied from Søren Hauberg's zenity_calendar). %zenity --scale --text 'What is in your Wallet' --value 10 --min-value 0 --max-value 100 --step 5 %zenity_scale('','What is in your Wallet',10,0,100,5) % |