From 8c72da58aa8689ce70588eae89e2af71a6a8b0fb Mon Sep 17 00:00:00 2001 From: Mike MacHenry Date: Thu, 7 Oct 2004 15:16:27 +0000 Subject: [PATCH] 299 updates original commit: 199634fb88ffc7b953af6fb79e00732d424be6dc --- collects/embedded-gui/private/tabbable-text.ss | 3 +-- collects/embedded-gui/private/verthoriz-alignment.ss | 4 ++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/collects/embedded-gui/private/tabbable-text.ss b/collects/embedded-gui/private/tabbable-text.ss index 36c133f4..3cef1f01 100644 --- a/collects/embedded-gui/private/tabbable-text.ss +++ b/collects/embedded-gui/private/tabbable-text.ss @@ -22,7 +22,7 @@ [ahead void] [back void]) - ;; get-keymaps (-> (listof keymap%)) + #;(-> (listof keymap%)) ;; the list of keymaps associated with this text (define/override (get-keymaps) (let ([keymap (make-object keymap%)]) @@ -41,7 +41,6 @@ (super-new))) - ;; sets the tabbing of all of the texts in the order of the list (define (set-tabbing . l) (cond diff --git a/collects/embedded-gui/private/verthoriz-alignment.ss b/collects/embedded-gui/private/verthoriz-alignment.ss index cf8e967e..f8f1f00f 100644 --- a/collects/embedded-gui/private/verthoriz-alignment.ss +++ b/collects/embedded-gui/private/verthoriz-alignment.ss @@ -66,7 +66,7 @@ (send child align (+ x x-offset) (+ y y-offset) w h)])) (when (and (is-shown?) - (not (empty? children)) + (not (empty? children)); this and (not (zero? width)) ; this should be handled by align later (not (zero? height))) ; this one too (for-each move/resize @@ -170,7 +170,7 @@ (define horizontal-alignment% (vert/horiz-alignment 'horizontal)) #;((is-a?/c alignment%) . -> . rect?) - ;; makes a new default rect out of a snip + ;; makes a new default rect out of an alignment (define (build-rect item) (a:make-rect (a:make-dim 0 (send item get-min-width) (send item stretchable-width))