summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--ivybanner72
1 files changed, 36 insertions, 36 deletions
diff --git a/ivybanner b/ivybanner
index 05d695c..af6a72f 100644
--- a/ivybanner
+++ b/ivybanner
@@ -213,16 +213,16 @@ my @buttonattr = (-width => 8*$coef, -height => 3,
$fm1->Label(-image => $logo_bg)->place(-x => $SIZES{$opt{size}}->{logo_x},
- -y => $SIZES{$opt{size}}->{logo_y});
+ '-y' => $SIZES{$opt{size}}->{logo_y});
$fm1->Button(-text => 'demos',
-command => [\&demosframe, 'demos', $demosdir],
- @buttonattr)->place(-x => 800*$coef, -y => 100*$coef);
+ @buttonattr)->place(-x => 800*$coef, '-y' => 100*$coef);
$fm1->Button(-text => 'tests',
-command => [\&demosframe, 'tests', $testsdir],
- @buttonattr)->place(-x => 800*$coef, -y => 330*$coef);
+ @buttonattr)->place(-x => 800*$coef, '-y' => 330*$coef);
$fm1->Button(-text => 'quit',
@buttonattr,
- -command => [sub {exit(0)}])->place(-x => 800*$coef, -y => 560*$coef);
+ -command => [sub {exit(0)}])->place(-x => 800*$coef, '-y' => 560*$coef);
print "--- Environment variables\n";
print "\$IVYCONFIGSDIR=",$ENV{'IVYCONFIGSDIR'},"\n";
@@ -283,11 +283,11 @@ sub demosframe {
$fm2->Frame(-background => $darkbg, -relief => 'groove', -borderwidth => 5,
-width => $SIZES{$opt{size}}->{width}+20*$coef, -height => 160*$coef)
- ->place(-x => -10*$coef, -y => -10*$coef);
+ ->place(-x => -10*$coef, '-y' => -10*$coef);
$lb_logo = $fm2->Label(-image => $logo_small,
-borderwidth => 0)->place(-x => $SIZES{$opt{size}}->{logo_small_x},
- -y => $SIZES{$opt{size}}->{logo_small_y});
+ '-y' => $SIZES{$opt{size}}->{logo_small_y});
# Note that we use a decorative frame for each widget because frame size can be
# set in pixel unit whereas buttons family manages size in characters number
@@ -301,8 +301,8 @@ sub demosframe {
my $w = 130*$coef;
my $dx = 15*$coef;
my $dy = 10*$coef;
- my @placeattr = (-x => 2*$coef, -y => 2*$coef);
- my @lab_placeattr = (-x => $w - 8*$coef, -y => 10*$coef );
+ my @placeattr = (-x => 2*$coef, '-y' => 2*$coef);
+ my @lab_placeattr = (-x => $w - 8*$coef, '-y' => 10*$coef );
my @frameattr = (-relief => 'flat',
-highlightthickness => 3*$coef*$coef,
-highlightbackground => $hlbg,
@@ -325,11 +325,11 @@ sub demosframe {
-state => 'disable',
-font => $SIZES{$opt{size}}->{fontspec_medium},
-background => $bg);
- my $fm_localhost = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y);
- my $fm_default = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, -y => $y);
+ my $fm_localhost = $fm2->Frame(@frameattr)->place(-x => $x, '-y' => $y);
+ my $fm_default = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, '-y' => $y);
my ($dom_default, $dom_local, $dom_own);
my $fm_ownnet = $fm2->Frame(@frameattr,
- -width => 2*$w+$dx)->place(-x => $x, -y => $y+$h+$dy);
+ -width => 2*$w+$dx)->place(-x => $x, '-y' => $y+$h+$dy);
my $cb_local = $fm_localhost->Checkbutton(@cbuttonattr,
-variable => \$dom_local,
-text => 'localhost')->place(@placeattr);
@@ -364,13 +364,13 @@ sub demosframe {
my @ports = (@ivyports);
my $port = $default_port;
my @fm_port;
- $fm_port[0] = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y);
- $fm_port[1] = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, -y => $y);
- $fm_port[2] = $fm2->Frame(@frameattr)->place(-x => $x+2*$w+2*$dx, -y => $y);
- $fm_port[3] = $fm2->Frame(@frameattr)->place(-x => $x, -y => $y+$dy+$h);
+ $fm_port[0] = $fm2->Frame(@frameattr)->place(-x => $x, '-y' => $y);
+ $fm_port[1] = $fm2->Frame(@frameattr)->place(-x => $x+$w+$dx, '-y' => $y);
+ $fm_port[2] = $fm2->Frame(@frameattr)->place(-x => $x+2*$w+2*$dx, '-y' => $y);
+ $fm_port[3] = $fm2->Frame(@frameattr)->place(-x => $x, '-y' => $y+$dy+$h);
my $fm_ownport = $fm2->Frame(@frameattr,
-width => 2*$w+$dx)->place(-x => $x+$w+$dx,
- -y => $y+$h+$dy);
+ '-y' => $y+$h+$dy);
my $en_ownport =
$fm_ownport->Entry(@entryattr)->place(@lab_placeattr);
for (my $i=0; $i < @fm_port; $i++) {
@@ -416,7 +416,7 @@ sub demosframe {
$fm2->Frame(-background => $darkbg, -relief => 'groove',
-borderwidth => 5*$coef,
-width => $SIZES{$opt{size}}->{width}+20*$coef,
- -height => $SIZES{$opt{size}}->{height})->place(-x => -10*$coef, -y => $y - 30*$coef);
+ -height => $SIZES{$opt{size}}->{height})->place(-x => -10*$coef, '-y' => $y - 30*$coef);
$fm2->Button(@buttonattr,
-text => "top",
-command => sub {
@@ -424,20 +424,20 @@ sub demosframe {
&off();
$fm2->destroy;
$fm1->pack(@packinfo);
- })->place(-x => 70*$coef, -y => $y);
+ })->place(-x => 70*$coef, '-y' => $y);
# $fm2->Button(@buttonattr,
# -command => sub {},
-# -text => "kill")->place(-x => 290, -y => $y);
+# -text => "kill")->place(-x => 290, '-y' => $y);
$fm2->Label(@labelattr,
- -text => $title)->place(-x => 290*$coef, -y => $y);
+ -text => $title)->place(-x => 290*$coef, '-y' => $y);
$fm2->Button(@buttonattr,
-command => \&viewLog,
- -text => "view\nlog")->place(-x => 510*$coef, -y => $y);
+ -text => "view\nlog")->place(-x => 510*$coef, '-y' => $y);
$view_button =
$fm2->Button(@buttonattr,
-state => 'disabled',
-command => sub {&viewConfig($selected_demo)},
- -text => "view\nconfig")->place(-x => 670*$coef, -y => $y);
+ -text => "view\nconfig")->place(-x => 670*$coef, '-y' => $y);
$launch_button =
$fm2->Button(@buttonattr,
-state => 'disabled',
@@ -455,7 +455,7 @@ sub demosframe {
#print "port=$p domain=$d\n";
&execute($selected_demo, $p, $d);
},
- -text => "launch")->place(-x => 830*$coef, -y => $y);
+ -text => "launch")->place(-x => 830*$coef, '-y' => $y);
} # end demosframe
@@ -483,7 +483,7 @@ sub subdirframe {
my $max_columns = int(($bbox[2]-$bbox[0])/$fmw);
my $max_rows = int(($bbox[3]-$bbox[1])/$fmh);
my $maxnb = $max_columns*$max_rows;
- my @placeattr = (-x => 10*$coef, -y => 5*$coef);
+ my @placeattr = (-x => 10*$coef, '-y' => 5*$coef);
my @frameattr = (-relief => 'flat',
-highlightthickness => 3*$coef*$coef,
-highlightbackground => $hlbg,
@@ -578,7 +578,7 @@ sub subdirframe {
$extinfo = substr($extinfo, 0, $butw)."\n".substr($extinfo, $butw);
}
($xi, $yi) = ($x + ($c-1)*($dx+$fmw), $y + ($r-1)*($dy+$fmh));
- my $b = $fm2->Button(@buttonattr)->place(-x => $xi, -y => $yi);
+ my $b = $fm2->Button(@buttonattr)->place(-x => $xi, '-y' => $yi);
if ($type eq 'f') {
$b->configure(-text => "$category\n$extinfo",
-command => sub {
@@ -614,7 +614,7 @@ sub subdirframe {
my $disa = $fm2->Button(@buttonattr,
-state => "disabled",
-text => "and $many\nmore...",
- )->place(-x => $xi, -y => $yi);
+ )->place(-x => $xi, '-y' => $yi);
push(@subdirbtn, $disa);
}
@@ -654,7 +654,7 @@ sub viewConfig {
-activebackground => $hlbg,
-background => $bg);
- $t->place(-x => 50*$coef*$coef*$coef, -y => 120*$coef);
+ $t->place(-x => 50*$coef*$coef*$coef, '-y' => 120*$coef);
$t->tagConfigure('comment', -foreground => 'gray70');
open(C_FILE, "cpp -traditional $file|");
while (<C_FILE>) {
@@ -688,13 +688,13 @@ sub viewConfig {
$fm3->Label(-text => "$text1\n$text2",
@labelattr,
-width => ($len1 > $len2) ? $len1 : $len2,
- )->place(-x => 50*$coef*$coef*$coef, -y => 30*$coef);
+ )->place(-x => 50*$coef*$coef*$coef, '-y' => 30*$coef);
$fm3->Button(@buttonattr,
-text => "back",
-command => sub {
$fm3->destroy;
$fm2->pack(@packinfo);
- })->place(-x => 70*$coef, -y => 680*$coef);
+ })->place(-x => 70*$coef, '-y' => 680*$coef);
} # end viewConfig
@@ -738,28 +738,28 @@ sub viewLog {
-activeforeground => $fg);
my $l = $fm3->Label(@labelattr,
- )->place(-x => 50*$coef*$coef*$coef, -y => 30*$coef);
+ )->place(-x => 50*$coef*$coef*$coef, '-y' => 30*$coef);
$fm3->Button(@buttonattr,
-text => "back",
-command => sub {
$fm3->destroy;
$fm2->pack(@packinfo);
- })->place(-x => 70*$coef, -y => 680*$coef);
+ })->place(-x => 70*$coef, '-y' => 680*$coef);
my $select_button =
$fm3->Button(@buttonattr,
-text => "select...",
-command => \&selectappname,
- )->place(-x => 400*$coef, -y => 680*$coef);
+ )->place(-x => 400*$coef, '-y' => 680*$coef);
my $prev_button =
$fm3->Button(@buttonattr,
-text => "previous\nlog",
- )->place(-x => 600*$coef, -y => 680*$coef);
+ )->place(-x => 600*$coef, '-y' => 680*$coef);
my $next_button =
$fm3->Button(@buttonattr,
-text => "next\nlog",
-state => 'disabled',
- )->place(-x => 800*$coef, -y => 680*$coef);
+ )->place(-x => 800*$coef, '-y' => 680*$coef);
if (@logfiles <= 1) {
$prev_button->configure(-state => 'disabled');
$next_button->configure(-state => 'disabled');
@@ -887,7 +887,7 @@ sub readlog {
-background => $bg);
$tlog->tagConfigure('bold', -foreground => $hlbg);
- $tlog->place(-x => 50*$coef*$coef*$coef, -y => 120*$coef);
+ $tlog->place(-x => 50*$coef*$coef*$coef, '-y' => 120*$coef);
$l->configure(-text => "loading...");
$l->update;
@@ -947,7 +947,7 @@ sub readpartiallog {
-background => $bg);
$tlog2->tagConfigure('bold', -foreground => $hlbg);
- $tlog2->place(-x => 50*$coef*$coef*$coef, -y => 120*$coef);
+ $tlog2->place(-x => 50*$coef*$coef*$coef, '-y' => 120*$coef);
$tlog2->configure(-state => 'normal');
open(FILE, $currentlogfile) or warn "cannot read file '$currentlogfile'\n";
generated by cgit v1.1 at 2024-11-11 04:10:51 +0000