From c6a1734675637a86b3201bf6f3cf272f4b3d70cf Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 23 Sep 2004 22:16:24 +0000
Subject: [PATCH] .

original commit: 2442a81cb8bd19adeba416184f9b00254b493bf7
---
 collects/framework/private/editor.ss | 20 ++++++++++----------
 collects/framework/private/frame.ss  |  2 +-
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/collects/framework/private/editor.ss b/collects/framework/private/editor.ss
index c3192c98..82fb6d69 100644
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@@ -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)]
diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index b775d0e5..242438e1 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -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)