Как создать всплывающее окно в Rebol? - PullRequest
Новая
       24

Как создать всплывающее окно в Rebol?

0 голосов
/ 07 декабря 2009

Я пытался реализовать кнопку «сохранить как ftp» во встроенном редакторе Rebol. Реализация кнопки сохранения как это: 

save-as-ftp: has [file-content][

    file-content: t1/text

    prefs-file: rejoin [_self-path %ftp.preferences.txt]

    either exists? prefs-file [
        prefs-ftp: construct load prefs-file; see article application configuration file
        user: prefs-ftp/user
        password: prefs-ftp/password
        server-path: prefs-ftp/server-path
    ][
        user: ask "User: "
        password: ask/hide "Password: "
        server-path: ask "Server-Path: "
    ]

    view ftp-view: layout [
        origin 10x10 space 8x4  
        style btn btn 140 
        ftp-field: text bold "" 140 center 
        pad 0x4 
        btn-enter 140 "Save" #"s" [hide-popup result: ftp-field/text] 
        btn red + 50 "Quit - No Save" [hide-popup quit-now] 
    ]        
    file-target: result
    ftp-target: rejoin [ftp:// user ":" password "@" server-path file-target]
    write ftp-target file-content
    print ["uploaded" file-target "to" rejoin [ftp:// "XXXXXXX" ":" "XXXXXXX" "@" server-path]]
    true

]

Моя проблема с просмотром ftp-просмотра: я даже не могу набрать текстовое поле ftp-поля, так как всплывающее окно теряет фокус.

1 Ответ

1 голос
/ 29 декабря 2009

hide-popup используется для закрытия модального окна. Модальное окно открывается с помощью команды «inform

».

Я не вижу здесь модальных окон.

Оу ... это кнопка или что-то, что вы прикрепляете к редактору ребол?

Я изменил мой несколько лет назад, чтобы редактировать файлы ftp ... Мне нужно посмотреть, смогу ли я найти то, что сделал.

...