From 70d91b5516a24bb0640cbb0818e6d31f529db539 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 9 Feb 2014 20:04:14 -0700
Subject: [PATCH] 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++.
---
 pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt   |  4 ----
 pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt     | 10 ----------
 pkgs/snip-pkgs/snip-lib/racket/snip/private/snip.rkt |  8 --------
 3 files changed, 22 deletions(-)

diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt
index c485b5a629..8ecc38d35c 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/editor.rkt
@@ -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))
 
   ;; ----------------------------------------
diff --git a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
index fdc0204779..93c7789d37 100644
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt
@@ -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])])
diff --git a/pkgs/snip-pkgs/snip-lib/racket/snip/private/snip.rkt b/pkgs/snip-pkgs/snip-lib/racket/snip/private/snip.rkt
index 338658d4ff..12f8972804 100644
--- a/pkgs/snip-pkgs/snip-lib/racket/snip/private/snip.rkt
+++ b/pkgs/snip-pkgs/snip-lib/racket/snip/private/snip.rkt
@@ -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))