home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / boot / i386 / root / usr / share / YaST2 / modules / PackagesUI.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  1.1 KB  |  58 lines
  1. /**
  2.  * Module:         PackagesUI.ycp
  3.  *
  4.  * Authors:        Gabriele Strattner (gs@suse.de)
  5.  *
  6.  * Purpose:         Provides a number of common popups
  7.  *            for the package installation.
  8.  *
  9.  * $Id: PackagesUI.ycp 12810 2003-11-26 11:52:52Z msvec $
  10.  */
  11.  
  12. {
  13.  
  14.     module "PackagesUI";
  15.     textdomain "packager";
  16.     import "Label";
  17.  
  18.  
  19.     //
  20.     // Popup displays helptext
  21.     //
  22.     global define any DisplayHelpMsg( string headline, term helptext, symbol color, integer vdim ) ``{
  23.  
  24.     term dia_opt = `opt ( `decorated );
  25.  
  26.     if ( color == `warncolor )
  27.     {
  28.         dia_opt =  `opt ( `decorated, `warncolor );
  29.     }
  30.     else if ( color == `infocolor )
  31.     {
  32.         dia_opt =  `opt ( `decorated, `infocolor );
  33.     }
  34.  
  35.     term header = `Empty();
  36.     if ( headline != "" )
  37.         header = `Left(`Heading( headline ));
  38.  
  39.     UI::OpenDialog( dia_opt,
  40.             `HBox( `VSpacing(vdim),
  41.                `VBox (`HSpacing(50),
  42.                   header,
  43.                   `VSpacing(0.2),
  44.                   helptext,    // e.g. `Richtext()
  45.                   `PushButton( `id(`ok_help), `opt(`default), Label::OKButton() )
  46.                   )
  47.                )
  48.             );
  49.  
  50.     UI::SetFocus(`id(`ok_help) );
  51.  
  52.     any r = UI::UserInput();
  53.     UI::CloseDialog();
  54.     return r;
  55.     }
  56.  
  57. }
  58.