suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed bugs in read and mis other bugs

Browse Source 
original commit: 38dc7ee480ceffd065d80da911677003ec992706
This commit is contained in:
Robby Findler 1998-03-12 17:57:32 +00:00
parent b6e91ca4af
commit 1ade9da766
2 changed files with 22 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
collects/mred/edit.ss
View File

@ -175,41 +175,27 @@
(error 'after-edit-sequence
"extra call to after-edit-sequence"))
(super-after-edit-sequence)
(when (= 0 edit-sequence-counter)
(mred:debug:printf 'lock-icon
"queue: ~a"
edit-sequence-queue)
(let ([queue edit-sequence-queue]
[ht edit-sequence-ht]
[find-enclosing-edit
(lambda (edit)
(let ([admin (send edit get-admin)])
(cond
[(is-a? admin wx:media-snip-media-admin%)
(send (send admin get-snip) get-media)]
;; assume that any non-media-snip
;; administrator doesn't have embedded edits.
[else #f])))])
(unless (null? queue)
(set! edit-sequence-queue null)
(set! edit-sequence-ht (make-hash-table))
(let loop ([edit (find-enclosing-edit this)])
(cond
[(and edit (= 0 (ivar edit edit-sequence-counter)))
(loop (find-enclosing-edit edit))]
[edit
(mred:debug:printf 'lock-icon
"passing queue to another edit ~a"
edit
edit-sequence-counter)
(send edit extend-edit-sequence-queue queue ht)]
[else
(mred:debug:printf 'lock-icon
"running queue")
(hash-table-for-each ht (lambda (k t) (t)))
(for-each (lambda (t) (t)) queue)]))))))])
(let ([queue edit-sequence-queue]
[ht edit-sequence-ht]
[find-enclosing-edit
(lambda (edit)
(let ([admin (send edit get-admin)])
(cond
[(is-a? admin wx:media-snip-media-admin%)
(send (send (send admin get-snip) get-admin) get-media)]
;; assume that any non-media-snip
;; administrator doesn't have embedded edits.
[else #f])))])
(set! edit-sequence-queue null)
(set! edit-sequence-ht (make-hash-table))
(let loop ([edit (find-enclosing-edit this)])
(cond
[(and edit (not (ivar edit local-edit-sequence?)))
(loop (find-enclosing-edit edit))]
[edit (send edit extend-edit-sequence-queue queue ht)]
[else
(hash-table-for-each ht (lambda (k t) (t)))
(for-each (lambda (t) (t)) queue)]))))])
(public
[locked? #f]
[lock

5
collects/mred/keys.ss
View File

@ -177,10 +177,7 @@
(wx:message-box "Checkout Failed")))))]))))))))]
[save-file-as
(lambda (edit event)
(let ([file
(parameterize ([mred:finder:dialog-parent-parameter
(mred:test:test:get-active-frame)])
(mred:finder:put-file))])
(let ([file (mred:finder:put-file)])
(if file
(send edit save-file file)))
#t)]