Changeset 6718

Timestamp:

Jun 12, 2007, 4:23:38 PM (17 years ago)

Author:

Gary Byers

Message:

#/validateMenuItem: define on hemlock-text-view, not hemlock-editor document.
Don't enable hyperspec lookup unless *hyperspec-root-url* is set.

File:

• branches/ide-1.0/ccl/examples/cocoa-editor.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/cocoa-editor.lisp

@@ -1778 +1778 @@
 
 (objc:defmethod (#/validateMenuItem: :<BOOL>)
-    ((self hemlock-editor-document) item)
+    ((self hemlock-text-view) item)
   (let* ((action (#/action item)))
-    (#_NSLog #@"action = %s" :address action)
+    #+debug (#_NSLog #@"action = %s" :address action)
     (if (eql action (@selector #/hyperSpecLookUp:))
       ;;; For now, demand a selection.
-      (not (eql 0 (ns:ns-range-length (#/selectedRange self))))
+      (and *hyperspec-root-url*
+           (not (eql 0 (ns:ns-range-length (#/selectedRange self)))))
       (call-next-method item))))