Free tk software for linux

Tk::CmdLine contains process standard X11 command line options and set initial resources.

SYNOPSIS

Tk::CmdLine::SetArguments([@argument]);

my $value = Tk::CmdLine::cget([$option]);

Tk::CmdLine::SetResources((@resource | $resource) [, $priority]);

Tk::CmdLine::LoadResources(
[ -symbol => $symbol ]
[ -file => $fileSpec ]
[ -priority => $priority ]
[ -echo => $fileHandle ] );

Process standard X11 command line options and set initial resources.

The X11R5 man page for X11 says: "Most X programs attempt to use the same names for command line options and arguments. All applications written with the X Toolkit Intrinsics automatically accept the following options: ...". This module processes these command line options for perl/Tk applications using the SetArguments function.

This module can optionally be used to load initial resources explicitly via function SetResources, or from specified files (default: the standard X11 application-specific resource files) via function LoadResources.

tk_msg project is a small application which helps a programmer create message catalogs for localizing Tcl/Tk programs.

tk_msg can find your messages constructs when:

- the command starts with ::msgcat::mc or msgcat::mc or only mc
- the message string is enclosed from "double quotation marks"
- you dont use the character order ] in your message strings
(but you can display this if you want with [ msgcat::mc "I want to show
%s" {]} ]

tk_msg has a two windows: one with your orginal message and one window to put in the translation - tk_msg is written in pure tcl/tk (no tcl/tk-extensions are required).

A German translation of the program is available.

Tk::Bubble are pop up help windows.

SYNOPSYS

use Tk::Bubble;
...
$bubble = new Bubble( );
$bubble->attach( , );
$bubble->configure( , );

Bubble is a bubble help system (or sometimes called tooltips/balloon help) which allows a window to be displayed after a certain amount of time. This window will vanish if the mouse is moved or a button is pressed.

Tk::Gpack module contains abbreviated geometry arguments for pack, grid and place geometry managers.

This module exports four functions for each of the different geometry mananers into the Tk namespace. These functions provide a variety of styles for controlling the indevidual geometry of one, or bulk groups of widgets. Each geometry manager has a series of single letter abbreviations allowing a significant reduction in code, while remaining fairly intuitive.

SYNOPSIS

use Tk::Gpack ;
gpack, ggrid, and gplace are group packers, they recieve an even numbered list of alternating widgets and abbreviations.
gpack($one, slan $two, sran $three, slanx1fb) ; # group pack
ggrid($one, r25c10, $two, c9r15, $three, c1r1se ) ; # group grid
gplace($one, w40h40x120y120anw, $two, x40y40ase, $three, aww20h20x25y140) ; # group placer
tpack, tgrid, and tplace are target packers, and use exactly the same format except they take a preceding target widget, (typically a frame) which will be automatically be used in conjunction with the -in => argument.
tpack($FRAME1, $one, slan $two, sran $three, slanx1fb) ; # target pack
tgrid($TOPLEVEL1, $one, r25c10, $two, c9r15, $three, c1r1se ) ; # target grid
tplace($MW, $one, w40h40x120y120anw, $two, x40y40ase, $three, aww20h20x25y140) ; # target placer
xpack xgrid and xplace are expand packers, and used inline as a direct replacement to pack grid and place. The first string passed is the abbreviation string, while anything remaining will be parsed as the standard verbose options.
$one->xpack(slan, -in => $FRAME1) ; # expand pack
$two->xgrid(r4c4sw, -in => $TOPLEVEL2) ; # expand grid
$three->xplace(x20y20aw, -in => $MW) ; # expand place
spack sgrid and splace are self packers, they assume that an abbreviation is embedded in the widget as an option called -geometry. You must be using derived widgets for this to work, and have defined a configspec -geometry. The self packers perform the same as xpack in that they permit additional verbose option pairs to be passed which will be appended to the expansion of the embedded abbreviation. If you are using a default widget geometry as shown below, you can still override it by simply using xpack in place of spack. (spack wont take the abbreviation as an argument) This is particularly handly for templated code. To use spack splace and sgrid do the following:
package DerivedButton ;
...
sub Populate {
$self->ConfigSpecs(-geometry => [PASSIVE, data, Data, slan]) ; # DerivedButton()->spack(-in => $foo) ;
Obviously this last example is not complete. Once youve built a derived widget it should make sense though.

DETAILS

The abbreviations are fairly intuitive. All supported options are represented by a single character. For the pack geometry manager all passed values are also single characters. For grid and place passed values may be multiple characters. Numeric arguments for grid and place are variable length integers for example. There are a few redundant characters, but they work as expected.

NOT ALL OPTIONS TRANSLATE, in this version. (And probably for quite a few versions to come) But the most used ones do. Please review the following translation lists to see How things are supported at this time.

SUPPORTED TRANSLATIONS

# OPTIONS pack()
###################
x = -expand
s = -side
a = -anchor
f = -fill
X = -padx
Y = -pady

# VALUES pack()
####################
c = center
l = left
r = right
t = top
n = n
s = s
e = e
w = w
y = y
x = x
b = both
b = bottom

# OPTIONS grid()
####################
r = -row
c = -column
s = -sticky

# VALUES grid()
####################
n = n
s = s
e = e
w = w

# OPTIONS place()
####################
w = -width
h = -height
x = -x
y = -y
a = -anchor

# VALUES place()
####################
n = n
ne = ne
nw = nw
s = s
se = se
sw = sw
e = e

Tk::Mirror is a Perl extension for a graphic user interface to update local or remote directories in both directions.

SYNOPSIS

# in the simplest kind and manner
use Tk::Mirror;
use Tk;
my $mw->MainWindow->new();
$mw->Mirror()->grid();
MainLoop();
# in a detailed kind
use Tk;
use Tk::Mirror;
my $mw = MainWindow->new();
my $mirror = $mw->Mirror(
-localdir => "TestA",
-remotedir => "TestD",
-usr => my_ftp@username.de
-ftpserver => "ftp.server.de",
-pass => "my_password",
-debug => 1,
-delete => "enable",
-exclusions => ["private.txt", "secret.txt"],
-timeout => 60,
-connection => undef, # or a connection to a ftp-server
)->grid();
for(keys(%{$mirror->GetChilds()}))
{
$mirror->Subwidget($_)->configure(
-font => "{Times New Roman} 14 {bold}",
);
}
for(qw/
TreeLocalDir
TreeRemoteDir
/)
{
$mirror->Subwidget($_)->configure(
-background => "#FFFFFF",
-width => 40,
-height => 20,
);
}
for(qw/
bEntryUsr
EntryPass
bEntryFtpServer
bEntryLocalDir
bEntryRemoteDir
/)
{
$mirror->Subwidget($_)->configure(
-background => "#FFFFFF",
);
}
MainLoop();

This is a graphic user interface to compare and update local with remote directories in both directions.

ptkmixer is a Perl Tk Audio Mixer with an easy-to-use GUI. You will need to have Tk and Audio-Mixer perl modules to run the program.Look in the documentation section for information how to install perl modules. Tested on Peanut Linux .

Type make install for default install.

Tk::ToolBar is a toolbar widget for Perl/Tk.

SYNOPSIS

use Tk;
use Tk::ToolBar;

my $mw = new MainWindow;
my $tb = $mw->ToolBar(qw/-movable 1 -side top
-indicatorcolor blue/);

$tb->ToolButton (-text => Button,
-tip => tool tip,
-command => sub { print "hin" });
$tb->ToolLabel (-text => A Label);
$tb->Label (-text => Another Label);
$tb->ToolLabEntry(-label => A LabEntry,
-labelPack => [-side => "left",
-anchor => "w"]);

my $tb2 = $mw->ToolBar;
$tb2->ToolButton(-image => navback22,
-tip => back,
-command => &back);
$tb2->ToolButton(-image => navforward22,
-tip => forward,
-command => &forward);
$tb2->separator;
$tb2->ToolButton(-image => navhome22,
-tip => home,
-command => &home);
$tb2->ToolButton(-image => actreload22,
-tip => reload,
-command => &reload);

MainLoop;

This module implements a dockable toolbar. It is in the same spirit as the "short-cut" toolbars found in most major applications, such as most web browsers and text editors (where you find the "back" or "save" and other shortcut buttons).

Buttons of any type (regular, menu, check, radio) can be created inside this widget. You can also create Label, Entry and LabEntry widgets. Moreover, the ToolBar itself can be made dockable, such that it can be dragged to any edge of your window. Dragging is done in "real-time" so that you can see the contents of your ToolBar as you are dragging it. Furthermore, if you are close to a stickable edge, a visual indicator will show up along that edge to guide you.

ToolBars can be made "floatable" such that if they are dragged beyond their associated window, they will detach and float on the desktop. Also, multiple ToolBars are embeddable inside each other.

If you drag a ToolBar to within 15 pixels of an edge, it will stick to that edge. If the ToolBar is further than 15 pixels away from an edge and still inside the window, but you release it over another ToolBar widget, then it will be embedded inside the second ToolBar. You can "un-embed" an embedded ToolBar simply by dragging it out. You can change the 15 pixel limit using the -close option.

Various icons are built into the Tk::ToolBar widget. Those icons can be used as images for ToolButtons (see "SYNOPSIS"). A demo program is bundled with the module that should be available under the User Contributed Demonstrations when you run the widget program. Run it to see a list of the available images.

Tk::ToolBar attempts to use Tk::CursorControl if its already installed on the system. You can further control this using the -cursorcontrol option. See "PREREQUISITES".
The ToolBar is supposed to be created as a child of a Toplevel (MainWindow is a Toplevel widget) or a Frame. You are free to experiment otherwise, but expect the unexpected.