+RteField

Rich Text Formatting GUI element for +Blob with text data. Uses TinyMCE for the JavaScript part.

This class is not part of the picoLisp distribution.

(class +RteField +BlobField)

(dm show> ("Var")
   (let (Id (pack *Form '- (: id))
         OnL ,"Plain text »"
         OffL ,"Rich formatting »")
      (<div> NIL
         (<div> (list (cons 'id (pack Id "d"))))
         (super "Var"))
      (prin "<script>rteSwitch('" Id "'," (if (able) "true" "false")
         ",'" OnL "','" OffL "');</script>")))

Usage:

(class +C +Entity)
(rel r (+Blob))
...
(gui '(+RteField) '(r : home obj) 70 25)

See http://logand.com/ed/ed.js for the JavaScript part.