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 *
#	User	Rev	Content
1	root	1.2	package dc::UI::Dockable;
2	root	1.1
3			use strict;
4			use utf8;
5
6	root	1.2	our @ISA = dc::UI::Bin::;
7	root	1.1
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