Cloth(3pm) User Contributed Perl Documentation Cloth(3pm)NAME
Tk::Cloth - An OO Tk Canvas
SYNOPSIS
use Tk::Cloth;
$cloth = $parent->Cloth;
$cloth->pack(-fill => 'both', -expand => 1);
$rect = $cloth->Rectangle(
-coords => [ 0,0,100,100],
-fill => 'red'
);
$tag = $cloth->tag;
$tag->Line(
-coords => [10,10,100,100],
-foreground => 'black'
);
$tag->Line(
-coords => [50,50,100,100],
-foreground => 'black'
);
$tag->move(30,30);
$tag->bind("<1>", [ &button1 ]);
DESCRIPTION
Tk::Cloth provides an object-orientated approach to a canvas and canvas items.
SEE ALSO
Tk::Canvas
AUTHOR
Graham Barr <gbarr@pobox.com>
Current maintainer is Slaven Rezic <slaven@rezic.de>.
COPYRIGHT
Copyright (c) 1997-1998 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
perl v5.10.0 2003-10-22 Cloth(3pm)
Check Out this Related Man Page
NumEntryPlain(3pm) User Contributed Perl Documentation NumEntryPlain(3pm)NAME
Tk::NumEntryPlain - A numeric entry widget
SYNOPSIS
use Tk::NumEntryPlain;
DESCRIPTION
Tk::NumEntryPlain defines a widget for entering integer numbers.
Tk::NumEntryPlain supports all the options and methods that a normal Entry widget provides, plus the following options
STANDARD OPTIONS -repeatdelay -repeatinterval
WIDGET-SPECIFIC OPTIONS-minvalue
Defines the minimum legal value that the widget can hold. If this value is "undef" then there is no minimum value (default = undef).
-maxvalue
Defines the maximum legal value that the widget can hold. If this value is "undef" then there is no maximum value (default = undef).
-bell
Specifies a boolean value. If true then a bell will ring if the user attempts to enter an illegal character into the entry widget, and
when the user reaches the upper or lower limits when using the up/down buttons for keys (default = true).
-textvariable
Reference to a scalar variable that contains the value currently in the NumEntry. Use the variable only for reading (see "CAVEATS"
below).
-value
Specifies the value to be inserted into the entry widget. Similar to the standard -text option, but will perform a range check on the
value.
-command
A callback which is called if <Return> is pressed.
-browsecmd
A callback which is called every time an increment or decrement happens in the entry widget.
WIDGET METHODS
$numentry->incdec(increment)
Increment the value of the entry widget by the specified increment. If increment is 0, then perform a range check.
CAVEATS -textvariable
-textvariable should only be used to read out the current value in the NumEntry.
Values set via -textvariable are not valided. Therefore it's possible to insert, e.g., 'abc', into the NumEntry.
SEE ALSO
Tk::NumEntry Tk::Entry
HISTORY
The code was extracted from Tk::NumEntry and slightly modified by Achim Bohnet <ach@mpe.mpg.de>. Tk::NumEntry's author is Graham Barr
<gbarr@pobox.com>.
Current maintainer is Slaven Rezic <slaven@rezic.de>.
COPYRIGHT
Copyright (c) 1997-1998 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
perl v5.10.0 2008-10-08 NumEntryPlain(3pm)
I have a huge matrix file containing some 1.5 million rows and 6000 columns. The matrix looks something like this:
1 2 3
4 5 6
7 8 9
3 4 5
I want to add all the numbers in the columns of this matrix and display the result to my stdout. This means that the numbers in the first column are:
... (2 Replies)
Hi,
Just trying to get to grips with sed and awk for some reporting for work and I need some assistance:
I have a file that lists policy names on the first line and then on the second line whether the policy is active or not.
Policy Name: Policy1
Active: yes
Policy... (8 Replies)
version info :
vi availabe with RHEL 5.4
I have a text file with 10,000 lines. I want to copy lines from 5000th line to 7000th and redirect to a file. Any idea how I can do this?
Note:
The above scenario is just an example. In my actual requirement, the file has 14 million lines and I want... (9 Replies)
Hi everyone,
I know the following questions are noobish questions but I am asking them because I am confused about the basics of history behind UNIX and LINUX.
Ok onto business, my questions are-:
Was/Is UNIX ever an open source operating system ?
If UNIX was... (21 Replies)
Hello,
I couldn't find an actual introduction thread, so I decided to just put this here.
I go by d0wngrade online. I have been programming in multiple languages for about 15+ years. I started with standard web design languages like HTML and CSS, but I then advanced from design to development... (2 Replies)
Hi guys...
The first active code line in AudioScope.sh is set -u .
This causes a complete exit if a variable is used/found but has not been allocated at the start of the program.
However, apart from writing code to do the task, is there a switch to to check which variables have been... (17 Replies)
Hi.
In thread https://www.unix.com/shell-programming-and-scripting/267833-grouping-counting.html rovf and I had a mini-discussion on grep and awk.
Here is a demo script that compares the awk and grep approaches for this single problem:
#!/usr/bin/env bash
# @(#) s2 Demonstrate group... (1 Reply)
Hello,
I have to fish out some specific columns from a file based on the header value. I have the list of columns I need in a different file. I thought I could read in the list of headers I need,
# file with header names of required columns in required order
headers_file=$2
# read contents... (11 Replies)
For those interested in installing dash shell on OSX Lion to help test POSIX compliancy of shell scripts, it is quite easy. I did it like this:
If you don't have gcc on your system:
0. Download and install the Command Line Tools for Xcode package from Sign In - Apple *
1. Download the dash... (2 Replies)
Hello and thanks in advance for any help anyone can offer me
I'm trying to learn the find command and thought I was understanding it... Apparently I was wrong. I was doing compound searches and I started getting weird results with the -size test. I was trying to do a search on a 1G file owned by... (14 Replies)
I have data of an excel files as given below,
file1
org1_1 1 1 2.5 100
org1_2 1 2 5.5 98
org1_3 1 3 7.2 88
file2
org2_1 1 1 2.5 100
org2_2 1 2 5.5 56
org2_3 1 3 7.2 70
I have multiple excel files as above shown.
I have to copy column 1, column 4 and paste into a new excel file as... (26 Replies)
Dear All,
Taking a break from Vue.js coding for the site, SEO and YT videos; and hopefully addressing some well deserved criticism from some here that I have been too focused on the visual aspects of the forums versus the substance and the community....
While the "current generation... (9 Replies)
Hi all...
Well guys and gals, I jumped in at the deep end and found things that PERL cannot do by default.
Many tricky terminal escape codes are not catered for so I had to create workarounds.
One thing I searched for was this:
Passing perl variable to shell command
AND, @Neo this was... (15 Replies)