| … | |
… | |
| 134 | |
134 | |
| 135 | sub init { |
135 | sub init { |
| 136 | my ($self, %args) = @_; |
136 | my ($self, %args) = @_; |
| 137 | for (keys %args) { $self->{$_} = $args{$_} } |
137 | for (keys %args) { $self->{$_} = $args{$_} } |
| 138 | |
138 | |
| 139 | $self->set_title ("gcrossedit - $self->{title}"); |
139 | $self->set_title ("deliantra editor - $self->{title}"); |
| 140 | |
140 | |
| 141 | ::set_pos_and_size ($self, $::CFG->{$self->{layout_name}}, @{$self->{dialog_default_size}}); |
141 | ::set_pos_and_size ($self, $::CFG->{$self->{layout_name}}, @{$self->{dialog_default_size}}); |
| 142 | |
142 | |
| 143 | my $cfg_lines = scalar @{$self->{dialog}}; |
143 | my $cfg_lines = scalar @{$self->{dialog}}; |
| 144 | |
144 | |
