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

.

Browse Source 
original commit: 2442a81cb8bd19adeba416184f9b00254b493bf7
This commit is contained in:
Robby Findler 2004-09-23 22:16:24 +00:00
parent 7c50134a32
commit c6a1734675
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/framework/private/editor.ss
View File

@ -398,20 +398,20 @@
get-top-level-window)
(inherit get-canvases)
(define read-write? #f)
(define read-write? #t)
(define/public (get-read-write?) read-write?)
(define/private (check-lock)
(let* ([filename (get-filename)]
[lock? (and filename
(file-exists? filename)
(not (member
'write
(file-or-directory-permissions
filename))))])
(set! read-write? (not lock?))))
[can-edit? (if (and filename
(file-exists? filename))
(and (member 'write (file-or-directory-permissions filename))
#t)
#t)])
(set! read-write? can-edit?)))
;(define/augment (can-insert? x y) (and read-write? (inner #t can-insert? x y)))
;(define/augment (can-delete? x y) (and read-write? (inner #t can-delete? x y)))
(define/augment (can-insert? x y)
(and read-write? (inner #t can-insert? x y)))
(define/augment (can-delete? x y) (and read-write? (inner #t can-delete? x y)))
(define/public (update-frame-filename)
(let* ([filename (get-filename)]

2
collects/framework/private/frame.ss
View File

@ -564,7 +564,7 @@
[(is-a? info-edit editor:file<%>)
(unless (send lock-canvas is-shown?)
(send lock-canvas show #t))
(let ([locked-now? (send info-edit get-read-write?)])
(let ([locked-now? (not (send info-edit get-read-write?))])
(unless (eq? locked-now? icon-currently-locked?)
(set! icon-currently-locked? locked-now?)
(when (object? lock-canvas)