view release on metacpan or  search on metacpan

demos/cursor.pl  view on Meta::CPAN

  $direction = 'c';
  $trans     = 'show';
  $place     = 'Screen';
  $jail      = 1;

  $cursor = $TOP->CursorControl;
  $wid{mainframe} = $TOP->Frame()->grid( -sticky => 'nsew' );
  $wid{frame} = $wid{mainframe}->Frame( -relief => 'sunken', -bd => 3 )->grid(
    -row        => 0,
    -column     => 0,
    -columnspan => 4,
    -sticky     => 'nsew'
  );
  $wid{canvas} = $wid{frame}->Canvas(
    -width              => 240,
    -height             => 240,
    -bg                 => 'papayawhip',
    -bd                 => 0,
    -highlightthickness => 0
  )->grid( -sticky => 'nsew' );

demos/cursor.pl  view on Meta::CPAN

      );
    $c++;
  }
  $wid{mainframe}->Optionmenu(
    -textvariable => \$place,
    -options      => [ 'Screen', 'Canvas', 'Rectangle Item' ]
    )->grid(
    -row        => 4,
    -column     => 0,
    -sticky     => 'nsew',
    -columnspan => 3
    );

  $wid{mainframe}->Checkbutton(
    -text     => "Hide Cursor",
    -onvalue  => 'hide',
    -offvalue => 'show',
    -variable => \$trans,
    -command  => \&cursor_toggleit
  )->grid( -row => 1, -column => 3, -sticky => 'w' );
  $wid{mainframe}->Checkbutton(