editor sample code

$include $lib/editor
$include $lib/lmgr

: sample ( -- )
  ( You load the editor with a stackrange.  If you are starting from scratch: )
  0 editor
  ( Or if you are loading a property named 'whatever/list#' from #12345 you would do: )
  "whatever/list" #12345 lmgr-fullrange lmgr-getrange editor
               (^ NOTE: no # here )
  ( The editor will leave whatever command the user used to get out of the editor on
    top of the stack.  This will be either 'a' for abort or 'e' for end [save].  I
    check like this:
  )
  "a" 1 strncmp not if
    popn ( clean stack )
    exit
  then

  ( At this point, we want to save what we have.  We must first delete what's
    already there because lmgr is stupid otherwise
  )
  #12345 "whatever/list#" remove_prop
                      (^ NOTE: yes # here )
  ( Then save it )
  1 "whatever/list" #12345 lmgr-insertrange
                (^ NOTE: no # here )
;