Mailinglist Archive: yast-commit (939 mails)

[sh-sh-sh@xxxxxxxxxxxxxxxx]

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@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx