DC/UI/Dockable.pm

package CFPlus::UI::Dockable;

use strict;
use utf8;

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

sub new {
   my $class = shift;

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

   $self
}

1
Revision:	1.1
Committed:	Sat Sep 1 07:22:21 2007 UTC (16 years, 10 months ago) by root
Branch:	MAIN
CVS Tags:	rel-0_99, rel-0_9958, rel-0_9960, rel-0_9956, rel-0_9957, rel-0_9955, rel-0_9959, rel-0_995
Log Message:	simpler, more powerful and slightly less compact widget protocol
#	Content
1	package CFPlus::UI::Dockable;
2
3	use strict;
4	use utf8;
5
6	our @ISA = CFPlus::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