Home   Archive   Permalink



'Save' error

Can someone help me with one of the example programs that errors with the message:
    
** Script error: encode does not allow block! for its data argument
** Where: if save if actor all foreach do-actor unless do-face if actor all fore
ach do-actor if do-event do-event if do-event either -apply- wake-up loop -apply
- wait forever try do-events if view do either either either -apply-
** Near: if lib/all [
     not header
     any [file? where url? where]...
    
The problem is when it gets to executing the "Save"
    
button "Save" on-action [
     save-file: request-file
     if save-file <> none [
        save save-file get-face/field t 'data
        alert "Saved"
     ]
]
    
    
    The Contacts program in question is here: http://learnrebol.com/rebol3_book.html#section-7.8
    
The "requesters.r3" is here:
http://learnrebol.com/rebol3_book.html#section-3.14
    
TIA
Gord

posted by:   Gordon Raboud     31-Oct-2014/8:44:44-7:00