Hi,
There is a small bug in the class description in dict.c;
the super class of MethodDictionary should be IdentityDictionary.
Changing the superclass introduce a regression in Seaside (I've just
quickly fix the regression may be it's wrong)
Gwen
diff --git a/libgst/dict.c b/libgst/dict.c
index adb28f6..b182756 100644
--- a/libgst/dict.c
+++ b/libgst/dict.c
@@ -565,7 +565,7 @@ static const class_definition class_info[] = {
GST_ISP_POINTER, true, 0,
"IdentityDictionary", NULL, NULL, NULL },
- {&_gst_method_dictionary_class, &_gst_lookup_table_class,
+ {&_gst_method_dictionary_class, &_gst_identity_dictionary_class,
GST_ISP_POINTER, true, 0,
"MethodDictionary", NULL, NULL, NULL },
diff --git a/packages/seaside/core/Seaside-Tests.st b/packages/seaside/core/Seaside-Tests.st
index da2dec7..f782683 100644
--- a/packages/seaside/core/Seaside-Tests.st
+++ b/packages/seaside/core/Seaside-Tests.st
@@ -2264,7 +2264,7 @@ TestCase subclass: WAFileLibraryTest [
testFileLibraryDemo [
<category: 'testing'>
| actual expected |
- actual := WAFileLibraryDemo new filenames.
+ actual := WAFileLibraryDemo new filenames asSet.
expected := #('main.css' 'main.jpg').
self assert: actual size = expected size.
expected do: [:each | self assert: (actual includes: each)]
@@ -2409,7 +2409,7 @@ TestCase subclass: WAFileLibraryTest [
testStandardFiles [
<category: 'testing'>
| actual expected |
- actual := WAStandardFiles new filenames.
+ actual := WAStandardFiles new filenames asSet.
expected := #('halo.css' 'kalseyTabs.css' 'toolbar.css' 'window.css' 'externalAnchors.js' 'misc.js' 'shortcuts.js' 'codebrowser.png' 'inspector.png' 'styleeditor.png' 'config.png' 'profiler.png' 'memory.png').
"VW does not implement #= in Collection because you don't want that"
self assert: actual size = expected size.
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
