From 479772fbbbea31d775ce2d10764e7fdc07ce6f13 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 28 Oct 2014 15:49:07 -0500 Subject: [PATCH] add the get-autowrap-bitmap-width method to text% original commit: 5052e8251871046767e1851d078b883b4d829693 --- pkgs/gui-pkgs/gui-doc/scribblings/gui/text-class.scrbl | 6 ++++++ pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt | 2 ++ 2 files changed, 8 insertions(+) diff --git a/pkgs/gui-pkgs/gui-doc/scribblings/gui/text-class.scrbl b/pkgs/gui-pkgs/gui-doc/scribblings/gui/text-class.scrbl index 3d51afa1..c2746292 100644 --- a/pkgs/gui-pkgs/gui-doc/scribblings/gui/text-class.scrbl +++ b/pkgs/gui-pkgs/gui-doc/scribblings/gui/text-class.scrbl @@ -807,6 +807,12 @@ Returns @racket[#t] if the selection is currently auto-extending. See } +@defmethod[(get-autowrap-bitmap-width) (and/c real? (not/c negative?))]{ + Returns the width of the bitmap last passed to @method[text% set-autowrap-bitmap] + or @racket[zero?] if no bitmap has been passed to @method[text% set-autowrap-bitmap] or + if @racket[#f] was most recently passed. +} + @defmethod[(get-between-threshold) (and/c real? (not/c negative?))]{ 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 65868f35..243632f8 100644 --- a/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt +++ b/pkgs/gui-pkgs/gui-lib/mred/private/wxme/text.rkt @@ -4953,6 +4953,8 @@ old))) + (def/public (get-autowrap-bitmap-width) wrap-bitmap-width) + ;; ---------------------------------------- ;; notifies the administrator that we need to be redrawn