diff options
author | lecoanet | 2000-06-21 13:50:05 +0000 |
---|---|---|
committer | lecoanet | 2000-06-21 13:50:05 +0000 |
commit | 63cac955e941894fe2e705db1bb98bfbc786a8a5 (patch) | |
tree | 61c603334c679c6c15aaba2150d0632e83360750 /sandbox/testplug.pl | |
parent | a3f8b8bf667fbd6d7ea9e74e26c4e561b02ddafc (diff) | |
download | tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.zip tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.gz tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.bz2 tkzinc-63cac955e941894fe2e705db1bb98bfbc786a8a5.tar.xz |
*** empty log message ***
Diffstat (limited to 'sandbox/testplug.pl')
-rw-r--r-- | sandbox/testplug.pl | 54 |
1 files changed, 54 insertions, 0 deletions
diff --git a/sandbox/testplug.pl b/sandbox/testplug.pl new file mode 100644 index 0000000..c298881 --- /dev/null +++ b/sandbox/testplug.pl @@ -0,0 +1,54 @@ +#!/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); + +$ENV{DIGISTRIPS_PATH} = '/home/etienne/WORK/digistripsIII/src:/home/etienne/WORK/digistripsIII/data'; +$ENV{VIRTUOSI_PATH} = '/home/etienne/WORK/virtuosi/src:/home/etienne/WORK/virtuosi/data'; + +$mw->update(); + +system("/home/etienne/WORK/digistripsIII/src/digistrips -stan --use $did -style standalone-1024x768 &"); +system("/home/etienne/WORK/virtuosi/src/virtuosi -g 1024x768 -use $vid &"); + +MainLoop(); |