Comment créer une fenêtre contextuelle dans Rebol?

Question

J'ai essayé d'implémenter un bouton save-as-ftp dans l'éditeur intégré de Rebol. La mise en œuvre de la sauvegarde au bouton est la suivante:

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 

] 

Mon problème est avec vue sur ftp-view: Je ne peux pas taper même dans zone de texte champ ftp comme la fenêtre perd le focus.

Answer 1

hide-popup est utilisé pour fermer une fenêtre modale. Une fenêtre modale est ouverte en utilisant 'informer

Je ne vois aucune fenêtre modale ici.

Oh ... c'est un bouton ou quelque chose que vous attachez à l'éditeur rebol?

J'ai modifié le mien il y a quelques années pour éditer des fichiers ftp ... Je vais devoir voir si je peux trouver ce que j'ai fait.