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
#	User	Rev	Content
1	root	1.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