Free tk 09022001 software for linux

TK10 is a Bottlerocket GUI for Linux. TK-10 is written in Tcl/Tk.

I wrote TK10 because I wanted a GUI application to control my X10 devices, and I wanted it to look and function like the HR12A controller that comes with the X10 Firecracker kit.

If you are familiar with the HR12A then you will find TK10 very easy to use. The on/off/dim buttons, device letter dial, and device number range switch work just like in the HR12A. You can even edit the device labels!

Installation:

To install TK10 the easy way, just run the install.sh script as root.

Alternatively, to install TK10 manually, do the following:

1. Copy the file tk10 to somewhere in your PATH (e.g. /usr/bin)
2. mkdir -p /usr/share/tk10-0.1
3. Copy the remaining files to /usr/share/tk10-0.1
(Note: if you can not create the directory /usr/share/tk10-0.1, then
pick another directory and modify the line below in tk10:
set MAINDIR "/usr/share/tk10-0.1"
to use the directory of your choice.)
4. Copy the file tk10.1 to somewhere in your MANPATH (e.g. /usr/man/man1).

TK10 assumes that your Tk interpreter is /usr/bin/wish. You may have to modify the first line of the tk10 file to reflect the correct location (e.g. #!/usr/local/bin/wish).

An optional icon (tk10.xpm) is included for use with window managers that support icons.

After installation, just run the command tk10.

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.

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.

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::after can execute a command after a time delay.

SYNOPSIS

$widget->after(ms)
$id = $widget->after(ms?,callback?)
$id = $widget->repeat(ms?,callback?)
$widget->afterCancel($id)
$id = $widget->afterIdle(callback)
$widget->afterInfo?($id)?
$id->time(?delay?)

This method is used to delay execution of the program or to execute a callback in background sometime in the future.
In perl/Tk $widget->after is implemented via the class Tk::After, and callbacks are associated with $widget, and are automatically cancelled when the widget is destroyed. An almost identical interface, but without automatic cancel, and without repeat is provided via Tk::after method.

Internal Details

The internal Tk::After class has the following synopsis:

$id = Tk::After->new($widget, tid, $time, once, callback);
$id = Tk::After->new($widget, tid, $time, repeat, callback);
$id->cancel;
$id->time(?delay?);

$id is a Tk::After object, an array of 5 elements:

$widget is the parent widget reference.

tid is the internal timer id, a unique string.

$time is the string idle, representing an idle queue timer, or a integer millisecond value.

once or repeat specifies whether the timer is a one-time after event, or a repeating repeat event.

callback specifies a Perl/Tk Tk::Callback object.

Changing a repeat timer interval

Its posible to change a repeat timers delay value, or even cancel any timer, using the time method. If delay is specified and non-zero, a new timer delay is established. If delay is zero the timer event is canceled just as if $id->cancel were invoked. In all cases the current millisecond timer delay is returned.

Note: the new timer delay will take effect on the subsequent timer event - this command will not cancel the pending timer event and re-issue it with the new delay time.

The after() method has several forms as follows:

$widget->after(ms)

The value ms must be an integer giving a time in milliseconds. The command sleeps for ms milliseconds and then returns. While the command is sleeping the application does not respond to events.

$widget->after(ms,callback)

In this form the command returns immediately, but it arranges for callback be executed ms milliseconds later as an event handler. The callback will be executed exactly once, at the given time. The command will be executed in context of $widget. If an error occurs while executing the delayed command then the Tk::Error mechanism is used to report the error. The after command returns an identifier (an object in the perl/Tk case) that can be used to cancel the delayed command using afterCancel.

$widget->repeat(ms,callback)

In this form the command returns immediately, but it arranges for callback be executed ms milliseconds later as an event handler. After callback has executed it is re-scheduled, to be executed in a futher ms, and so on until it is cancelled.

$widget->afterCancel($id)

$id->cancel

Cancels the execution of a delayed command that was previously scheduled. $id indicates which command should be canceled; it must have been the return value from a previous after command. If the command given by $id has already been executed (and is not scheduled to be executed again) then afterCancel has no effect.

$widget->afterCancel(callback)

This form is not robust in perl/Tk - its use is deprecated. This command should also cancel the execution of a delayed command. The callback argument is compared with pending callbacks, if a match is found, that callback is cancelled and will never be executed; if no such callback is currently pending then the afterCancel has no effect.

$widget->afterIdle(callback)

Arranges for callback to be evaluated later as an idle callback. The script will be run exactly once, the next time the event loop is entered and there are no events to process. The command returns an identifier that can be used to cancel the delayed command using afterCancel. If an error occurs while executing the script then the Tk::Error mechanism is used to report the error.

$widget->afterInfo?($id)?

This command returns information about existing event handlers. If no $id argument is supplied, the command returns a list of the identifiers for all existing event handlers created by the after and repeat commands for $widget. If $id is supplied, it specifies an existing handler; $id must have been the return value from some previous call to after or repeat and it must not have triggered yet or been cancelled. In this case the command returns a list with three elements. The first element of the list is the callback associated with $id, the second element is either idle or the integer timer millisecond value to indicate what kind of event handler it is, and the third is a string once or repeat to differentiate an after from a repeat event.

The after(ms) and afterIdle forms of the command assume that the application is event driven: the delayed commands will not be executed unless the application enters the event loop. In applications that are not normally event-driven, the event loop can be entered with the vwait and update commands.

Tk::Date is a date/time widget for perl/Tk.

SYNOPSIS

use Tk::Date;
$date_widget = $top->Date->pack;
$date_widget->get("%x %X");

Tk::Date implements a date/time widget. There are three ways to input a date:
Using the keyboard to input the digits and the tab key or the mouse pointer to move focus between fields.

Using up and down cursor keys to increment/decrement the date (only with installed Tk::NumEntryPlain widget).

Selecting up and down arrow buttons will increment or decrement the value of the active field (only with installed Tk::FireButton widget).

The Date/Time Format

Unlike Java, Perl does not have a date/time object. However, it is possible to use the unix time (seconds since epoch, that is 1st January 1970) as a replacement. This is limited, since on most architectures, the valid range is between 14th December 1901 and 19th January 2038. For other dates, it is possible to use a hash notation:

{ y => year,
m => month,
d => day,
H => hour,
M => minute,
S => second }

The abbreviations are derivated from the format letters of strftime. Note that year is the full year (1998 instead of 98) and month is the real month number, as opposed to the output of localtime(), where the month is subtracted by one.

In this document, the first method will be referred as unixtime and the second method as datehash.

STANDARD OPTIONS

Tk::Date descends from Frame and inherits all of its options.

-orient

Specified orientation of the increment and decrements buttons. May be vertical (default) or horizontal.

Tk::Balloon is a pop up help balloons.

SYNOPSIS

use Tk::Balloon;
...
$b = $top->Balloon(-statusbar => $status_bar_widget);

# Normal Balloon:
$b->attach($widget,
-balloonmsg => "Balloon help message",
-statusmsg => "Status bar message");

# Balloon attached to entries in a menu widget:
$b->attach($menu, -state => status,
-msg => [first menu entry,
second menu entry,
...
],
);

# Balloon attached to individual items in a canvas widget:
$b->attach($canvas, -balloonposition => mouse,
-msg => {item1 => msg1,
tag2 => msg2,
...
},
);

# Balloon attached to items in a listbox widget:
$b->attach($listbox, -balloonposition => mouse,
-msg => [first listbox element,
2nd listbox element,
...
],
);

Balloon provides the framework to create and attach help balloons to various widgets so that when the mouse pauses over the widget for more than a specified amount of time, a help balloon is popped up.