Help-Site Computer Manuals
Software
Hardware
Programming
Networking
  Algorithms & Data Structures   Programming Languages   Revision Control
  Protocols
  Cameras   Computers   Displays   Keyboards & Mice   Motherboards   Networking   Printers & Scanners   Storage
  Windows   Linux & Unix   Mac

Tk::IDEdragShadowToplevel
Shadow Outline for Showing Drag Motion or Drop Targets

Tk::IDEdragShadowToplevel - Shadow Outline for Showing Drag Motion or Drop Targets


NAME

Tk::IDEdragShadowToplevel - Shadow Outline for Showing Drag Motion or Drop Targets


SYNOPSIS


    use Tk::IDEdragShadowToplevel;

    $TabbedFrame = $widget->IDEdragShadowToplevel

       (

        -geometry => "30x30+10+30", # Format widthxheight+x+y

        

       );


DESCRIPTION

This is a composite widget that implements a grey outline frame that can be used to show window shapes when dragging, or drop-target areas.

This differs from the releated the Tk::IDEdragShadow manpage widget in that it acts like a top-level widget. It can be dragged all around the desktop. the Tk::IDEdragShadow manpage is a subwidget of a Mainwindow/Toplevel and can't be moved/displayed outside of it's Mainwindow/Toplevel.


OPTIONS




=over 1
geometry
Geometry of the outline frame, in the form widthxheight+x+y.



=back


Advertised Subwidgets

top/bot/left/right
4 separate the Tk::Toplevel manpage components representing the top/bot/left/right element of the outline.


ATTRIBUTES

None


Methods

MoveToplevelWindow

Moves the whole widget to a new location on the screen.

Usage:




        $widget->moveToplevelWindow($x,$y);



        where:

          $x/$y  are the x/y screen coords to move the upper right

                 corner of the widget to.



=cut

sub MoveToplevelWindow{




        my $self = shift;

        my ($x,$y) = @_;

        

        my ($top,$bot,$left,$right) = (@$self{ qw/ top bot left right /});

        my ($w,$h) = @$self{ qw/ width height/};

        my $bd = 3;

        

        $top->MoveToplevelWindow($x,$y);

        $bot->MoveToplevelWindow($x,$y+$h-$bd);

        

        $left->MoveToplevelWindow($x,$y);

        $right->MoveToplevelWindow($x+$w-$bd, $y);

        

        # Update geometry

        $self->{Configure}{-geometry} = $w."x".$h."+".$x."+".$y;

        #print "Updated geometry to '".$self->{Configure}{-geometry}."\n";

        $self->{-geometry} = $self->{Configure}{-geometry}; # Save a copy so we can get the geometry right after

                                                            # it goes away

}

############################################################# #

deiconify

Deiconify (i.e. make visible) the whole widget. This would normally be called after calling withdraw to make the widget visible again.




B<Usage:>

     

        $widget->deiconify;

withdraw

Withdraw (i.e. withdraw from the screen) the whole widget.




B<Usage:>

     

        $widget->withdraw;
Programminig
Wy
Wy
yW
Wy
Programming
Wy
Wy
Wy
Wy