DC/UI/Dockable.pm

package dc::UI::Dockable;

use strict;
use utf8;

our @ISA = dc::UI::Bin::;

sub new {
   my $class = shift;

   my $self = $class->SUPER::new (
      title     => "unset",
      can_close => 1,
      @_,
   );

   $self
}

1
Revision:	1.2
Committed:	Wed Dec 26 20:46:39 2007 UTC (16 years, 6 months ago) by root
Branch:	MAIN
Changes since 1.1:	+2 -2 lines
Log Message:	* empty log message *
#	Content
1	package dc::UI::Dockable;
2
3	use strict;
4	use utf8;
5
6	our @ISA = dc::UI::Bin::;
7
8	sub new {
9	my $class = shift;
10
11	my $self = $class->SUPER::new (
12	title => "unset",
13	can_close => 1,
14	@_,
15	);
16
17	$self
18	}
19
20	1