home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / SoundApps / aa_m68k_Only / SignalEditor / SignalEditor.app / scm / db next >
Encoding:
Text File  |  1994-06-07  |  1.0 KB  |  28 lines
  1. (define (d) (tell (tell NXApp 'delegate) 'currentDocument))
  2. (define (el) (tell (d) 'printEditlist) #t)
  3. (define (cs) (tell (d) 'printChangeStack) #t)
  4. (define (f) (tell (d) 'printForeignInclusion) #t)
  5. (define (u) (tell (d) 'printDerefd) #t)
  6. (define (cut a b) (tell (d) 'cut:: a b) #t)
  7. (define (delete a b) (tell (d) 'delete:: a b) #t)
  8. (define (paste a b) (tell (d) 'paste:: a b) #t)
  9. (define (copy a b) (tell (d) 'copy:: a b) #t)
  10. (define (play a b) (tell (d) 'play:: a b) #t)
  11. (define (undo) (tell (d) 'undoSegment: (make-pointer 0 'id)) #t)
  12. (define (redo) (tell (d) 'redoSegment: (make-pointer 0 'id)) #t)
  13.  
  14. (define (List->list List)
  15.     (letrec ((count (tell List 'count))
  16.          (loop (lambda (n)
  17.         (if (= n count)
  18.             '()
  19.             (cons (tell List 'objectAt: n) (loop (+ n 1)))))))
  20.     (loop 0)))
  21.     
  22. (define (get-SIDView n)
  23.     (let ((wl (List->list (tell NXApp 'windowList))) (w))
  24.     (set! w (list-ref wl (- (length wl) 1 n)))
  25.     (tell (car (List->list
  26.         (tell (car (List->list (tell (tell w 'contentView) 'subviews)))
  27.         'subviews))) 'docView)))
  28.