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 / Wizard_hw.ycp < prev    next >
Encoding:
Text File  |  2006-11-29  |  5.4 KB  |  190 lines
  1. /**
  2.  * File:    modules/Wizard_hw.ycp
  3.  * Package:    yast2
  4.  * Summary:    Wizard dialogs for hardware configuration
  5.  * Authors:    Jan Holesovsky <kendy@suse.cz>
  6.  *
  7.  * @deprecated  This module is deprecated and will be removed soon. Use WizardHW instead.
  8.  *
  9.  * $Id: Wizard_hw.ycp 24837 2005-08-12 07:31:46Z visnov $
  10.  */
  11.  
  12. {
  13.  
  14. module "Wizard_hw";
  15. textdomain "base";
  16.  
  17. /**
  18.  * Create the content of the screen with the detected devices.
  19.  *
  20.  * It is used in the SetWizardContent() or SetWizardContentButtons() functions.
  21.  *
  22.  * @param frame_label The frame around the detected devices
  23.  * @param detected A list of the detected devices for the SelectionBox. Must contain "Other (not detected)" as the last item.
  24.  * @param has_restart A button for restarting the detection.
  25.  * @param already_conf A content of the RichText. Describes the already configured devices.
  26.  * @return Content for the SetWizardContent[Buttons]()
  27.  */
  28. global define term DetectedContent(string frame_label, list detected,
  29.     boolean has_restart, string already_conf) ``{
  30.  
  31.     return `HBox(
  32.     `HSpacing(1.5),
  33.     `VBox(
  34.         `VSpacing(0.4),
  35.         `Frame(frame_label, `HBox(
  36.         `HSpacing(0.5),
  37.         `VBox(
  38.             `SelectionBox(`id(`detected_selbox), `opt(`notify),
  39.             _("A&vailable are:"), detected),
  40.             `HBox(
  41.             (has_restart? `PushButton(`id(`restart_button),
  42.                   _("Re&start detection")): `HSpacing(0.5)),
  43.             `HStretch(),
  44.             `PushButton(`id(`configure_button), `opt (`key_F3), _("&Configure..."))
  45.             )
  46.         ),
  47.         `HSpacing(0.5)
  48.         )),
  49.         `VSpacing(0.3),
  50.         `RichText(`id(`configured_richtext), already_conf),
  51.         `Right(`PushButton(`id(`edit_button), `opt (`key_F4), _("C&hange..."))),
  52.         `VSpacing(0.4)
  53.     ),
  54.     `HSpacing(1.5)
  55.     );
  56.  
  57. }
  58.  
  59.     /**
  60.      * Create the contents of screen with configured items.
  61.      *
  62.      * It contains table and buttons Add, Edit, Delete. User may specify table header
  63.      * and content, content that will be placed above table, between table
  64.      * and buttons, below buttons and rights from buttons (usually another
  65.      * button).
  66.      *
  67.      * @param table_header Table header as defined in UI.
  68.      * @param table_contents Table items.
  69.      * @param above_table Content to place above table. There is no need to
  70.      *    place caption here, because the dialog has its caption.
  71.      *    Set it to nil if you do not want to place anything here.
  72.      * @param below_table Contents to place between table and buttons.
  73.      *    Set it to nil if you do not want to place anything here.
  74.      * @param below_buttons Content to place below bottons.
  75.      *    Set it to nil if you do not want to place anything here.
  76.      * @param buttons Content to place rights from buttons. Usually
  77.      *    an additional button, e.g. Set as default.
  78.      *    Set it to nil if you do not want to place anything here.
  79.      * @return Content for the SetWizardContent[Buttons]()
  80.      * <B>UI elements ids:</B><table>
  81.      * <tr><td>Table</td><td>`table</td></tr>
  82.      * <tr><td>Button add</td><td>`add_button</td></tr>
  83.      * <tr><td>Button edit</td><td>`edit_button</td></tr>
  84.      * <tr><td>Button delete</td><td>`delete_button</td></tr>
  85.      * </table>
  86.      */
  87.     global define term ConfiguredContent ( term table_header,
  88.                       list table_contents,
  89.                       term above_table,
  90.                       term below_table,
  91.                       term below_buttons,
  92.                       term buttons)
  93.     ``{
  94.     term contents = `VBox ();
  95.     if (nil != above_table)
  96.     {
  97.         contents = add (contents, above_table);
  98.     }
  99.  
  100.     contents = add (contents,
  101.             `Table (
  102.                 `id (`table),
  103.                 `opt (`notify),
  104.                 table_header,
  105.                 table_contents));
  106.     if (nil != below_table)
  107.     {
  108.         contents = add (contents, below_table);
  109.     }
  110.  
  111.     term but_box = `HBox (
  112.         `opt (`hstretch),
  113.         `PushButton (`id (`add_button), `opt (`key_F3), _("A&dd")),
  114.         `PushButton (`id (`edit_button),  `opt (`key_F4), _("&Edit")),
  115.         `PushButton (`id (`delete_button), `opt (`key_F5), _("De&lete"))
  116.     );
  117.  
  118.  
  119.     if (nil != buttons)
  120.     {
  121.         but_box = add ( add ( but_box,
  122.                   `HStretch ()),
  123.                 buttons);
  124.     }
  125.     contents = add (contents, but_box);
  126.     if (nil != below_buttons)
  127.     {
  128.         contents = add (contents, below_buttons);
  129.     }
  130.     return contents;
  131.     }
  132.  
  133.     /**
  134.      * Encloses the content into VBoxes and HBoxes with the appropriate
  135.      * spacings around it.
  136.      * @param content The term we are adding spacing to.
  137.      * @param left Spacing on the left.
  138.      * @param right Spacing on the right.
  139.      * @param top Spacing on the top.
  140.      * @param bottom Spacing on the bottom.
  141.      * @return Content with spacings around it.
  142.      */
  143.     global define term SpacingAround( term content,
  144.                  float left, float right,
  145.                  float top, float bottom )
  146.     ``{
  147.     return
  148.         `HBox
  149.         (
  150.         `HSpacing ( left ),
  151.         `VBox
  152.         (
  153.             `VSpacing ( top ),
  154.             content,
  155.             `VSpacing ( bottom )
  156.         ),
  157.         `HSpacing ( right )
  158.         );
  159.     }
  160.  
  161.     /**
  162.      * Encloses the content into VBoxes and HBoxes
  163.      *
  164.      * Enclose so that its
  165.      * size is at least
  166.      * <emphasis>xsize</emphasis> x <emphasis>ysize</emphasis>.
  167.      * @param xsize Minimal size of content in the X direction
  168.      * @param ysize Minimal size of content in the Y direction
  169.      * @param content Content of the dialog
  170.      * @return Contents sized at least <B>xsize</B> x <B>ysize</B>.
  171.      */
  172.     global define term SizeAtLeast(term content, float xsize, float ysize)
  173.     ``{
  174.     return
  175.         `VBox (
  176.         `VSpacing (0.4),
  177.         `HSpacing (xsize),
  178.         `HBox (
  179.             `HSpacing (1.6),
  180.             `VSpacing (ysize),
  181.             content,
  182.             `HSpacing (1.6)
  183.         ),
  184.         `VSpacing (0.4)
  185.         );
  186.     }
  187.  
  188. /* EOF */
  189. }
  190.