Example : remotePtkdb.pl

Example : remotePtkdb.pl 1

Screenshot 2

Generated code 2

Project 2

Exported 8

Screenshot

Generated code

Project

## ctk: description remote ptkdb - Mainwindow

## ctk: title remotePtkdb

## ctk: application 'remotePkdb' 'C:/Dokumente und Einstellungen/marco/Projekte/Perl experience/debugging/ptkdb/xptkdb'

## ctk: strict 1

## ctk: code 3

## ctk: testCode 1

## ctk: subroutineName thisDialog

## ctk: autoExtractVariables 1

## ctk: autoExtract2Local 1

## ctk: modal 0

## ctk: buttons

## ctk: baseClass Tk::Frame

## ctk: isolGeom 0

## ctk: version 4.11

## ctk: onDeleteWindow sub{1}

## ctk: Toplevel 0

## ctk: argList

## ctk: treewalk D

## ctk: 2010 07 31 - 00:22:14

## ctk: pNames

use lib 'C:/Dokumente und Einstellungen/marco/Projekte/Perl experience/debugging/ptkdb/xptkdb';

## ctk: pNames

## ctk: uselib start

## ctk: uselib end

use strict;

use Tk;

use Tk::Adjuster;

use Tk::Button;

use Tk::Entry;

use Tk::Frame;

use Tk::Label;

use Tk::Menu;

use Tk::Menubutton;

use Tk::NoteBook;

use Tk::ROText;

my $mw=MainWindow->new(-title=>'remotePtkdb');

package remotePtkdb;

use vars qw($VERSION);

$VERSION = '1.01';

require Tk::Frame;

require Tk::Derived;

@remotePtkdb::ISA = qw(Tk::Derived Tk::Frame);

Construct Tk::Widget 'remotePtkdb';

## ctk: Globalvars

## ctk: Globalvars end

sub ClassInit {

my $self = shift;

##

## init class

##

$self->SUPER::ClassInit(@_);

}

sub Populate {

my ($self,$args) = @_;

##

## ctk: Localvars

## ctk: Localvars end

## move args to local variables)

##

$self->SUPER::Populate($self->arglist($args));

##

##

my $mw = $self;

## ctk: code generated by ctk_w version '4.11'

## ctk: lexically scoped variables for widgets

my (

$wr_002,

$wr_003,

$wr_004,

$wr_005,

$wr_007,

$wr_008,

$wr_009,

$wr_010,

$wr_011,

$wr_012,

$wr_013,

$wr_014,

$wr_015,

$wr_016,

$wr_017,

$wr_018,

$wr_019,

$wr_020,

$wr_021,

$wr_022,

$wr_023,

$wr_024,

$wr_025,

$wr_026,

$wr_027,

$wr_028,

$wr_029,

$wr_030,

$wr_031,

$wr_032,

$wr_033,

$wr_035,

$wr_036,

$wr_039,

$wr_040,

$wr_041,

$wr_042,

$wr_043,

$wr_044,

$wr_045,

$wr_046,

$wr_047,

$wr_048,

$wr_049,

$wr_050,

$wr_051,

$wr_052,

$wr_053,

$wr_054,

$wr_055,

$wr_056,

$wr_057,

$wr_058,

$wr_059,

$wr_061,

$wr_062,

$wr_063,

$wr_064,

$wr_065,

$wr_066

);

## ctk: instantiate and display widgets

## ctk: widgets generated using treewalk D

$wr_002 = $mw -> Frame ( -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'x', -expand=>1);

$wr_050 = $mw -> Frame ( -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'x', -expand=>1);

$wr_051 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 12 , -text , 'Continue' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_023 = $mw -> Frame ( -relief , 'flat' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_024 = $wr_023 -> Frame ( -borderwidth , 1 , -relief , 'sunken' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_026 = $wr_024 -> Frame ( -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'both', -expand=>1);

$wr_033 = $wr_026 -> Label ( -anchor , 'nw' , -justify , 'left' , -relief , 'flat' , -text , 'Find text' ) -> pack(-anchor=>'nw', -side=>'left', -pady=>2, -fill=>'x', -padx=>2);

$wr_027 = $wr_024 -> Frame ( -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'both', -expand=>1);

$wr_030 = $wr_027 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 8 , -text , 'Find' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_031 = $wr_027 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 8 , -text , 'Goto' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_039 = $wr_027 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 8 , -state , 'normal' , -text , 'Regexp' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_025 = $wr_023 -> Frame ( -borderwidth , 1 , -relief , 'sunken' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_035 = $wr_025 -> Frame ( -relief , 'solid' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'x', -expand=>1);

$wr_053 = $wr_035 -> Label ( -relief , 'flat' , -anchor , 'nw' , -width , 20 , -justify , 'left' , -text , 'Quick expression' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_036 = $wr_025 -> Frame ( -relief , 'solid' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'x', -expand=>1);

$wr_055 = $wr_036 -> Label ( -relief , 'flat' , -anchor , 'nw' , -width , 20 , -justify , 'left' , -text , 'Watched expression' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_014 = $wr_002 -> Menubutton ( -state , 'normal' , -justify , 'left' , -relief , 'flat' , -text , 'File' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_016 = $wr_002 -> Menubutton ( -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -relief , 'flat' , -text , 'Control' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_040 = $wr_002 -> Menubutton ( -relief , 'flat' , -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Data' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_057 = $wr_002 -> Menubutton ( -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Stack' , -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_059 = $wr_057 -> Menu ( ); $wr_057->configure(-menu=>$wr_059);

$wr_042 = $wr_002 -> Menubutton ( -relief , 'flat' , -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Bookmarks' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_044 = $wr_002 -> Menubutton ( -relief , 'flat' , -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Tools' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_046 = $wr_002 -> Menubutton ( -relief , 'flat' , -state , 'normal' , -justify , 'left' , -text , 'Windows' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_048 = $wr_002 -> Menubutton ( -relief , 'flat' , -state , 'normal' , -justify , 'left' , -text , 'Help' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_049 = $wr_048 -> Menu ( ); $wr_048->configure(-menu=>$wr_049);

$wr_065 = $wr_049 -> command ( -label , 'User guide' );

$wr_066 = $wr_049 -> command ( -label , 'About' );

$wr_047 = $wr_046 -> Menu ( ); $wr_046->configure(-menu=>$wr_047);

$wr_045 = $wr_044 -> Menu ( ); $wr_044->configure(-menu=>$wr_045);

$wr_043 = $wr_042 -> Menu ( ); $wr_042->configure(-menu=>$wr_043);

$wr_063 = $wr_043 -> command ( -label , 'Edit' );

$wr_041 = $wr_040 -> Menu ( ); $wr_040->configure(-menu=>$wr_041);

$wr_062 = $wr_041 -> command ( -label , 'Evaluation window' );

$wr_017 = $wr_016 -> Menu ( ); $wr_016->configure(-menu=>$wr_017);

$wr_015 = $wr_014 -> Menu ( ); $wr_014->configure(-menu=>$wr_015);

$wr_018 = $wr_015 -> command ( -label , 'Connect' );

$wr_019 = $wr_015 -> separator ( );

$wr_061 = $wr_015 -> command ( -label , 'Disconnect' );

$wr_020 = $wr_015 -> command ( -label , 'Exit' );

$wr_003 = $mw -> Frame ( -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'both', -expand=>1);

$wr_004 = $mw -> Frame ( -borderwidth , 1 , -relief , 'sunken' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'x', -expand=>1);

$wr_021 = $wr_004 -> Label ( -relief , 'sunken' , -anchor , 'nw' , -justify , 'left' , -text , 'wr_021' ) -> pack(-side=>'left', -anchor=>'nw', -pady=>2, -fill=>'x', -expand=>1, -padx=>2);

$wr_022 = $wr_004 -> Label ( -relief , 'sunken' , -anchor , 'ne' , -justify , 'left' , -text , 'wr_022' ) -> pack(-side=>'right', -anchor=>'ne', -pady=>2, -fill=>'x', -expand=>1, -padx=>2);

$wr_005 = $wr_003 -> ROText ( -background , '#ffffff' , -width , 60 , -state , 'normal' , -relief , 'sunken' , -wrap , 'none' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_009 = $wr_005 -> packAdjust ( -side , 'left' );

$wr_007 = $wr_003 -> NoteBook ( -focuscolor , '#ff0000' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_008 = $wr_007 -> add ( 'wr_008', -anchor , 'nw' , -label , 'Expressions' , -state , 'normal' , -justify , 'left' );

$wr_010 = $wr_007 -> add ( 'wr_010', -anchor , 'nw' , -label , 'Breakpoints' , -state , 'normal' , -justify , 'left' );

$wr_011 = $wr_007 -> add ( 'wr_011', -anchor , 'nw' , -label , 'Packages' , -state , 'normal' , -justify , 'left' );

$wr_012 = $wr_007 -> add ( 'wr_012', -anchor , 'nw' , -label , 'Log' , -state , 'normal' , -justify , 'left' );

$wr_013 = $wr_007 -> add ( 'wr_013', -anchor , 'nw' , -label , 'Options' , -state , 'normal' , -justify , 'left' );

$wr_032 = $wr_026 -> Entry ( -background , '#ffffff' , -state , 'normal' , -justify , 'left' , -relief , 'sunken' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -expand=>1);

$wr_028 = $wr_035 -> Entry ( -relief , 'sunken' , -background , '#ffffff' , -state , 'normal' , -justify , 'left' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_029 = $wr_036 -> Entry ( -relief , 'sunken' , -state , 'normal' , -justify , 'left' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_052 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 12 , -text , 'Step in' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_054 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 12 , -state , 'normal' , -text , 'Step over' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_056 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 12 , -state , 'normal' , -text , 'Run' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_058 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 12 , -state , 'normal' , -text , 'Exit' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -padx=>2);

$wr_064 = $wr_012 -> Scrolled ( 'ROText' , -state , 'normal' , -scrollbars , 's' , -wrap , 'none' ) -> pack(-anchor=>'nw', -side=>'top', -pady=>2, -fill=>'both', -expand=>1, -padx=>2);

## ctk: end of gened Tk-code

## ctk: public subwidgets

$self->Advertise('sourcecode'=>$wr_005);

$self->Advertise('quickexpression'=>$wr_028);

$self->Advertise('watchedexpression'=>$wr_029);

$self->Advertise('findtext'=>$wr_032);

$self->Advertise('log'=>$wr_064);

## ctk: public subwidgets end

## ctkTargetComposite->ConfigSpecs();

## $self->Delegates(); (optional)

return $self;

}

## ctk: methods

sub arglist {

my $self = shift;

return $_[0]

}

## ctk: methods end

## ctk: testCode

# -----------------------------------------------

##

package main;

&main::init();

my (%args) =();

my $toplevel = $mw->Toplevel();

my $instance = $toplevel->remotePtkdb(%args)->pack();

$toplevel->protocol('WM_DELETE_WINDOW',sub{1});

MainLoop;

##

## ctk: testCode end

## ctk: callbacks

sub init { 1 }

## ctk: other code

## ctk: eof 2010 07 31 - 00:22:14

1; ## make perl compiler happy...

Exported

## ctk: description remote ptkdb - Mainwindow

## ctk: title remotePtkdb

## ctk: application 'remotePkdb' 'C:/Dokumente und Einstellungen/marco/Projekte/Perl experience/debugging/ptkdb/xptkdb'

## ctk: strict 1

## ctk: code 3

## ctk: testCode 0

## ctk: subroutineName thisDialog

## ctk: autoExtractVariables 1

## ctk: autoExtract2Local 1

## ctk: modal 0

## ctk: buttons

## ctk: baseClass Tk::Frame

## ctk: isolGeom 0

## ctk: version 4.11

## ctk: onDeleteWindow sub{1}

## ctk: Toplevel 0

## ctk: argList

## ctk: treewalk D

## ctk: 2010 07 31 - 00:29:12

use strict;

use Tk;

use Tk::Adjuster;

use Tk::Button;

use Tk::Entry;

use Tk::Frame;

use Tk::Label;

use Tk::Menu;

use Tk::Menubutton;

use Tk::NoteBook;

use Tk::ROText;

package remotePtkdb;

use vars qw($VERSION);

$VERSION = '1.01';

require Tk::Frame;

require Tk::Derived;

@remotePtkdb::ISA = qw(Tk::Derived Tk::Frame);

Construct Tk::Widget 'remotePtkdb';

## ctk: Globalvars

## ctk: Globalvars end

sub ClassInit {

my $self = shift;

##

## init class

##

$self->SUPER::ClassInit(@_);

}

sub Populate {

my ($self,$args) = @_;

##

## ctk: Localvars

## ctk: Localvars end

## move args to local variables)

##

$self->SUPER::Populate($self->arglist($args));

##

##

my $mw = $self;

## ctk: code generated by ctk_w version '4.11'

## ctk: lexically scoped variables for widgets

my (

$wr_002,

$wr_003,

$wr_004,

$wr_005,

$wr_007,

$wr_008,

$wr_009,

$wr_010,

$wr_011,

$wr_012,

$wr_013,

$wr_014,

$wr_015,

$wr_016,

$wr_017,

$wr_018,

$wr_019,

$wr_020,

$wr_021,

$wr_022,

$wr_023,

$wr_024,

$wr_025,

$wr_026,

$wr_027,

$wr_028,

$wr_029,

$wr_030,

$wr_031,

$wr_032,

$wr_033,

$wr_035,

$wr_036,

$wr_039,

$wr_040,

$wr_041,

$wr_042,

$wr_043,

$wr_044,

$wr_045,

$wr_046,

$wr_047,

$wr_048,

$wr_049,

$wr_050,

$wr_051,

$wr_052,

$wr_053,

$wr_054,

$wr_055,

$wr_056,

$wr_057,

$wr_058,

$wr_059,

$wr_061,

$wr_062,

$wr_063,

$wr_064,

$wr_065,

$wr_066

);

## ctk: instantiate and display widgets

## ctk: widgets generated using treewalk D

$wr_002 = $mw -> Frame ( -relief , 'flat' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_050 = $mw -> Frame ( -relief , 'flat' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_051 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 12 , -text , 'Continue' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_023 = $mw -> Frame ( -relief , 'flat' ) -> pack(-anchor=>'nw', -side=>'top', -fill=>'x', -expand=>1);

$wr_024 = $wr_023 -> Frame ( -borderwidth , 1 , -relief , 'sunken' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'both', -expand=>1);

$wr_026 = $wr_024 -> Frame ( -relief , 'flat' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_033 = $wr_026 -> Label ( -anchor , 'nw' , -justify , 'left' , -relief , 'flat' , -text , 'Find text' ) -> pack(-side=>'left', -anchor=>'nw', -pady=>2, -fill=>'x', -padx=>2);

$wr_027 = $wr_024 -> Frame ( -relief , 'flat' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_030 = $wr_027 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 8 , -text , 'Find' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_031 = $wr_027 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 8 , -text , 'Goto' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_039 = $wr_027 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 8 , -state , 'normal' , -text , 'Regexp' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_025 = $wr_023 -> Frame ( -borderwidth , 1 , -relief , 'sunken' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'both', -expand=>1);

$wr_035 = $wr_025 -> Frame ( -relief , 'solid' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_053 = $wr_035 -> Label ( -relief , 'flat' , -anchor , 'nw' , -width , 20 , -justify , 'left' , -text , 'Quick expression' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_036 = $wr_025 -> Frame ( -relief , 'solid' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_055 = $wr_036 -> Label ( -relief , 'flat' , -anchor , 'nw' , -width , 20 , -justify , 'left' , -text , 'Watched expression' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_014 = $wr_002 -> Menubutton ( -state , 'normal' , -justify , 'left' , -relief , 'flat' , -text , 'File' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x');

$wr_016 = $wr_002 -> Menubutton ( -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -relief , 'flat' , -text , 'Control' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_040 = $wr_002 -> Menubutton ( -relief , 'flat' , -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Data' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_057 = $wr_002 -> Menubutton ( -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Stack' , -relief , 'flat' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_059 = $wr_057 -> Menu ( ); $wr_057->configure(-menu=>$wr_059);

$wr_042 = $wr_002 -> Menubutton ( -relief , 'flat' , -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Bookmarks' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_044 = $wr_002 -> Menubutton ( -relief , 'flat' , -anchor , 'nw' , -state , 'normal' , -justify , 'left' , -text , 'Tools' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_046 = $wr_002 -> Menubutton ( -relief , 'flat' , -state , 'normal' , -justify , 'left' , -text , 'Windows' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_048 = $wr_002 -> Menubutton ( -relief , 'flat' , -state , 'normal' , -justify , 'left' , -text , 'Help' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x');

$wr_049 = $wr_048 -> Menu ( ); $wr_048->configure(-menu=>$wr_049);

$wr_065 = $wr_049 -> command ( -label , 'User guide' );

$wr_066 = $wr_049 -> command ( -label , 'About' );

$wr_047 = $wr_046 -> Menu ( ); $wr_046->configure(-menu=>$wr_047);

$wr_045 = $wr_044 -> Menu ( ); $wr_044->configure(-menu=>$wr_045);

$wr_043 = $wr_042 -> Menu ( ); $wr_042->configure(-menu=>$wr_043);

$wr_063 = $wr_043 -> command ( -label , 'Edit' );

$wr_041 = $wr_040 -> Menu ( ); $wr_040->configure(-menu=>$wr_041);

$wr_062 = $wr_041 -> command ( -label , 'Evaluation window' );

$wr_017 = $wr_016 -> Menu ( ); $wr_016->configure(-menu=>$wr_017);

$wr_015 = $wr_014 -> Menu ( ); $wr_014->configure(-menu=>$wr_015);

$wr_018 = $wr_015 -> command ( -label , 'Connect' );

$wr_019 = $wr_015 -> separator ( );

$wr_061 = $wr_015 -> command ( -label , 'Disconnect' );

$wr_020 = $wr_015 -> command ( -label , 'Exit' );

$wr_003 = $mw -> Frame ( -relief , 'flat' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'both', -expand=>1);

$wr_004 = $mw -> Frame ( -borderwidth , 1 , -relief , 'sunken' ) -> pack(-side=>'top', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_021 = $wr_004 -> Label ( -relief , 'sunken' , -anchor , 'nw' , -justify , 'left' , -text , 'wr_021' ) -> pack(-anchor=>'nw', -side=>'left', -pady=>2, -fill=>'x', -expand=>1, -padx=>2);

$wr_022 = $wr_004 -> Label ( -relief , 'sunken' , -anchor , 'ne' , -justify , 'left' , -text , 'wr_022' ) -> pack(-anchor=>'ne', -side=>'right', -pady=>2, -fill=>'x', -expand=>1, -padx=>2);

$wr_005 = $wr_003 -> ROText ( -background , '#ffffff' , -width , 60 , -state , 'normal' , -relief , 'sunken' , -wrap , 'none' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'both', -expand=>1);

$wr_009 = $wr_005 -> packAdjust ( -side , 'left' );

$wr_007 = $wr_003 -> NoteBook ( -focuscolor , '#ff0000' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'both', -expand=>1);

$wr_008 = $wr_007 -> add ( 'wr_008', -anchor , 'nw' , -label , 'Expressions' , -state , 'normal' , -justify , 'left' );

$wr_010 = $wr_007 -> add ( 'wr_010', -anchor , 'nw' , -label , 'Breakpoints' , -state , 'normal' , -justify , 'left' );

$wr_011 = $wr_007 -> add ( 'wr_011', -anchor , 'nw' , -label , 'Packages' , -state , 'normal' , -justify , 'left' );

$wr_012 = $wr_007 -> add ( 'wr_012', -anchor , 'nw' , -label , 'Log' , -state , 'normal' , -justify , 'left' );

$wr_013 = $wr_007 -> add ( 'wr_013', -anchor , 'nw' , -label , 'Options' , -state , 'normal' , -justify , 'left' );

$wr_032 = $wr_026 -> Entry ( -background , '#ffffff' , -state , 'normal' , -justify , 'left' , -relief , 'sunken' ) -> pack(-side=>'left', -anchor=>'nw', -fill=>'x', -expand=>1);

$wr_028 = $wr_035 -> Entry ( -relief , 'sunken' , -background , '#ffffff' , -state , 'normal' , -justify , 'left' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -expand=>1);

$wr_029 = $wr_036 -> Entry ( -relief , 'sunken' , -state , 'normal' , -justify , 'left' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -expand=>1);

$wr_052 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -state , 'normal' , -width , 12 , -text , 'Step in' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_054 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 12 , -state , 'normal' , -text , 'Step over' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_056 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 12 , -state , 'normal' , -text , 'Run' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_058 = $wr_050 -> Button ( -relief , 'raised' , -anchor , 'center' , -width , 12 , -state , 'normal' , -text , 'Exit' ) -> pack(-anchor=>'nw', -side=>'left', -fill=>'x', -padx=>2);

$wr_064 = $wr_012 -> Scrolled ( 'ROText' , -state , 'normal' , -scrollbars , 's' , -wrap , 'none' ) -> pack(-side=>'top', -anchor=>'nw', -pady=>2, -fill=>'both', -expand=>1, -padx=>2);

## ctk: end of gened Tk-code

## ctk: public subwidgets

$self->Advertise('sourcecode'=>$wr_005);

$self->Advertise('quickexpression'=>$wr_028);

$self->Advertise('watchedexpression'=>$wr_029);

$self->Advertise('findtext'=>$wr_032);

$self->Advertise('log'=>$wr_064);

## ctk: public subwidgets end

## ctkTargetComposite->ConfigSpecs();

## $self->Delegates(); (optional)

return $self;

}

## ctk: methods

sub arglist {

my $self = shift;

return $_[0]

}

## ctk: methods end

## ctk: other code

## ctk: eof 2010 07 31 - 00:29:12

1; ## make perl compiler happy...