Move PerlQt

1 files changed, 0 insertions, 348 deletions

diff --git a/PerlQt/examples/progress/progress.pl b/PerlQt/examples/progress/progress.pl
deleted file mode 100644
index 4112e64..0000000
--- a/PerlQt/examples/progress/progress.pl
+++ /dev/null
@@ -1,348 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict; 
-
-package AnimatedThingy;
-
-use TQt;
-use TQt::isa "TQt::Label";
-use TQt::attributes qw[
-    label
-    step
-    ox  oy
-    x0  x1
-    y0  y1
-    dx0 dx1
-    dy0 dy1
-];
-
-use constant nqix => 10;
-
-sub NEW
-{
-    shift->SUPER::NEW($_[0]);
-    label= $_[1]."\n... and wasting CPU\nwith this animation!\n";
-    ox = [];
-    oy = [];
-    step = 0;
-    for (my $i=0; $i<nqix; $i++)
-    { ox->[0][$i] = oy->[0][$i] = ox->[1][$i] = oy->[1][$i] = 0 }
-    x0 = y0 = x1 = y1 = 0;
-    dx0 = rand(8)+2;
-    dy0 = rand(8)+2;
-    dx1 = rand(8)+2;
-    dy1 = rand(8)+2;
-    setBackgroundColor(&black);
-}
-
-sub show
-{
-    startTimer(150) unless isVisible();
-    SUPER->show;
-}
-
-sub hide
-{
-    SUPER->hide;
-    killTimers()
-}
-
-sub sizeHint
-{
-    TQt::Size(120,100)
-}
-
-sub timerEvent
-{
-    my $p = TQt::Painter(this);
-    my $pn= $p->pen;
-    $pn->setWidth(2);
-    $pn->setColor(backgroundColor());
-    $p->setPen($pn);
-
-    step = (step + 1) % nqix;
-
-    $p->drawLine(ox->[0][step], oy->[0][step], ox->[1][step], oy->[1][step]);
-
-    (x0, dx0) = inc(x0, dx0, width());
-    (y0, dy0) = inc(y0, dy0, height());
-    (x1, dx1) = inc(x1, dx1, width());
-    (y1, dy1) = inc(y1, dy1, height());
-    ox->[0][step] = x0;
-    oy->[0][step] = y0;
-    ox->[1][step] = x1;
-    oy->[1][step] = y1;
-
-    my $c = TQt::Color;
-    $c->setHsv( (step*255)/nqix, 255, 255 ); # rainbow effect
-    $pn->setColor($c);
-    $pn->setWidth(2);
-    $p->setPen($pn);
-    $p->drawLine(ox->[0][step], oy->[0][step], ox->[1][step], oy->[1][step]);
-    $p->setPen(&white);
-    $p->drawText(rect(), &AlignCenter, label);
-}
-
-sub paintEvent
-{
-    my $ev = shift;
-    my $p = TQt::Painter(this);
-    my $pn= $p->pen;
-    $pn->setWidth(2);
-    $p->setPen($pn);
-    $p->setClipRect($ev->rect);
-        for (my $i=0; $i<nqix; $i++) {
-            my $c = TQt::Color;
-            $c->setHsv( ($i*255)/nqix, 255, 255 ); # rainbow effect
-            $pn->setColor($c);
-            $p->setPen($pn);
-            $p->drawLine(ox->[0][$i], oy->[0][$i], ox->[1][$i], oy->[1][$i]);
-        }
-        $p->setPen(&white);
-        $p->drawText(rect(), &AlignCenter, label);
-}
-
-sub inc
-{
-    my ($x, $dx, $b)= @_;
-    $x += $dx;
-    if ($x<0) { $x=0; $dx=rand(8)+2; }
-    elsif ($x>=$b) { $x=$b-1; $dx=-(rand(8)+2); }
-    return ($x, $dx)
-}
-
-1;
-
-package CPUWaster;
-
-use TQt;
-use TQt::isa "TQt::Widget";
-use TQt::attributes qw[
-    menubar
-    file
-    options
-    rects
-    pb
-    td_id
-    ld_id
-    dl_id
-    cl_id
-    md_id
-    got_stop
-    timer_driven
-    default_label
-];
-use TQt::slots
-    drawItemRects  => ['int'],
-    doMenuItem     => ['int'],
-    stopDrawing    => [     ],
-    timerDriven    => [     ],
-    loopDriven     => [     ],
-    defaultLabel   => [     ],
-    customLabel    => [     ],
-    toggleMinimumDuration
-                   => [     ];
-use AnimatedThingy;
-
-use constant first_draw_item => 1000;
-use constant last_draw_item  => 1006;
-
-sub NEW
-{
-    shift->SUPER::NEW(@_);
-
-    menubar = MenuBar( this, "menu" );
-    pb = 0;
-
-    file = TQt::PopupMenu;
-    menubar->insertItem( "&File", file );
-    for (my $i=first_draw_item; $i<=last_draw_item; $i++)
-    { file->insertItem( drawItemRects($i)." Rectangles", $i) }
-    TQt::Object::connect( menubar, TQT_SIGNAL "activated(int)", this, TQT_SLOT "doMenuItem(int)" );
-    file->insertSeparator;
-    file->insertItem( "Quit", TQt::app(),  TQT_SLOT "quit()" );
-    options = TQt::PopupMenu;
-    menubar->insertItem( "&Options", options );
-    td_id = options->insertItem( "Timer driven", this, TQT_SLOT "timerDriven()" );
-    ld_id = options->insertItem( "Loop driven", this, TQT_SLOT "loopDriven()" );
-    options->insertSeparator;
-    dl_id = options->insertItem( "Default label", this, TQT_SLOT "defaultLabel()" );
-    cl_id = options->insertItem( "Custom label", this, TQT_SLOT "customLabel()" );
-    options->insertSeparator;
-    md_id = options->insertItem( "No minimum duration", this, TQT_SLOT "toggleMinimumDuration()" );
-    options->setCheckable( 1 );
-    loopDriven();
-    customLabel();
-
-    setFixedSize( 400, 300 );
-
-    setBackgroundColor( &black );
-}
-
-
-sub drawItemRects
-{
-    my $id = shift;
-    my $n = $id - first_draw_item;
-    my $r = 100;
-    while($n--)
-    { $r *= $n%3 ? 5:4 }
-    return $r
-}
-
-
-sub doMenuItem
-{
-    my $id = shift;
-    draw(drawItemRects($id)) if ($id >= first_draw_item && $id <= last_draw_item)
-}
-
-sub stopDrawing
-{ got_stop = 1 }
-
-sub timerDriven()
-{
-    timer_driven = 1;
-    options->setItemChecked( td_id, 1 );
-    options->setItemChecked( ld_id, 0 );
-}
-
-sub loopDriven
-{
-    timer_driven = 0;
-    options->setItemChecked( ld_id, 1 );
-    options->setItemChecked( td_id, 0 );
-}
-
-sub defaultLabel
-{
-    default_label = 1;
-    options->setItemChecked( dl_id, 1 );
-    options->setItemChecked( cl_id, 0 );
-}
-
-sub customLabel
-{
-    default_label = 0;
-    options->setItemChecked( dl_id, 0 );
-    options->setItemChecked( cl_id, 1 );
-}
-
-sub toggleMinimumDuration
-{
-    options->setItemChecked( md_id,
-       !options->isItemChecked( md_id ) );
-}
-
-sub timerEvent
-{
-    pb->setProgress( pb->totalSteps - rects ) if(!(rects%100));
-    rects--;
-
-    {
-        my $p = TQt::Painter(this);
-
-        my $ww = width();
-        my $wh = height();
-
-        if ( $ww > 8 && $wh > 8 )
-        {
-            my $c = TQt::Color(rand(255), rand(255), rand(255));
-            my $x = rand($ww-8);
-            my $y = rand($wh-8);
-            my $w = rand($ww-$x);
-            my $h = rand($wh-$y);
-            $p->fillRect( $x, $y, $w, $h, Brush($c) );
-        }
-    }
-
-    if (!rects || got_stop)
-    {
-        pb->setProgress( pb->totalSteps );
-        my $p = TQt::Painter(this);
-        $p->fillRect(0, 0, width(), height(), Brush(backgroundColor()));
-        enableDrawingItems(1);
-        killTimers();
-        pb = 0;
-    }
-}
-
-sub newProgressDialog
-{
-    my($label, $steps, $modal) = @_;
-    my $d = ProgressDialog($label, "Cancel", $steps, this,
-                           "progress", $modal);
-    if ( options->isItemChecked( md_id ) )
-    {  $d->setMinimumDuration(0)  }
-    if ( !default_label )
-    {  $d->setLabel( AnimatedThingy($d,$label) )  }
-    return $d;
-}
-
-sub enableDrawingItems
-{
-    my $yes = shift;
-    for (my $i=first_draw_item; $i<=last_draw_item; $i++)
-    {
-        menubar->setItemEnabled($i, $yes);
-    }
-}
-
-sub draw
-{
-    my $n = shift;
-    if ( timer_driven )
-    {
-        if ( pb ) {
-            warn("This cannot happen!");
-            return;
-        }
-        rects = $n;
-        pb = newProgressDialog("Drawing rectangles.\n".
-                               "Using timer event.", $n, 0);
-        pb->setCaption("Please Wait");
-        TQt::Object::connect(pb, TQT_SIGNAL "cancelled()", this, TQT_SLOT "stopDrawing()");
-        enableDrawingItems(0);
-        startTimer(0);
-        got_stop = 0;
-    }
-    else
-    {
-        my $lpb = newProgressDialog("Drawing rectangles.\n".
-                                    "Using loop.", $n, 1);
-        $lpb->setCaption("Please Wait");
-
-        my $p = TQt::Painter(this);
-        for (my $i=0; $i<$n; $i++)
-        {
-            if(!($i%100))
-            {
-              $lpb->setProgress($i);
-              last if ( $lpb->wasCancelled );
-            }
-            my ($cw, $ch) = (width(), height());
-            my $c = TQt::Color(rand(255), rand(255), rand(255));
-            my $x = rand($cw-8);
-            my $y = rand($cw-8);
-            my $w = rand($cw-$x);
-            my $h = rand($cw-$y);
-            $p->fillRect($x, $y, $w, $h, Brush($c));
-        }
-        $lpb->cancel;
-        $p->fillRect(0, 0, width(), height(), Brush(backgroundColor()));
-    }
-}
-
-1;
-
-package main;
-
-use TQt;
-use CPUWaster;
-
-my $a=TQt::Application(\@ARGV);
-my $w=CPUWaster;
-
-$w->show;
-$a->setMainWidget($w);
-exit $a->exec;