#!/usr/bin/perl # Yves Duret <yduret at mandrakesoft.com> # license: GPL use lib qw(/usr/lib/libDrakX); use common; use interactive; my $in = 'interactive'->vnew(undef, 'default'); my $foo = $in->ask_from_treelist("window title - ask_from_treelist", "message\nexamples of utilisation of ask_from_treelist", '|', ['Custom', 'Other|Unlisted', 'Matrox|Millennium II=>Matrox Millennium II', 'Matrox|Millennium G200=>Matrox Millennium G200', 'Matrox|Millennium G400=>Matrox Millennium G400', 'Matrox|Millennium G450=>Matrox Millennium G450', 'Matrox|Millennium G550=>Matrox Millennium G550', 'Sun|FFB 67MHz Creator=>Sun FFB 67MHz Creator', 'Sun|FFB 67MHz Creator 3D=>Sun FFB 67MHz Creator 3D', 'Sun|FFB 75MHz Creator 3D=>Sun FFB 75MHz Creator 3D', ], 'Custom' ) or $in->exit(0); print "$foo\n"; $in->exit(0);