RE: [perl-win32-gui-users] Treeview -> Sort()/SortChildren()

[Glenn M. <Gle...@pg...>]

Hello Steve,

Does this work for you?

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D

#!perl -w

use strict;
use Win32::GUI;

my $obMW =3D new Win32::GUI::Window(
  -name  =3D> "mw",
  -text  =3D> "TreeView",
  -pos   =3D> [ 100, 100 ],
  -size  =3D> [ 200, 200 ],
);

my $obTV =3D $obMW->AddTreeView(
  -name      =3D> "Tree",
  -pos       =3D> [ 0, 0 ],
  -size      =3D> [ 190, 120 ],
  -buttons	 =3D> 1,
  -lines	 =3D> 1,
  -rootlines =3D> 1,
);

$obTV->InsertItem(-text =3D> "D");
$obTV->InsertItem(-text =3D> "X");
$obTV->InsertItem(-text =3D> "A");
$obTV->InsertItem(-text =3D> "R");

$obMW->AddButton(
  -name     =3D> "btSort",
  -text     =3D> "Sort",=20
  -size     =3D> [80, 24],
  -pos      =3D> [60, 140],
  -onClick  =3D> sub { $obTV->Sort(0); 1 },
);

$obMW->Show;
Win32::GUI::Dialog();
	=20

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Steve Loughran
Sent: Saturday, 29 April, 2006 18:30
To: per...@li...
Subject: [perl-win32-gui-users] Treeview -> Sort()/SortChildren()

Hi all

After Jason Plum posted the example code for TreeViews (thank you!), I
have had no problems at all... until today :)

I am creating a treeview and now trying to sort the entries using Sort()
or SortChildren(), but neither of these seem to be doing anything. I
have tried using indvidual nodes within the trer. Other operations on
individual nodes in the same code loop work (like Expand() for example).

I have tried sorting only nodes with siblings, I have tried sorting the
root node for the entire treeview, I have truied both the above with
Sort() and SortChildren(), but nothing seems to be working.

Is it broken? Or is it me that is broken? :)

Steve


-------------------------------------------------------
Using Tomcat but need to do more? Need to support web services,
security?
Get stuff done quickly with pre-integrated technology to make your job
easier Download IBM WebSphere Application Server v.1.0.1 based on Apache
Geronimo
http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D120709&bid=3D263057&dat=3D=
121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/