… | |
… | |
27 | |
27 | |
28 | sub tool_widget { if ($_[1]) { $_[0]->{widget} = $_[1] } $_[0]->{widget} } |
28 | sub tool_widget { if ($_[1]) { $_[0]->{widget} = $_[1] } $_[0]->{widget} } |
29 | sub init { } |
29 | sub init { } |
30 | |
30 | |
31 | sub want_cursor { 1 } |
31 | sub want_cursor { 1 } |
|
|
32 | |
|
|
33 | sub only_on_click { 0 } |
32 | |
34 | |
33 | sub special_arrow { } |
35 | sub special_arrow { } |
34 | |
36 | |
35 | # edits one tile of the map |
37 | # edits one tile of the map |
36 | sub edit_one { |
38 | sub edit_one { |
… | |
… | |
122 | our @ISA = qw/GCE::EditAction::RadioModed/; |
124 | our @ISA = qw/GCE::EditAction::RadioModed/; |
123 | |
125 | |
124 | sub name { 'pick' } |
126 | sub name { 'pick' } |
125 | |
127 | |
126 | sub want_cursor { 0 } |
128 | sub want_cursor { 0 } |
|
|
129 | |
|
|
130 | sub only_on_click { 1 } |
127 | |
131 | |
128 | sub special_arrow { 'GDK_HAND2' } |
132 | sub special_arrow { 'GDK_HAND2' } |
129 | |
133 | |
130 | sub init { |
134 | sub init { |
131 | my ($self) = @_; |
135 | my ($self) = @_; |