Win32-GUI-XMLBuilder

 view release on metacpan or  search on metacpan

samples/hash2tree.pl  view on Meta::CPAN

		&hashwalk($T, $newnode, $$HR{$k}, $n) if ref($$HR{$k}) ne  '';
		Win32::GUI::DoEvents();
	}
}

__END__
<GUI>
	<Class name='C' icon='exec:$Win32::GUI::XMLBuilder::ICON'/>
	<Window name='W'
		dim='0, 0, 300, 250'
		title='Hash to Treeview Example'
		class='$self->{C}'
	>
		<StatusBar name='S'
			top='$self->{W}->ScaleHeight - $self->{S}->Height if defined $self->{S}'
			height='$self->{S}->Height if defined $self->{S}'
			text='exec:$Win32::GUI::XMLBuilder::AUTHOR'
		/>
		<TreeView name='T'
			height='$self->{W}->ScaleHeight - $self->{S}->Height'
			lines='1' rootlines='1' buttons='1' visible='1'

samples/treeview.pl  view on Meta::CPAN

$ENV{WIN32GUIXMLBUILDER_DEBUG} = 0;
my $gui = Win32::GUI::XMLBuilder->new(*DATA);
Win32::GUI::Dialog;

__END__
<GUI>
	<Class name='C' icon='exec:$Win32::GUI::XMLBuilder::ICON'/>
	<Window name='W'
		dim='0,0,200,200' 
		show='1'
		title='Treeview Example'
		class='$self->{C}'
	>
		<StatusBar name='S' text='exec:$Win32::GUI::XMLBuilder::AUTHOR' 
			top='exec:$self->{W}->ScaleHeight - $self->{S}->Height if defined $self->{S}'
			height='exec:$self->{S}->Height if defined $self->{S}'
		/>
		<TreeView name='TV' width='$self->{W}->ScaleWidth' height='$self->{W}->ScaleHeight-$self->{S}->Height' lines='1' rootlines='1' buttons='1' visible='1'>
			<Item name='TV_0' text='TV_0' selectedimage='1'>
				<Item name='TV_0_0' text='TV_0_0'>
					<Item name='TV_0_0_0' text='TV_0_0_0'/>

samples/tv.xml  view on Meta::CPAN

				$self->{IndentVal}->Text($self->{TV}->Indent());
				$self->{IndentWin}->Show();
				$self->{IndentVal}->SetFocus();
				$self->{IndentVal}->Select(0, length($self->{IndentVal}->Text()));
				return 1;
			}'/>
			<Item name='Font' text='Choose &amp;font...' onClick='sub {
				$self->{Window}->Disable();
				my @font = GUI::ChooseFont();
				if($font[0] eq "-name") {
					undef $TreeviewFont;
					$TreeviewFont = new GUI::Font(@font);
					$self->{TV}->SetFont($TreeviewFont);
				}
				$self->{Window}->Enable();
				$self->{Window}->SetForegroundWindow();
			}'/>
			<Item name='HasLines' text='&amp;Lines' checked='1' onClick='sub {
				my $checked = !$self->{HasLines}->Checked;
				printf "TV.Style is: %08X\n", $self->{TV}->GetWindowLong(-16);
				$self->{TV}->Change(-lines => $checked);
				printf "TV.Style after -lines => %d is: %08X\n", $checked, $self->{TV}->GetWindowLong(-16);
				$self->{HasLines}->Checked($checked);

samples/tv.xml  view on Meta::CPAN

			}'
		>
			<Item name='TV1' text='ROOT' image='0' selectedimage='1'>
				<Item name='TV2' text='SUB 2' image='0' selectedimage='1' bold='1'/>
				<Item name='TV3' text='SUB 1' image='0' selectedimage='1' selected='1'/>
			</Item>
		</TreeView>
	</Window>
	<Window name='IndentWin'
		dim='110, 110, 200, 100'
		text='Treeview Indent'
		show='0'
		onTerminate='sub {
			$self->{IndentWin}->Hide();
			$self->{Window}->Enable();
			$self->{Window}->SetForegroundWindow();
		}'
	>
		<Label
			height='20' width='100' align='center' text='Indent Value: '
		/>