Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

RonW's scratchpad

by RonW (Pilgrim)
on Mar 31, 2014 at 20:07 UTC ( #1080445=scratchpad: print w/ replies, xml ) Need Help??

vptk_w/VPTK_Widget/Menu.pm package vptk_w::VPTK_Widget::Menu; use strict; use base qw(vptk_w::VPTK_Widget); sub HaveGeometry { 0 } sub DefaultParams { [-tearoff=>0] } sub TkClassName { 'Tk::Menu' } sub PrintTitle { 'Menu' } sub AssociatedIcon{ 'menu' } sub EditorProperties { return { -background=>'color',-foreground=>'color',-tearoff=>'menu(0|1)', -relief=>'relief',-borderwidth=>'int+',-postcommand=>'callback', -menuitems=>'variable' } } sub JustDraw { my ($this,$parent,@args) = @_; my $root_menu=$parent; # For cascade-based Menu use root menu widget in place of $parent: if(ref($parent) =~ /::Cascade/) { $root_menu = $parent->parentMenu->parent; } my $result = $root_menu->Menu(@args); # If the intended parent is a MainWindow (or Toplevel), we cannot # actually connect it, here, because the preview frame is just a fra +me. ## @todo Create a Toplevel to use for previewing a menubar. $parent->configure(-menu=>$result) unless (ref($parent) =~ /::Frame/ +); return $result; } 1;#)
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (11)
As of 2014-07-28 15:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (202 votes), past polls