Author: sh-sh-sh Date: Fri Nov 28 14:58:48 2008 New Revision: 53708 URL: http://svn.opensuse.org/viewcvs/yast?rev=53708&view=rev Log: new example Added: trunk/ycp-ui-bindings/examples/ReallyAbortPopup.ycp Added: trunk/ycp-ui-bindings/examples/ReallyAbortPopup.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/ycp-ui-bindings/examples/ReallyAbortPopup.ycp?rev=53708&view=auto ============================================================================== --- trunk/ycp-ui-bindings/examples/ReallyAbortPopup.ycp (added) +++ trunk/ycp-ui-bindings/examples/ReallyAbortPopup.ycp Fri Nov 28 14:58:48 2008 @@ -0,0 +1,26 @@ +// "Really Abort" pop-up dialog +{ + + string msg = + "Really abort?\n" + + "There are unsaved changes."; + + term content = + `VBox( + `VSpacing( 0.3 ), + `HBox( + `Image( "/usr/share/YaST2/theme/current/icons/32x32/apps/msg_warning.png" ), + `Label( msg ) + ), + `VSpacing( 0.3 ), + `ButtonBox( + `PushButton(`opt(`okButton), "&Discard Changes" ), + `PushButton(`opt(`cancelButton), "&Back to Application" ) + ) + ); + + + UI::OpenDialog( `MarginBox( 1, 0.1, `VCenter( content ) ) ); + UI::UserInput(); + UI::CloseDialog(); +} -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org