Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: downloads/libvorbis-1.2.0/examples/frameview.pl @ 44

Last change on this file since 44 was 16, checked in by landauf, 17 years ago

added libvorbis
  • Property svn:executable set to *
File size: 20.1 KB
Line 
1#!/usr/bin/perl -w
2use strict;
3use Tk;
4use Tk::Xrm;
5use Tk qw(exit); 
6
7my $version="Analyzer 20020429";
8
9my %bases;
10my $first_file=undef;
11my $last_file=undef;
12my $fileno=0;
13
14my @panel_labels;
15my @panel_ones;
16my @panel_twos;
17my @panel_onevars;
18my @panel_twovars;
19my @panel_keys;
20my $panel_count;
21
22# pop the toplevels
23
24my $toplevel=new MainWindow(-class=>'AnalyzerGraph');
25my $Xname=$toplevel->Class;
26$toplevel->optionAdd("$Xname.geometry",  "800x600",20);
27
28my $geometry=$toplevel->optionGet('geometry','');
29$geometry=~/^(\d+)x(\d+)/;
30
31$toplevel->configure(-width=>$1);
32$toplevel->configure(-height=>$2);
33
34
35
36
37
38$toplevel->optionAdd("$Xname.background",  "#4fc627",20);
39$toplevel->optionAdd("$Xname*highlightBackground",  "#80c0d3",20);
40$toplevel->optionAdd("$Xname.Panel.background",  "#4fc627",20);
41$toplevel->optionAdd("$Xname.Panel.foreground",  "#d0d0d0",20);
42$toplevel->optionAdd("$Xname.Panel.font",
43                     '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
44$toplevel->optionAdd("$Xname*Statuslabel.font",
45                     '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
46$toplevel->optionAdd("$Xname*Statuslabel.foreground", "#606060");
47$toplevel->optionAdd("$Xname*Status.font",
48                     '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
49
50$toplevel->optionAdd("$Xname*AlertDetail.font",
51                     '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20);
52
53
54$toplevel->optionAdd("$Xname*background",  "#d0d0d0",20);
55$toplevel->optionAdd("$Xname*foreground",  '#000000',20);
56
57$toplevel->optionAdd("$Xname*Button*background",  "#f0d0b0",20);
58$toplevel->optionAdd("$Xname*Button*foreground",  '#000000',20);
59$toplevel->optionAdd("$Xname*Button*borderWidth",  '2',20);
60$toplevel->optionAdd("$Xname*Button*relief",  'groove',20);
61$toplevel->optionAdd("$Xname*Button*padY",  1,20);
62
63#$toplevel->optionAdd("$Xname*Scale*background",  "#f0d0b0",20);
64$toplevel->optionAdd("$Xname*Scale*foreground",  '#000000',20);
65$toplevel->optionAdd("$Xname*Scale*borderWidth",  '1',20);
66#$toplevel->optionAdd("$Xname*Scale*relief",  'groove',20);
67$toplevel->optionAdd("$Xname*Scale*padY",  1,20);
68
69$toplevel->optionAdd("$Xname*Checkbutton*background",  "#f0d0b0",20);
70$toplevel->optionAdd("$Xname*Checkbutton*foreground",  '#000000',20);
71$toplevel->optionAdd("$Xname*Checkbutton*borderWidth",  '2',20);
72$toplevel->optionAdd("$Xname*Checkbutton*relief",  'groove',20);
73
74$toplevel->optionAdd("$Xname*activeBackground",  "#ffffff",20);
75$toplevel->optionAdd("$Xname*activeForeground",  '#0000a0',20);
76$toplevel->optionAdd("$Xname*borderWidth",         0,20);
77$toplevel->optionAdd("$Xname*relief",         'flat',20);
78$toplevel->optionAdd("$Xname*activeBorderWidth",         1,20);
79$toplevel->optionAdd("$Xname*highlightThickness",         0,20);
80$toplevel->optionAdd("$Xname*padX",         2,20);
81$toplevel->optionAdd("$Xname*padY",         2,20);
82$toplevel->optionAdd("$Xname*font",   
83                     '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*',20);
84$toplevel->optionAdd("$Xname*Entry.font",   
85                     '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*',20);
86$toplevel->optionAdd("$Xname*Exit.font",   
87                     '-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*',20);
88$toplevel->optionAdd("$Xname*Exit.relief",          'groove',20);
89$toplevel->optionAdd("$Xname*Exit.padX",          1,20);
90$toplevel->optionAdd("$Xname*Exit.padY",          1,20);
91$toplevel->optionAdd("$Xname*Exit.borderWidth",          2,20);
92$toplevel->optionAdd("$Xname*Exit*background",  "#a0a0a0",20);
93$toplevel->optionAdd("$Xname*Exit*disabledForeground",  "#ffffff",20);
94
95#$toplevel->optionAdd("$Xname*Canvas.background",  "#c0c0c0",20);
96
97$toplevel->optionAdd("$Xname*Entry.background",  "#ffffff",20);
98$toplevel->optionAdd("$Xname*Entry.disabledForeground",  "#c0c0c0",20);
99$toplevel->optionAdd("$Xname*Entry.relief",  "sunken",20);
100$toplevel->optionAdd("$Xname*Entry.borderWidth",  1,20);
101
102$toplevel->optionAdd("$Xname*Field.background",  "#ffffff",20);
103$toplevel->optionAdd("$Xname*Field.disabledForeground",  "#c0c0c0",20);
104$toplevel->optionAdd("$Xname*Field.relief",  "flat",20);
105$toplevel->optionAdd("$Xname*Field.borderWidth",  1,20);
106
107$toplevel->optionAdd("$Xname*Label.disabledForeground",  "#c0c0c0",20);
108$toplevel->optionAdd("$Xname*Label.borderWidth",  1,20);
109
110$toplevel->configure(-background=>$toplevel->optionGet("background",""));
111
112#$toplevel->resizable(FALSE,FALSE);
113
114my $panel=new MainWindow(-class=>'AnalyzerPanel');
115my $X2name=$panel->Class;
116
117$panel->optionAdd("$X2name.background",  "#353535",20);
118$panel->optionAdd("$X2name*highlightBackground",  "#80c0d3",20);
119$panel->optionAdd("$X2name.Panel.background",  "#353535",20);
120$panel->optionAdd("$X2name.Panel.foreground",  "#4fc627",20);
121$panel->optionAdd("$X2name.Panel.font",
122                     '-*-helvetica-bold-o-*-*-18-*-*-*-*-*-*-*',20);
123$panel->optionAdd("$X2name*Statuslabel.font",
124                     '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
125$panel->optionAdd("$X2name*Statuslabel.foreground", "#4fc627",20);
126$panel->optionAdd("$X2name*Status.font",
127                     '-*-helvetica-bold-r-*-*-18-*-*-*-*-*-*-*',20);
128
129$panel->optionAdd("$X2name*AlertDetail.font",
130                     '-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*',20);
131
132
133$panel->optionAdd("$X2name*background",  "#d0d0d0",20);
134$panel->optionAdd("$X2name*foreground",  '#000000',20);
135
136$panel->optionAdd("$X2name*Button*background",  "#f0d0b0",20);
137$panel->optionAdd("$X2name*Button*foreground",  '#000000',20);
138$panel->optionAdd("$X2name*Button*borderWidth",  '2',20);
139$panel->optionAdd("$X2name*Button*relief",  'groove',20);
140$panel->optionAdd("$X2name*Button*padY",  1,20);
141
142$panel->optionAdd("$X2name*Checkbutton*background",  "#f0d0b0",20);
143$panel->optionAdd("$X2name*Checkbutton*foreground",  '#000000',20);
144$panel->optionAdd("$X2name*Checkbutton*borderWidth",  '2',20);
145#$panel->optionAdd("$X2name*Checkbutton*padX",  '0',20);
146#$panel->optionAdd("$X2name*Checkbutton*padY",  '0',20);
147#$panel->optionAdd("$X2name*Checkbutton*relief",  'groove',20);
148
149$panel->optionAdd("$X2name*activeBackground",  "#ffffff",20);
150$panel->optionAdd("$X2name*activeForeground",  '#0000a0',20);
151$panel->optionAdd("$X2name*borderWidth",         0,20);
152$panel->optionAdd("$X2name*relief",         'flat',20);
153$panel->optionAdd("$X2name*activeBorderWidth",         1,20);
154$panel->optionAdd("$X2name*highlightThickness",         0,20);
155$panel->optionAdd("$X2name*padX",         2,20);
156$panel->optionAdd("$X2name*padY",         2,20);
157$panel->optionAdd("$X2name*font",   
158                     '-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*',20);
159$panel->optionAdd("$X2name*Entry.font",   
160                     '-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*',20);
161
162$panel->optionAdd("$X2name*Exit.font",   
163                     '-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*',20);
164$panel->optionAdd("$X2name*Exit.relief",          'groove',20);
165$panel->optionAdd("$X2name*Exit.padX",          1,20);
166$panel->optionAdd("$X2name*Exit.padY",          1,20);
167$panel->optionAdd("$X2name*Exit.borderWidth",          2,20);
168$panel->optionAdd("$X2name*Exit*background",  "#a0a0a0",20);
169$panel->optionAdd("$X2name*Exit*disabledForeground",  "#ffffff",20);
170
171$panel->optionAdd("$X2name*Entry.background",  "#ffffff",20);
172$panel->optionAdd("$X2name*Entry.disabledForeground",  "#c0c0c0",20);
173$panel->optionAdd("$X2name*Entry.relief",  "sunken",20);
174$panel->optionAdd("$X2name*Entry.borderWidth",  1,20);
175
176$panel->optionAdd("$X2name*Field.background",  "#ffffff",20);
177$panel->optionAdd("$X2name*Field.disabledForeground",  "#c0c0c0",20);
178$panel->optionAdd("$X2name*Field.relief",  "flat",20);
179$panel->optionAdd("$X2name*Field.borderWidth",  1,20);
180
181$panel->optionAdd("$X2name*Label.disabledForeground",  "#c0c0c0",20);
182$panel->optionAdd("$X2name*Label.borderWidth",  1,20);
183
184$panel->configure(-background=>$panel->optionGet("background",""));
185
186#$panel->resizable("FALSE","FALSE");
187
188my $panel_shell=$panel->Label(Name=>"shell",borderwidth=>1,relief=>'raised')->
189    place(-x=>10,-y=>36,-relwidth=>1.0,-relheight=>1.0,
190          -width=>-20,-height=>-46,-anchor=>'nw');
191
192my $panel_quit=$panel_shell->Button(-class=>"Exit",text=>"quit",-command=>[sub{Shutdown()}])->
193    place(-x=>-1,-y=>-1,-relx=>1.0,-rely=>1.0,-anchor=>'se');
194
195$panel->Label(Name=>"logo text",-class=>"Panel",text=>$version)->
196    place(-x=>5,-y=>5,-anchor=>'nw');
197
198
199my $graph_shell=$toplevel->Label(Name=>"shell",borderwidth=>1,relief=>'raised')->
200    place(-x=>10,-y=>36,-relwidth=>1.0,-relheight=>1.0,
201          -width=>-20,-height=>-46,-anchor=>'nw');
202
203my $graph_status=$toplevel->Label(Name=>"logo text",-class=>"Panel",text=>"Starting up")->
204    place(-x=>5,-y=>5,-anchor=>'nw');
205
206
207my $panely=5;
208my $panel_rescan=$panel_shell->Button(text=>"rescan",command=>[sub{scan_directory()}])->
209    place(-x=>-5,-relx=>1.,-y=>$panely,-anchor=>'ne');
210$panely+=$panel_rescan->reqheight()+6;
211
212
213my$temp=$graph_shell->Button(-text=>"<<",
214                     -command=>[sub{$fileno-=10;$fileno=$first_file if($fileno<$first_file);
215                                load_graph();}])->
216    place(-x=>5,-y=>-5,-rely=>1.,-relwidth=>.2,-width=>-5,-anchor=>'sw');
217$graph_shell->Button(-text=>">>",
218                     -command=>[sub{$fileno+=10;$fileno=$last_file if($fileno>$last_file);
219                                load_graph();}])->
220    place(-x=>-5,-y=>-5,-relwidth=>.2,-rely=>1.,-width=>-5,-relx=>1.,-anchor=>'se');
221$graph_shell->Button(-text=>"<",
222                     -command=>[sub{$fileno-=1;$fileno=$first_file if($fileno<$first_file);
223                                load_graph();}])->
224    place(-x=>5,-y=>-5,-relwidth=>.3,-width=>-7,-rely=>1.,-relx=>.2,-anchor=>'sw');
225$graph_shell->Button(-text=>">",
226                     -command=>[sub{$fileno+=1;$fileno=$last_file if($fileno>$last_file);
227                                load_graph();}])->
228    place(-x=>-5,-y=>-5,-relwidth=>.3,-width=>-7,-rely=>1.,-relx=>.8,-anchor=>'se');
229my$graphy=-10-$temp->reqheight();
230my$graph_slider=$temp=$graph_shell->Scale(-bigincrement=>1,
231                                    -resolution=>1,
232                                    -showvalue=>'TRUE',-variable=>\$fileno,-orient=>'horizontal')->
233    place(-x=>5,-y=>$graphy,-relwidth=>1.,-rely=>1.,-width=>-10,-anchor=>'sw');
234$graphy-=$temp->reqheight()+5;
235
236my$onecrop;
237my$twocrop;
238
239my$oneresize=$temp=$graph_shell->Checkbutton(text=>"rescale",-variable=>\$onecrop,
240                                -command=>[sub{draw_graph();}])->
241    place(-x=>5,-y=>5,-anchor=>'nw');
242
243my$one=$graph_shell->Canvas()->
244    place(-relwidth=>1.,-width=>-10,-relheight=>.5,-height=>($graphy/2)-5-$temp->reqheight(),
245                                     -x=>5,-y=>5+$temp->reqheight,-anchor=>'nw');
246
247
248my$tworesize=$temp=$graph_shell->Checkbutton(text=>"rescale",-variable=>\$twocrop,
249                                -command=>[sub{draw_graph();}])->
250    place(-rely=>1.,-y=>5,-anchor=>'nw',-in=>$one);
251my$two=$graph_shell->Canvas()->
252    place(-relwidth=>1.,-relheight=>1.,-rely=>1.,-y=>5+$temp->reqheight(),-anchor=>'nw',-in=>$one);
253
254scan_directory();
255
256my%onestate;
257my%twostate;
258my @data;
259
260$onestate{"canvas"}=$one;
261$onestate{"vars"}=\@panel_onevars;
262$twostate{"canvas"}=$two;
263$twostate{"vars"}=\@panel_twovars;
264
265$graph_slider->configure(-command=>[sub{load_graph()}]);
266load_graph();
267$toplevel->bind('MainWindow','<Configure>',[sub{$toplevel->update();
268                                                draw_graph()}]);
269
270Tk::MainLoop();
271
272sub load_graph{
273
274    scan_directory()if(!defined($panel_count));
275
276    @data=undef;
277   
278    for(my$i=0;$i<$panel_count;$i++){
279        my$filename=$panel_keys[$i]."_$fileno.m";
280        if(open F, "$filename"){
281            $data[$i]=[(<F>)];
282            close F;
283        }
284    }
285    draw_graph();
286}
287
288sub graphhelper{
289    my($graph)=@_;
290    my$count=0;
291    my@colors=("#ff0000","#00df00","#0000ff","#ffff00","#ff00ff","#00ffff","#ffffff",
292               "#9f0000","#007f00","#00009f","#8f8f00","#8f008f","#008f8f","#000000");
293   
294    my$w=$graph->{"canvas"};
295    my$rescale=0;
296
297    Status("Plotting $fileno");
298    $w->delete('foo');
299    $w->delete('legend');
300    $w->delete('lines');
301
302    # count range
303    for(my$i=0;$i<$panel_count;$i++){
304        if($graph->{"vars"}->[$i]){
305            if(defined($data[$i])){
306                if(!defined($graph->{"minx"})){
307                    $data[$i]->[0]=~m/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/;
308                    $graph->{"maxx"}=$1;
309                    $graph->{"minx"}=$1;
310                    $graph->{"maxy"}=$2;
311                    $graph->{"miny"}=$2;
312                    $rescale=1;
313                }
314               
315                for(my$j=0;$j<=$#{$data[$i]};$j++){
316                    $data[$i]->[$j]=~m/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/;
317                    $rescale=1 if($1>$graph->{"maxx"});
318                    $rescale=1 if($1<$graph->{"minx"});
319                    $rescale=1 if($2>$graph->{"maxy"});
320                    $rescale=1 if($2<$graph->{"miny"});
321                    $graph->{"maxx"}=$1 if($1>$graph->{"maxx"});
322                    $graph->{"minx"}=$1 if($1<$graph->{"minx"});
323                    $graph->{"maxy"}=$2 if($2>$graph->{"maxy"});
324                    $graph->{"miny"}=$2 if($2<$graph->{"miny"});
325                }
326            }
327            $count++;
328        }
329    }
330
331    my$width=$w->width();
332    my$height=$w->height();
333
334    $rescale=1 if(!defined($graph->{"width"}) || 
335                  $width!=$graph->{"width"} || 
336                  $height!=$graph->{"height"});
337   
338    $graph->{"width"}=$width; 
339    $graph->{"height"}=$height; 
340
341    if(defined($graph->{"maxx"})){
342        # draw axes, labels
343        # look for appropriate axis scales
344
345        if($rescale){
346
347            $w->delete('ylabel');
348            $w->delete('xlabel');
349            $w->delete('axes');
350           
351            my$yscale=1.;
352            my$xscale=1.;
353            my$iyscale=1.;
354            my$ixscale=1.;
355            while(($graph->{"maxx"}-$graph->{"minx"})*$xscale>15){$xscale*=.1;$ixscale*=10.;}
356            while(($graph->{"maxy"}-$graph->{"miny"})*$yscale>15){$yscale*=.1;$iyscale*=10.;}
357           
358            while(($graph->{"maxx"}-$graph->{"minx"})*$xscale<3){$xscale*=10.;$ixscale*=.1;}
359            while(($graph->{"maxy"}-$graph->{"miny"})*$yscale<3){$yscale*=10.;$iyscale*=.1;}
360           
361            # how tall are the x axis labels?
362            $w->createText(-1,-1,-anchor=>'se',-tags=>['foo'],-text=>"0123456789.");
363            my($x1,$y1,$x2,$y2)=$w->bbox('foo');
364            $w->delete('foo');
365            my$maxlabelheight=$y2-$y1;
366            my$useabley=$height-$maxlabelheight-3;
367            my$pixelpery=$useabley/($graph->{"maxy"}-$graph->{"miny"});
368           
369            # place y axis labels at proper spacing/height
370            my$lasty=-$maxlabelheight/2;
371            my$topyval=int($graph->{"maxy"}*$yscale+1.)*$iyscale;
372           
373            for(my$i=0;;$i++){
374                my$yval= $topyval-$i*$iyscale;
375                my$y= ($graph->{"maxy"}-$yval)*$pixelpery;
376                last if($y>$useabley);
377                if($y-$maxlabelheight>=$lasty){
378                    $w->createText(0,$y,-anchor=>'e',-tags=>['ylabel'],-text=>"$yval");
379                    $lasty=$y;
380                }
381            }
382           
383            # get the max ylabel width and place them at proper x
384            ($x1,$y1,$x2,$y2)=$w->bbox('ylabel');
385            my$maxylabelwidth=$x2-$x1;
386            $w->move('ylabel',$maxylabelwidth,0);
387           
388            my$beginx=$maxylabelwidth+3;
389            my$useablex=$width-$beginx;
390           
391            # draw basic axes
392            $w->createLine($beginx,0,$beginx,$useabley,$width,$useabley,
393                           -tags=>['axes'],-width=>2);
394            # draw y tix
395            $lasty=-$maxlabelheight/2;
396            for(my$i=0;;$i++){
397                my$yval= $topyval-$i*$iyscale;
398                my$y= ($graph->{"maxy"}-$yval)*$pixelpery;
399                last if($y>$useabley);
400                if($yval==0){
401                    $w->createLine($beginx,$y,$width,$y,
402                                   -tags=>['axes'],-width=>1);
403                }else{
404                    if($y-$maxlabelheight>=$lasty){
405                        $w->createLine($beginx,$y,$width,$y,
406                                       -tags=>['axes'],-width=>1,
407                                       -stipple=>'gray50');
408                       
409                        $lasty=$y;
410                    }
411                }
412            }
413           
414            # place x axis labels at proper spacing
415            my$topxval=int($graph->{"maxx"}*$xscale+1.)*$ixscale;
416            my$pixelperx=$useablex/($graph->{"maxx"}-$graph->{"minx"});
417           
418            for(my$i=0;;$i++){
419                my$xval= $topxval-$i*$ixscale;
420                my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx;
421               
422                last if($x<$beginx);
423                # bounding boxen are hard.  place temp labels.
424                $w->createText(-1,-1,-anchor=>'e',-tags=>['foo'],-text=>"$xval");
425            }
426           
427            ($x1,$y1,$x2,$y2)=$w->bbox('foo');
428            my$maxxlabelwidth=$x2-$x1;
429            $w->delete('foo');
430            my$lastx=$width;
431           
432            for(my$i=0;;$i++){
433                my$xval= $topxval-$i*$ixscale;
434                my$x= $width-($graph->{"maxx"}-$xval)*$pixelperx;
435               
436                last if($x-$maxxlabelwidth/2<0 || $x<$beginx);
437                if($xval==0 && $x<$width){
438                    $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1);
439                }
440           
441                if($x+$maxxlabelwidth<=$lastx){
442                    $w->createText($x,$height-1,-anchor=>'s',-tags=>['xlabel'],-text=>"$xval");
443                    $w->createLine($x,0,$x,$useabley,-tags=>['axes'],-width=>1,-stipple=>"gray50");
444                    $lastx=$x;
445                }
446            }
447            $graph->{"labelheight"}=$maxlabelheight;
448            $graph->{"xo"}=$beginx;
449            $graph->{"ppx"}=$pixelperx;
450            $graph->{"ppy"}=$pixelpery;
451        }
452
453        # plot the files
454        $count=0;
455        my$legendy=$graph->{"labelheight"}/2;
456        for(my$i=0;$i<$panel_count;$i++){
457            if($graph->{"vars"}->[$i]){
458                $count++; # count here for legend color selection stability
459                if(defined($data[$i])){
460                    # place a legend placard;
461                    my$color=$colors[($count-1)%($#colors+1)];
462                    $w->createText($width,$legendy,-anchor=>'e',-tags=>['legend'],
463                                   -fill=>$color,-text=>$panel_keys[$i]);
464                    $legendy+=$graph->{"labelheight"};
465
466                    # plot the lines
467                    my@pairs=map{if(/^\s*(-?[0-9\.]*)[ ,]+(-?[0-9\.]*)/){
468                        (($1-$graph->{"minx"})*$graph->{"ppx"}+$graph->{"xo"},
469                         (-$2+$graph->{"maxy"})*$graph->{"ppy"})}} (@{$data[$i]});
470                   
471                    $w->createLine((@pairs),-fill=>$color,-tags=>['lines']);
472                }
473            }
474        }
475    }
476}   
477
478sub draw_graph{
479
480    if($onecrop){
481        $onestate{"minx"}=undef;
482        $onestate{"miny"}=undef;
483        $onestate{"maxx"}=undef;
484        $onestate{"maxy"}=undef;
485    }
486    if($twocrop){
487        $twostate{"minx"}=undef;
488        $twostate{"miny"}=undef;
489        $twostate{"maxx"}=undef;
490        $twostate{"maxy"}=undef;
491    }
492
493    for(my$i=0;$i<$panel_count;$i++){
494        if($twostate{"vars"}->[$i]){
495           
496            #re-place the canvases
497           
498            $oneresize->place(-x=>5,-y=>5,-anchor=>'nw');
499
500            $one->place(-relwidth=>1.,-width=>-10,-relheight=>.5,
501                         -height=>($graphy/2)-5-$oneresize->reqheight(),
502                         -x=>5,-y=>5+$oneresize->reqheight,-anchor=>'nw');
503           
504            $tworesize->place(-rely=>1.,-y=>5,-anchor=>'nw',-in=>$one);
505            $two->place(-relwidth=>1.,-relheight=>1.,-rely=>1.,
506                        -y=>5+$tworesize->reqheight(),-anchor=>'nw',-in=>$one);
507
508            graphhelper(\%onestate);
509            graphhelper(\%twostate);
510            return;
511        }
512    }
513
514    $oneresize->place(-x=>5,-y=>5,-anchor=>'nw');
515   
516    $one->place(-relwidth=>1.,-width=>-10,-relheight=>1.,
517                 -height=>$graphy-5-$oneresize->reqheight(),
518                 -x=>5,-y=>5+$oneresize->reqheight,-anchor=>'nw');
519   
520    $tworesize->placeForget();
521    $two->placeForget();
522
523    graphhelper(\%onestate);
524}
525
526sub depopulate_panel{
527    my $win;
528    foreach $win (@panel_labels){
529        $win->destroy();
530    }
531    @panel_labels=();
532    foreach $win (@panel_ones){
533        $win->destroy();
534    }
535    @panel_ones=();
536    foreach $win (@panel_twos){
537        $win->destroy();
538    }
539    @panel_twos=();
540    @panel_keys=();
541}
542
543sub populate_panel{
544    my $localy=$panely;
545    my $key;
546    my $i=0;
547    foreach $key (sort (keys %bases)){
548        $panel_keys[$i]=$key;
549        if(!defined($panel_onevars[$i])){
550            $panel_onevars[$i]=0;
551            $panel_twovars[$i]=0;
552        }
553
554        my $temp=$panel_twos[$i]=$panel_shell->
555            Checkbutton(-variable=>\$panel_twovars[$i],-command=>['main::draw_graph'],text=>'2')->
556            place(-y=>$localy,-x=>-5,-anchor=>"ne",-relx=>1.);
557        my $oney=$temp->reqheight();
558        my $onex=$temp->reqwidth()+15;
559
560        $temp=$panel_ones[$i]=$panel_shell->
561            Checkbutton(-variable=>\$panel_onevars[$i],-command=>['main::draw_graph'],text=>'1')->
562            place(-y=>0,-x=>0,-anchor=>"ne",-in=>$temp,-bordermode=>'outside');
563        $oney=$temp->reqheight() if ($oney<$temp->reqheight());
564        $onex+=$temp->reqwidth();
565
566        $temp=$panel_labels[$i]=$panel_shell->Label(-text=>$key,-class=>'Field',justify=>'left')->
567            place(-y=>$localy,-x=>5,-anchor=>"nw",-relwidth=>1.,-width=>-$onex,
568                  -bordermode=>'outside');
569        $oney=$temp->reqheight() if ($oney<$temp->reqheight());
570       
571        $localy+=$oney+2;
572        $i++;
573    }
574    $panel_count=$i;   
575
576    $localy+=$panel_quit->reqheight()+50;
577    my $geometry=$panel->geometry();
578    $geometry=~/^(\d+)/;
579
580    $panel->configure(-height=>$localy);
581    $panel->configure(-width=>$1);
582}
583
584sub Shutdown{
585  Tk::exit();
586}
587
588sub Status{
589    my$text=shift @_;
590    $graph_status->configure(text=>"$text");
591    $toplevel->update();
592}
593
594sub scan_directory{
595   
596    %bases=();
597    my$count=0;
598
599    $first_file=undef;
600    $last_file=undef;
601
602    if(opendir(D,".")){
603        my$file;
604        while(defined($file=readdir(D))){
605            if($file=~m/^(\S*)_(\d+).m/){
606                $bases{"$1"}="0";
607                $first_file=$2 if(!defined($first_file) || $2<$first_file);
608                $last_file=$2 if(!defined($last_file) || $2>$last_file);
609                $count++;
610               
611                Status("Reading... $count")if($count%117==0);
612            }
613        }       
614        closedir(D);
615    }
616    Status("Done Reading: $count files");
617    depopulate_panel();
618    populate_panel();
619   
620    $fileno=$first_file if($fileno<$first_file);
621    $fileno=$last_file if($fileno>$last_file);
622
623    $graph_slider->configure(-from=>$first_file,-to=>$last_file);
624
625}
626
627
628
629
630
Note: See TracBrowser for help on using the repository browser.