How to create a Popup Window in Rebol? -
I tried to apply a save-as-ftp button to the Rebol embedded editor. The save-k-button implementation is:
save-as-ftp: has [file-content] [file-content: t1 / text prefs-file: rejoin [_self-path] % Ftp.preferences.txt] Either exists? Prefs-file [prefs-ftp: load prefs-file creation; User Name: Password: "Password:" Server-Path: Ask "Server-Path:"] View View [Original 10x10 Location 8x4 Style BTN BTN 140 FTP-Field: Text Bold "140 Center Pad 0x4 BTN-Enter 140" Save the "#" s [hide-pop-up result: FTP-field / text] BTN Red + 50 "Skip - No save" [Exit from hidden-pop-now]] File-target: Results ftp-target: rejoin [ Ftp: // user ":" password "@" server-path file-target] FTP-target file-content print [" Enter the "File Recording" "upload" file [ftp: // "XXXXXXX" "" XXXXXXX "" @ "server-path]]. True]
Seeing my problem is ftp-view: The popup window loses focus because I can not even type in the feed-field text box.
Hidden-popup is used to close a modal window.
Oh .. this is a button or something that you are connecting to the reblog editor
I modified the FTP files a few years ago ... I have to see what I got.
Comments
Post a Comment