Tk::WaitBox man page on BSDOS

Man page or keyword search:  
man Server   6284 pages
apropos Keyword Search (all sections)
Output format
BSDOS logo
[printable version]



WaitBox(3)	      perl/Tk Documentation	       WaitBox(3)

NAME
       Tk::WaitBox - An Object Oriented Wait Dialog for Perl/Tk,
       of the Please Wait variety.

DESCRIPTION
       A WaitBox consists of a number of subwidgets:

       bitmap

       A bitmap (configurable via the -bitmap command, the
       default is an hourglass) on the left side of the WaitBox

       label

       A label (configurable via the -txt1 command), with text in
       the upper portion of the right hand frame

       secondary label

       Another label (configurable via the -txt2 command, the
       default is 'Please Wait'), with text in the lower portion
       of the right hand frame

       userframe

       A frame displayed, if required, between the label and the
       secondary label.	 For details, see the example code and
       the Advertised Widget section

       cancel button

       If a cancelroutine (configured via the -cancelroutine
       command) is defined, a frame will be packed below the
       labels and bitmap, with a single button.	 The text of the
       button will be 'Cancel' (configurable via the -canceltext
       command), and the button will call the supplied subroutine
       when pressed.

SYNOPSIS
       Usage Description

       Basic Usage

       To use, create your WaitDialog objects during
       initialization, or at least before a Show.  When you wish
       to display the WaitDialog object, invoke the 'Show' method
       on the WaitDialog object; when you wish to cease
       displaying the WaitDialog object, invoke the 'unShow'
       method on the object.

25/Aug/1997		    Tk400.202				1

WaitBox(3)	      perl/Tk Documentation	       WaitBox(3)

       Configuration

       Configuration may be done at creation or via the configure
       method.

       Example Code

	    #!/usr/local/bin/perl -w

	    use Tk;
	    use Tk::WaitBox;
	    use strict;

	    my($root) = MainWindow->new;
	    my($utxt) = "Initializing...";

	    my($wd) = $root->WaitBox(
		   -bitmap =>'questhead', # Default would be 'hourglass'
		   -txt2 => 'tick-tick-tick', #default would be 'Please Wait'
		   -title => 'Takes forever to get service around here',
		   -cancelroutine => sub {
		       print "\nI'm canceling....\n";
		       $wd->unShow;
		       $utxt = undef;
		   });
	    $wd->configure(-txt1 => "Hurry up and Wait, my Drill Sergeant told me");
	    $wd->configure(-foreground => 'blue',-background => 'white');

	    ### Do something quite boring with the user frame
	    my($u) = $wd->{SubWidget}(uframe);
	    $u->pack(-expand => 1, -fill => 'both');
	    $u->Label(-textvariable => \$utxt)->pack(-expand => 1, -fill => 'both');

	    ## It would definitely be better to do this with a canvas... this is dumb
	    my($base) = $u->Frame(-background =>'gray',
				  -relief => 'sunken',
				  -borderwidth => 2,
				  -height => 20)
		    ->pack(-side => 'left', -anchor => 'w',-expand => 1,
			   -fill => 'both');
	    my($bar) = $base->Frame(-borderwidth => 2,
				    -relief => 'raised', -height => 20,
				    -width => 0, -background => 'blue')
		    ->pack(-fill => 'y', -side => 'left');

	    $wd->configure(-canceltext => 'Halt, Cease, Desist'); # default is 'Cancel'

	    $wd->Show;

25/Aug/1997		    Tk400.202				2

WaitBox(3)	      perl/Tk Documentation	       WaitBox(3)

	    for (1..15) {
		sleep(1);
		$bar->configure(-width => int($_/15*$base->Width));
		$utxt = 100*$_/15 . "% Complete";
		$root->update;
		last if !defined($utxt);
	    }

	    $wd->unShow;

Advertised Subwidgets
       uframe
	   uframe is a frame created between the two messages.
	   It may be used for anything the user has in mind...
	   including exciting cycle wasting displays of sand
	   dropping through an hour glass, Zippy riding either a
	   Gnu or a bronc, et cetera.

	   Assuming that the WaitBox is referenced by $w, the
	   uframe may be addressed as $w->subwidget{'uframe'}.
	   Having gotten the address, you can do anything (I
	   think) you would like with it

Author
       Brent B. Powers, Merrill Lynch (B2Pi)
	powers@ml.com

       This code may be distributed under the same conditions as
       perl itself.

25/Aug/1997		    Tk400.202				3

[top]
                             _         _         _ 
                            | |       | |       | |     
                            | |       | |       | |     
                         __ | | __ __ | | __ __ | | __  
                         \ \| |/ / \ \| |/ / \ \| |/ /  
                          \ \ / /   \ \ / /   \ \ / /   
                           \   /     \   /     \   /    
                            \_/       \_/       \_/ 
More information is available in HTML format for server BSDOS

List of man pages available for BSDOS

Copyright (c) for man pages and the logo by the respective OS vendor.

For those who want to learn more, the polarhome community provides shell access and support.

[legal] [privacy] [GNU] [policy] [cookies] [netiquette] [sponsors] [FAQ]
Tweet
Polarhome, production since 1999.
Member of Polarhome portal.
Based on Fawad Halim's script.
....................................................................
Vote for polarhome
Free Shell Accounts :: the biggest list on the net