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.3
Committed:	Wed Dec 26 21:03:21 2007 UTC (16 years, 6 months ago) by root
Branch:	MAIN
Changes since 1.2:	+2 -2 lines
Log Message:	initial module hiding
#	User	Rev	Content
1	root	1.3	package DC::UI::Dockable;
2	root	1.1
3			use strict;
4			use utf8;
5
6	root	1.3	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