racket/snip and racket/gui: remove leftover ~
methods
The `~` methods on snip and editor-related classes are not documented or called from anywhere. They corresponded to destructor methods back when the classes were ported from C++.
This commit is contained in:
parent
09f05678a5
commit
70d91b5516
|
@ -176,10 +176,6 @@
|
|||
|
||||
(super-new)
|
||||
|
||||
(define/public (~)
|
||||
(send s-style-list forget-notification notify-id)
|
||||
(clear-undos))
|
||||
|
||||
(define/public (is-printing?) (and printing #t))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
|
|
@ -354,16 +354,6 @@
|
|||
;;; so we can unlock the editor now. If code with
|
||||
;;; effects is added below, be sure to move the
|
||||
;;; unlocking.
|
||||
|
||||
(def/override (~)
|
||||
(set! word-break-map standard-wordbreak)
|
||||
(let loop ([snip snips])
|
||||
(when snip
|
||||
(let ([next (snip->next snip)])
|
||||
(send snip ~)
|
||||
(loop next))))
|
||||
(set! snips #f)
|
||||
(set! clickbacks null))
|
||||
|
||||
(def/override (copy-self)
|
||||
(let ([m (new text% [line-spacing line-spacing])])
|
||||
|
|
|
@ -138,11 +138,6 @@
|
|||
|
||||
(super-new)
|
||||
|
||||
(def/public (~)
|
||||
(set! s-next #f)
|
||||
(set! s-prev #f)
|
||||
(set! s-line #f))
|
||||
|
||||
(def/public (next) s-next)
|
||||
(def/public (previous) s-prev)
|
||||
(def/public (get-admin) s-admin)
|
||||
|
@ -415,9 +410,6 @@
|
|||
(unless (equal? str "")
|
||||
(insert str (min (string-length str) len) 0)))
|
||||
|
||||
(def/override (~)
|
||||
(set! s-buffer ""))
|
||||
|
||||
(def/override (size-cache-invalid)
|
||||
(set! str-metric #f))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user