[yast-commit] r47834 - /trunk/libyui-bindings/swig/perl/examples/selection_box1.pl
Author: kkaempf Date: Fri May 23 14:06:58 2008 New Revision: 47834 URL: http://svn.opensuse.org/viewcvs/yast?rev=47834&view=rev Log: first iteration of fixes Modified: trunk/libyui-bindings/swig/perl/examples/selection_box1.pl Modified: trunk/libyui-bindings/swig/perl/examples/selection_box1.pl URL: http://svn.opensuse.org/viewcvs/yast/trunk/libyui-bindings/swig/perl/examples/selection_box1.pl?rev=47834&r1=47833&r2=47834&view=diff ============================================================================== --- trunk/libyui-bindings/swig/perl/examples/selection_box1.pl (original) +++ trunk/libyui-bindings/swig/perl/examples/selection_box1.pl Fri May 23 14:06:58 2008 @@ -20,23 +20,22 @@ my $selBox = $factory->createSelectionBox( $vbox, "&Menu" ); -$item = yui::YItem::new( "Pizza Margherita" ); -#$selBox->addItem( $item ); -#$selBox->addItem( yui::YItem::new( "Pizza Capricciosa" ) ); -#$selBox->addItem( yui::YItem::new( "Pizza Funghi" ) ); -#$selBox->addItem( yui::YItem::new( "Pizza Prosciutto" ) ); -#$selBox->addItem( yui::YItem::new( "Pizza Quattro Stagioni" ) ); -#$selBox->addItem( yui::YItem::new( "Calzone" ) ); - -my $hbox = $factory->createHBox( vbox ); -$valueField = $factory->createOutputField( hbox, "<SelectionBox value unknown>" ); -$valueField->setStretchable( yui::YD_HORIZ, True ); # // allow stretching over entire dialog width +$selBox->addItem( "Pizza Margherita" ); +$selBox->addItem( "Pizza Capricciosa" ); +$selBox->addItem( "Pizza Funghi" ); +$selBox->addItem( "Pizza Prosciutto" ); +$selBox->addItem( "Pizza Quattro Stagioni" ); +$selBox->addItem( "Calzone" ); + +my $hbox = $factory->createHBox( $vbox ); +$valueField = $factory->createOutputField( $hbox, "<SelectionBox value unknown>" ); +$valueField->setStretchable( $yui::YD_HORIZ, 1 ); # // allow stretching over entire dialog width -$valueButton = $factory->createPushButton( hbox, "&Value" ); -$factory->createVSpacing( vbox, 0.3 ); +$valueButton = $factory->createPushButton( $hbox, "&Value" ); +$factory->createVSpacing( $vbox, 0.3 ); -$rightAlignment = $factory->createRight( vbox ); -$closeButton = $factory->createPushButton( rightAlignment, "&Close" ); +$rightAlignment = $factory->createRight( $vbox ); +$closeButton = $factory->createPushButton( $rightAlignment, "&Close" ); # # Event loop -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org
participants (1)
-
kkaempf@svn.opensuse.org