(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED " 5-Aug-88 18:21:23" {QV}<NOTECARDS>1.3LNEXT>RHTPATCH333.;1
 2300   

      changes to%:  (VARS RHTPATCH333COMS))


(* "
Copyright (c) 1988 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT RHTPATCH333COMS)

(RPAQQ RHTPATCH333COMS
 ((DECLARE%: DONTCOPY (PROPS (RHTPATCH333 MAKEFILE-ENVIRONMENT)
                                                   (RHTPATCH333 FILETYPE)))
                        
                        (* ;; "Another attempt (first was in RHTPATCH327) at fixing problem with NC.UpperLeftCH# acting as though character is bugged instead of just returning the selection.  I think I've realliy got it this time.")


                        
                        (* ;; "Change to NCUTILITIES")


                        (FNS NC.UpperLeftCH#)))
(DECLARE%: DONTCOPY 

(PUTPROPS RHTPATCH333
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS RHTPATCH333
 FILETYPE
 :TCOMPL)
)



(* ;; 
"Another attempt (first was in RHTPATCH327) at fixing problem with NC.UpperLeftCH# acting as though character is bugged instead of just returning the selection.  I think I've realliy got it this time."
)





(* ;; "Change to NCUTILITIES")


(DEFINEQ

(NC.UpperLeftCH#

  [LAMBDA (TEditWindow)
                                      (* ; "Edited  5-Aug-88 18:18 by Trigg")


    (* ;; 

    "Returns the character number of the first currently displayed character in a tedit window.")


    (* ;; "rht 7/21/88: Fixed problem where bitmap in upper left corner of window caused bitmap editor to be run under call to TEDIT.SELECT.  Did that by changing SELOPERATION arg from 'NORMAL to 'COPY.  Also changed the REGION arg from (fetch (TEXTOBJ MOUSEREGION) of TextObj) to 'COPY.")


    (* ;; "rht 8/5/88: Another attempt at fixing above problem.  Now REGION arg is 'LINE.")


    (LET ((TextObj (TEXTOBJ TEditWindow)))
         (fetch
 (SELECTION CH#) of
 (TEDIT.SELECT 0 (SUB1 (fetch
 (TEXTOBJ WTOP) of
 TextObj))
                                          TextObj
                                          'LINE NIL NIL TEditWindow])
)
(PUTPROPS RHTPATCH333 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1294 2217 (NC.UpperLeftCH# 1304 . 2215)))))
STOP