From a3b7332a1ba118ab913ac117ab06fde5fed2ab97 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 24 Jun 2022 18:19:25 -0500 Subject: [PATCH] ui.tools.inspector: Fix inspector for map-index change. First casualty of df23a5aeb1de82ebfcf49fc3f653bc1e69d3dab5 --- .../ui/tools/inspector/inspector-tests.factor | 27 ++++++++++++++++++- basis/ui/tools/inspector/inspector.factor | 2 +- 2 files changed, 27 insertions(+), 2 deletions(-) diff --git a/basis/ui/tools/inspector/inspector-tests.factor b/basis/ui/tools/inspector/inspector-tests.factor index 5891983a7e..7127d5d01a 100644 --- a/basis/ui/tools/inspector/inspector-tests.factor +++ b/basis/ui/tools/inspector/inspector-tests.factor @@ -1,3 +1,28 @@ -USING: tools.test ui.tools.inspector math models ; +USING: assocs formatting kernel math math.parser models +sequences strings tools.test ui.tools.inspector unicode ; { } [ \ + com-edit-slot ] unit-test + +! Make sure we can click around in the inspector +{ } [ + "abcdefg" [ + swap [ dup number>string ] dip dup + dup unicode:printable? [ 1string ] [ + dup 0xff <= [ + H{ + { CHAR: \a "\\a" } + { CHAR: \b "\\b" } + { CHAR: \e "\\e" } + { CHAR: \f "\\f" } + { CHAR: \n "\\n" } + { CHAR: \r "\\r" } + { CHAR: \t "\\t" } + { CHAR: \v "\\v" } + { CHAR: \0 "\\0" } + } ?at [ "\\x%02x" sprintf ] unless + ] [ + "\\u{%x}" sprintf + ] if + ] if slot-description boa + ] { } map-index-as drop +] unit-test \ No newline at end of file diff --git a/basis/ui/tools/inspector/inspector.factor b/basis/ui/tools/inspector/inspector.factor index cfcd6e0e09..47227e1fd4 100644 --- a/basis/ui/tools/inspector/inspector.factor +++ b/basis/ui/tools/inspector/inspector.factor @@ -88,7 +88,7 @@ M: string make-slot-descriptions "\\u{%x}" sprintf ] if ] if slot-description boa - ] map-index ; + ] { } map-index-as ; M: hashtable make-slot-descriptions call-next-method [ key-string>> ] sort-with ; -- 2.34.1