diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /sandbox/testplug.pl | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.zip tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.gz tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.bz2 tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
Diffstat (limited to 'sandbox/testplug.pl')
-rw-r--r-- | sandbox/testplug.pl | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/sandbox/testplug.pl b/sandbox/testplug.pl deleted file mode 100644 index 418c91a..0000000 --- a/sandbox/testplug.pl +++ /dev/null @@ -1,51 +0,0 @@ -#!/usr/bin/perl - -use Tk; - -$mw = MainWindow->new(); - -$zinc = $mw->Zinc(-backcolor => 'gray', - -relief => 'sunken', - -width => 800, - -height => 500)->pack(-expand => 1, - -fill => 'both'); -$top = 1; -#$ent = $zinc->Entry(); -#$entryitem = $zinc->add('window', $top, -# -window => $ent, -# -position => [100, 100]); -$dcontainer = $zinc->Frame(-container => 1); -$did = $dcontainer->id(); -$vcontainer = $zinc->Frame(-container => 1); -$vid = $vcontainer->id(); -#print "container id is $id\n"; - -$dlabel = $zinc->add('text', $top, - -text => "Digistrips", - -position => [150, 30]); -$zinc->bind($dlabel, '<1>', sub { $zinc->itemconfigure($vlabel, -color => 'black'); - $zinc->itemconfigure($dlabel, -color => 'red'); - $zinc->itemconfigure($vcontitem, -visible => 0); - $zinc->itemconfigure($dcontitem, -visible => 1); }); -$vlabel = $zinc->add('text', $top, - -text => "Virtuosi", - -position => [250, 30]); -$zinc->bind($vlabel, '<1>', sub { $zinc->itemconfigure($dlabel, -color => 'black'); - $zinc->itemconfigure($vlabel, -color => 'red'); - $zinc->itemconfigure($dcontitem, -visible => 0); - $zinc->itemconfigure($vcontitem, -visible => 1); }); -$dcontitem = $zinc->add('window', $top, - -window => $dcontainer, - -position => [50, 75], - -visible => 0); -$vcontitem = $zinc->add('window', $top, - -window => $vcontainer, - -position => [50, 75], - -visible => 0); - -$mw->update(); - -system("digistripsIII -stan --use $did -style standalone-1024x768 &"); -system("virtuosi -g 1024x768 -use $vid &"); - -MainLoop(); |