Free tk form software for linux

Tk::form is a Perl module with a geometry manager based on attachment rules.

SYNOPSIS

$widget->form?(args)?
$widget->formOption?(args)?

The form method is used to communicate with the form Geometry Manager, a geometry manager that arranges the geometry of the children in a parent window according to attachment rules. The form geometry manager is very flexible and powerful; it can be used to emulate all the existing features of the Tk packer and placer geometry managers (see pack, place). The form method can have any of several forms, depending on Option:

$slave->form?(options)?

Sets or adjusts the attachment values of the slave window according to the -option=>value argument pairs.

-b => attachment

Abbreviation for the -bottom option.

-bottom => attachment

Specifies an attachment for the bottom edge of the slave window. The attachment must specified according to "SPECIFYING ATTACHMENTS" below.

-bottomspring => weight

Specifies the weight of the spring at the bottom edge of the slave window. See "USING SPRINGS" below.

-bp => value

Abbreviation for the -padbottom option.

-bs => weight

Abbreviation for the -bottomspring option.

-fill => style

Specifies the fillings when springs are used for this widget. The value must be x, y, both or none.

-in => $master

Places the slave window into the specified $master window. If the slave was originally in another master window, all attachment values with respect to the original master window are discarded. Even if the attachment values are the same as in the original master window, they need to be specified again. The -in flag, when needed, must appear as the first flag of options. Otherwise an error is generated.

-l => attachment

Abbreviation for the -left option.

-left => attachment

Specifies an attachment for the left edge of the slave window. The attachment must specified according to "SPECIFYING ATTACHMENTS" below.

-leftspring => weight

Specifies the weight of the spring at the left edge of the slave window. See "USING SPRINGS" below.

-lp => value

Abbreviation for the -padleft option.

-ls => weight

Abbreviation for the -leftspring option.

-padbottom => value

Specifies the amount of external padding to leave on the bottom side of the slave. The value may have any of the forms acceptable to Tk_GetPixels.

-padleft => value

Specifies the amount of external padding to leave on the left side of the slave.

-padright => value

Specifies the amount of external padding to leave on the right side of the slave.

-padtop => value

Specifies the amount of external padding to leave on the top side of the slave.

-padx => value

Specifies the amount of external padding to leave on both the left and the right sides of the slave.

-pady => value

Specifies the amount of external padding to leave on both the top and the bottom sides of the slave.

-r => attachment

Abbreviation for the -right option.

-right => attachment

Specifies an attachment for the right edge of the slave window. The attachment must specified according to "SPECIFYING ATTACHMENTS" below.

-rightspring => weight

Specifies the weight of the spring at the right edge of the slave window. See "USING SPRINGS" below.

-rp => value

Abbreviation for the -padright option.

-rs => weight

Abbreviation for the -rightspring option.

-t => attachment

Abbreviation for the -top option.

-top => attachment

Specifies an attachment for the top edge of the slave window. The attachment must specified according to "SPECIFYING ATTACHMENTS" below.

-topspring => weight

Specifies the weight of the spring at the top edge of the slave window. See "USING SPRINGS" below.

-tp => value

Abbreviation for the -padtop option.

-ts => weight

Abbreviation for the -topspring option.

$master->formCheck

This method checks whether there is circular dependency in the attachments of the masters slaves (see "CIRCULAR DEPENDENCY" below). It returns the Boolean value TRUE if it discover circular dependency and FALSE otherwise.

$slave->formForget

Removes the slave from its master and unmaps its window. The slave will no longer be managed by form. All attachment values with respect to its master window are discarded. If another slave is attached to this slave, then the attachment of the other slave will be changed to grid attachment based on its geometry.

$master->formGrid?(x_size, y_size)?

When x_size and y_size are given, this method returns the number of grids of the $master window in a pair of integers of the form (x_size, y_size). When both x_size and y_size are given, this method changes the number of horizontal and vertical grids on the master window.

$slave->formInfo?(-option)?

Queries the attachment options of a slave window. -option can be any of the options accepted by the form method. If -option is given, only the value of that option is returned. Otherwise, this method returns a list whose elements are the current configuration state of the slave given in the same option-value form that might be specified to form. The first two elements in this list list are "-in=>$master" where $master is the slaves master window.

$master->formSlaves

Returns a list of all of the slaves for the master window. The order of the slaves in the list is the same as their order in the packing order. If master has no slaves then an empty string is returned.

Tk Web form Buddy project is a helper for Web forms.
The Tk Web form Buddy is a Tk script that allows one easily to make a series of strings available to the X11 PRIMARY selection, which is useful for filling in Web forms that have common/repetitive data.
How many times have you wished to have something to always fill in your name, address, email, etc.?
Its not automatic enough to fill these in for you, but you can click on each button to make it the PRIMARY selection so that you can paste these strings into a Web form, with the middle mouse button for example.
Enhancements:
- should now work under ActiveTCL by setting the Win32 clipboard

Contact Form is a perl script that you can run on your website that will allow others to send you email through a web interface. Unlike other web to email gateways, Contact Form is designed to thwart spammers.
It does not allow email to be sent to unknown addresses, nor does it reveal addresses that it knows.
Main features:
- Allow email to be sent to a list of known email addresses through a web interface.
- Prevent email from being sent to other addresses.
- Never reveal email addresses through the web interface.
- Contain no cross site scripting (XSS) vulnerabilities.
- Do not allow arbitrary code to be run on the host.
- Provide adequate information in email headers to trace any spammers.
- Allow, but do not require, an external form.
- Server side validity checking of all data before email is sent.
- Optional client side validity checking of all data before the form is submitted.
- A default configuration that requires only a list of email addresses to be ready for use.
- A customizable interface that allows arbitrary fields.
- Easy to change the way it looks to integrate into your website
Setup:
- Download the contactform archive.
- Extract the contents of the download.
- Place contact.pl in your webservers cgi-bin directory or another place that allows scripts.
- Edit contact.pl to change the email addresses to which email can be sent.
- Optional - Change any other parameters in contact.pl to taste.
- Point your web browser at contact.pl on your server.
- Send yourself email through the web.

Ptk Phone is a small program written in Perl/Tk to be used as an address book.

It handles email addresses and comments as well.

Tk::SplitFrame is a geometry manager for scaling two subwidgets.

SYNOPSIS

use Tk;

use Tk::SplitFrame;

my $MainWindow = MainWindow->new();

my $SplitFrame = $MainWindow->SplitFrame
(
-orientation => vertical,
-trimcolor => #c7c7c7,
-background => white,
-sliderposition => 60,
-borderwidth => 2,
-sliderwidth => 7,
-relief => sunken,
-height => 100,
-width => 100,
-padbefore => 0,
-padafter => 0
);

# Values shown above are defaults.

my $LeftLabel = $SplitFrame->Label (-text => Left);

my $RightLabel = $SplitFrame->Label (-text => Right);

$SplitFrame->pack (-expand => true, -fill => both);

$SplitFrame->configure (-sliderposition => 22);

Tk::MainLoop;

A SplitFrame is a geometry manager for the two subwidgets instantiated against it. It has a sliding divider between them which, when moved, resizes them so that they each remain in contact with it.

The divider can be arranged vertically or horizontally at create time. The children our arranged in the order that they are instantiated, from left to right or from top to bottom. After instantiation, the order is fixed. The children should NOT be packed or placed, the split frame is responsible for this.

The split frame will adjust itself initially to the preferred size of the children.
It is a basic frame itself and can be packed or placed wherever needed in other frames or toplevel windows.

pINET implements a Python interface for the NASDAQ INET XML service. pINET allows access to real-time stock orders, executions, and statistics.
Installation:
- Place pINET.py in the directory your source resides in (site-lib, if youd like, but theres no setup.py yet)
- Replace the token variable with your INET developer token (http://data.inetats.com/members/ws/newtoken.jsp)
- import pINET ...
Examples:
- test.st.py: single-threaded example
- test.mt.py: multi-threaded example
API:
Single-threaded (see test.st.py)
- requestOrders (symbol): returns up to 50 open orders on both sides in form:
{ buy:
[{price: ..., shares: ..., type: ...}, ...],
sell:
[{price: ..., shares: ..., type: ...}, ...]
}
- requestExecs (symbol): returns up to last 100 INET executions in form:
[ {price: ..., shares: ..., time: ..., type: ...} ... ]
- requestStats (symbol): returns open, booked, and matched share statistics in form:
{ book: {shares: ..., orders: ...},
open: {shares: ..., orders: ...},
match: {shares: ..., price: ...}
}
Multi-threaded (see test.mt.py)
- class RequesterThread
RequesterThread(symbol, type):
-symbol: NASDAQ symbol
-type: {reqOrders, reqExecs, reqStats}
RequesterThread.ID contains the threads job ID, which in turn is used as the key by the pINET.jobQueue dictionary.
Enhancements:
- The Top List API has been implemented and the source has been fully documented with examples via pydoc.
- The setup.py install script and unit.py test script have also been integrated into the release.
- Lastly among minor fixes, there is also a beta Tk interface that allows tracking of the top volume list and any NASDAQ symbol, displaying price, ask and bid, volume, and five-day graph.

Rose::HTML::Form is a HTML form base class.

SYNOPSIS

package PersonForm;

use Rose::HTML::Form;
our @ISA = qw(Rose::HTML::Form);

use Person;

sub build_form
{
my($self) = shift;

$self->add_fields
(
name => { type => text, size => 25, required => 1 },
email => { type => email, size => 50, required => 1 },
phone => { type => phone },
);
}

sub validate
{
my($self) = shift;

# Base class will validate individual fields in isolation,
# confirming that all required fields are filled in, and that
# the email address and phone number are formatted correctly.
my $ok = $self->SUPER::validate(@_);
return $ok unless($ok);

# Inter-field validation goes here
if($self->field(name)->internal_value ne John Doe &&
$self->field(phone)->internal_value =~ /^555/)
{
$self->error(Only John Doe can have a 555 phone number.);
return 0;
}

return 1;
}

sub init_with_person # give a friendlier name to a base-class method
{
my($self, $person) = @_;
$self->init_with_object($person);
}

sub person_from_form
{
my($self) = shift;

# Base class method does most of the work
my $person = $self->object_from_form(class => Person);

# Now fill in the non-obvious details...
# e.g., set alt phone to be the same as the regular phone
$person->alt_phone($self->field(phone)->internal_value);

return $person;
}

...

#
# Sample usage in a hypothetical web application
#

$form = PersonForm->new;

if(...)
{
# Get query parameters in a hash ref and pass to the form
my $params = MyWebServer->get_query_params();
$form->params($params);

# ...or initialize form params from a CGI object
# $form->params_from_cgi($cgi); # $cgi "isa" CGI

# ...or initialize params from an Apache request object
# (mod_perl 1 and 2 both supported)
# $form->params_from_apache($r);

# Initialize the fields based on params
$form->init_fields();

unless($form->validate)
{
return error_page(error => $form->error);
}

$person = $form->person_from_form; # $person is a Person object

do_something_with($person);
...
}
else
{
$person = ...; # Get or create a Person object somehow

# Initialize the form with the Person object
$form->init_with_person($person);

# Pass the initialized form object to the template
display_page(form => $form);
}
...

Rose::HTML::Form is more than just an object representation of the HTML tag. It is meant to be a base class for custom form classes that can be initialized with and return "rich" values such as objects, or collections of objects.

Building up a reusable library of form classes is extremely helpful when building large web applications with forms that may appear in many different places. Similar forms can inherit from a common subclass, and forms may be nested.

This class inherits from, and follows the conventions of, Rose::HTML::Object. Inherited methods that are not overridden will not be documented a second time here. See the Rose::HTML::Object documentation for more information.

Tk::Columns is a multicolumn list widget with sortable & sizeable columns.

SYNOPSIS

use Tk::Columns;

$Columns = $parent->B
(
-columnlabels => [qw (column1 column2)]
-listbackground => white,
-listforeground => black,
-buttonforeground => black,
-buttonbackground => blue,
);

$ColumnHeader = $Columns->B
(
-listfont => -adobe-new century schoolbook-medium-r-normal--14-*-*-*-*-*-*-*,
-buttoncolor => beige,
-text => column3,
-width => 15,
-trimcount => 2,
-listbackground => white,
-listforeground => black,
-buttonforeground => black,
-buttonbackground => blue,
-sort => true,
-sortcommand => $a cmp $b,
-image => $icon_image,
-buttoncommand => sub {...},
-selectcommand => sub {...}
);

$Columns->insert (end, [List, Row, Contents]);
$Columns->insert (end, {column1 => List, column2 => Row, column3 => Contents});
$Columns->insert (end, List, Row, Contents);
$Columns->delete (0, end);

...

Tk::MainLoop;