Ниже представлен код на Python, использующий библиотеку `tkinter` для создания графического интерфейса.

цитата:

 
 from tkinter import Tk, Frame, Entry 
  
 window = Tk() 
 window.title("Палитра") 
 window.geometry("600x400") 
  
 frame = Frame(window, bd=5, relief="solid") 
 frame.place(x=10, y=10, width=580, height=200) 
  
 entry = Entry(window, bd=5, relief="solid", font=("Martian Mono", 20)) 
 entry.place(x=10, y=320, width=580, height=50) 
  
 while True: 
     window.update() 
  
     try: 
         frame.configure(bg=entry.get()) 
     except: 
         pass

Описание работы кода:

1. Импорт библиотек:
- `from tkinter import Tk, Frame, Entry`: Импортирует основные компоненты `tkinter` для работы с графическим интерфейсом.

2. Создание окна:
- `window = Tk()`: Инициализирует главное окно приложения.
- `window.title("Палитра")`: Устанавливает заголовок окна как "Палитра".
- `window.geometry("600x400")`: Задает размер окна 600x400 пикселей.

3. Создание рамки (Frame):
- `frame = Frame(window, bd=5, relief="solid")`: Создает рамку с границей (`bd=5`) и стильной рамкой (`relief="solid"`).
- `frame.place(x=10, y=10, width=580, height=200)`: Размещает рамку в окне с координатами (10, 10) и размерами 580x200 пикселей.

4. Создание текстового поля (Entry):
- `entry = Entry(window, bd=5, relief="solid", font=("Martian Mono", 20))`: Создает текстовое поле с границей и шрифтом ("Martian Mono", размер 20).
- `entry.place(x=10, y=320, width=580, height=50)`: Размещает поле ввода в окне по координатам (10, 320) с размерами 580x50 пикселей.

5. Цикл обновления и изменения цвета:
- `while True`: Запускает бесконечный цикл.
- `window.update()`: Обновляет интерфейс.
- `try`: Пытается установить цвет фона `frame` в соответствии со значением, введенным в `entry`.
- `except`: Игнорирует ошибки (например, если введен некорректный цвет).

Функционал:
Ввод значения цвета (например, `"red"`, `"#ff0000"`) в поле ввода изменяет цвет фона рамки (`frame`).

А вот что у меня получилось после конвертации этого кода в Минигуи программу:

цитата:

 
 #include "hmg.ch"  
 #include "winprint.ch" 
    
 //////////////////////////////////////////////////////////////////// 
 FUNCTION Main() 
  
    LOCAL bg := cColorToRGB( "WHITE" ) 
    
    DEFINE WINDOW Win_1 ; 
       CLIENTAREA 600, 400 ; 
       TITLE 'Palette' ; 
       MAIN ; 
       BACKCOLOR bg 
  
       DrawFrame( 10, 10, 200, 580 ) 
  
       @ 10, 10 LABEL frame WIDTH 580 HEIGHT 200 ; 
          VALUE "" ; 
          BACKCOLOR bg 
  
       DrawFrame( 320, 10, 50, 580 ) 
  
       DEFINE GETBOX NUL 
          PARENT ThisWindow.Name 
          ROW 330 
          COL 15 
          WIDTH 560 
          HEIGHT 30 
          BORDER .F. 
          FONTNAME "Martian Mono" 
          FONTSIZE 20 
          FONTBOLD .T. 
          VALUE SPACE( 36 ) 
          ON CHANGE { || bg := This.Value, This.frame.BackColor := ; 
             HMG_n2RGB( cColorToRGB( iif( ColorValid( bg ), bg, "WHITE" ) ) ) } 
       END GETBOX 
  
    END WINDOW 
  
    CENTER WINDOW Win_1 
    ACTIVATE WINDOW Win_1 
  
 RETURN NIL

Вот так выглядит эта прога: