module Main where

import Graphics.UI.WX

-- главная функция. start - инициализирует библиотеку и запускает цикл для сообщений
main :: IO ()
main = start demo     -- "start" initializes the GUI.

demo :: IO ()
demo = do f <- frame        [text := "Bye!"] -- создаем главное окно
          p <- panel f      []  -- создаем панельку для размещения других контролов
          t <- staticText p [text := "Hello World"] -- контрол Static Text
          b <- button     p [text := "Bye"] -- кнопка
          set b [on command := bye f t b] -- устанавливаем event "command", срабатывает при нажатии
          set f [layout := fill $ container p $ margin 10 $ -- указываем как должны быть расположены контролы друг относительно друга
                           column 5 [widget t, widget b]]      
          focusOn b -- ну тут понятно - фокус на кнопку
     where
       -- вызывается при нажатии на кнопку
       bye f t b
         = do set t [text := "Goodbye"] -- устанавливаем новый текст для Static Text
              set b [on command := close f]   -- и новый обработчик события для кнопки

Q>module Main where

Q>import Graphics.UI.WX

Q>-- главная функция. start - инициализирует библиотеку и запускает цикл для сообщений
Q>main :: IO ()
Q>main = start demo     -- "start" initializes the GUI.

Q>demo :: IO ()
Q>demo = do f <- frame        [text := "Bye!"] -- создаем главное окно
Q>          p <- panel f      []  -- создаем панельку для размещения других контролов
Q>          t <- staticText p [text := "Hello World"] -- контрол Static Text
Q>          b <- button     p [text := "Bye"] -- кнопка
Q>          set b [on command := bye f t b] -- устанавливаем event "command", срабатывает при нажатии
Q>          set f [layout := fill $ container p $ margin 10 $ -- указываем как должны быть расположены контролы друг относительно друга
Q>                           column 5 [widget t, widget b]]      
Q>          focusOn b -- ну тут понятно - фокус на кнопку
Q>     where
Q>       -- вызывается при нажатии на кнопку
Q>       bye f t b
Q>         = do set t [text := "Goodbye"] -- устанавливаем новый текст для Static Text
              Что-то я не понял, когда устанавливается текст "Goodbye"? Его хоть кто-то увидит?
Q>              set b [on command := close f]   -- и новый обработчик события для кнопки
Q>

f <- frame        [text := "Bye!"]

using System;
using System.Windows.Forms;

class Form1 : Form
{
    public Form1()
    {
        // Настраиваем лэйбл
        Label _labelText = new Label();
        this.Text = labelText.Text = "Hello World";
        labelText.AutoSize = true;
        
        // Настравивем кнопку
        Button pbGoodbye = new Button();
        pbGoodbye.Text = "Close";
        pbGoodbye.Click += delegate(object sender, EventArgs e) { Close(); };

        _pbGoodbye.Anchor = labelText.Anchor = AnchorStyles.None;

        // Настраиваем лэйаут (просто для похожести). С ним можно и не выпендриваться.
        TableLayoutPanel tblLayout = new TableLayoutPanel();
        tblLayout.Controls.Add(pbGoodbye, 0, 1);
        tblLayout.Controls.Add(labelText, 0, 0);
        tblLayout.Dock = DockStyle.Fill;

        this.Controls.Add(tblLayout); // Дабавляем TableLayoutPanel к форме
        this.Size = new System.Drawing.Size(200, 100); // Задаем размер формы.
    }
}