File: Collection.pm

package info (click to toggle)
algotutor 0.8.6-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 580 kB
  • sloc: perl: 2,563; makefile: 41; php: 24; sh: 1
file content (44 lines) | stat: -rw-r--r-- 1,170 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
# Author:  Chao-Kuei Hung
# For more info, including license, please see doc/index.html

package Collection;
# Abstract Generic Class Collection

use strict;
use Carp;
use vars qw(@ISA);
@ISA = qw(Configurable);

use Configurable;

#sub new {
#    my ($class, %opts) = @_;
#    $class = ref($class) if ref($class);
#    return $class->SUPER::new(%opts);
#}
#

$::Config->{Collection} = {
    -dispheight => 3,
    -compare => sub { return $_[0] <=> $_[1]; },
    -skip => Vector2->new(0.2, 0.1),
    -linear_transform => {
	-scale => Vector2->new(1, 1),
	-offset => Vector2->new(0, 0),
    },
    -node_opts => {},
    -appearance => {
	init    => { -outline=>"Gray40",   -fill=>"Gray85", -thick=>1 },
	alert   => { -outline=>"DarkRed",  -fill=>"LightCoral" },
	focus   => { -outline=>"DarkRed",  -fill=>"LightCoral", -thick=>3},
	pending => { -outline=>"DarkBlue", -fill=>"LightBlue",
		     -thick=>3, -stipple=>"gray25" },
	done    => { -outline=>"DarkGreen",-fill=>"LightGreen",
		     -thick=>3, -stipple=>"gray25" },
	discard => { -outline=>"Yellow3",  -fill=>"Yellow2", -thick=>1},
	hidden  => { -outline=>"hidden",   -fill=>"hidden", -thick=>0 },
    },
};

1;