Work around PackageLoader's excessive verbosity.

diff --git a/gettext-tools/examples/ChangeLog b/gettext-tools/examples/ChangeLog
index ad2e7e9f8a109919095721fc9d5197689b505590..7ebd41a33e6a86b329de6f5560df2368f169fb1b 100644 (file)
--- a/gettext-tools/examples/ChangeLog
+++ b/gettext-tools/examples/ChangeLog
@@ -1,3 +1,10 @@
+2003-12-09  Bruno Haible  <bruno@clisp.org>
+
+       * hello-smalltalk/hello.st.in: Add workaround against PackageLoader
+       verbosity. Solution provided by Carey Evans <careye@spamcop.net>.
+       * hello-smalltalk/BUGS: Remove file.
+       * Makefile.am (EXAMPLESFILES): Update.
+
 2003-12-07  Bruno Haible  <bruno@clisp.org>
 
        * po/sv.po: New file, from Jan Djärv <jan.h.d@swipnet.se>.

diff --git a/gettext-tools/examples/Makefile.am b/gettext-tools/examples/Makefile.am
index c3d6683863aa3a81702a76685ad684aaffd3f13d..8889e5ccf2ee40ce269d829c878cab7b76edef6b 100644 (file)
--- a/gettext-tools/examples/Makefile.am
+++ b/gettext-tools/examples/Makefile.am
@@ -303,7 +303,6 @@ EXAMPLESFILES = \
   hello-librep/po/zh_CN.po \
   \
   hello-smalltalk/INSTALL \
-  hello-smalltalk/BUGS \
   hello-smalltalk/autogen.sh \
   hello-smalltalk/autoclean.sh \
   hello-smalltalk/hello.st.in \

diff --git a/gettext-tools/examples/hello-smalltalk/hello.st.in b/gettext-tools/examples/hello-smalltalk/hello.st.in
index a01e004245f3cf98206736f3d091005e9e4c0712..50ccf44ce13eeea6ad32daa742c7ac66ddb42b2d 100644 (file)
--- a/gettext-tools/examples/hello-smalltalk/hello.st.in
+++ b/gettext-tools/examples/hello-smalltalk/hello.st.in
@@ -5,8 +5,21 @@
   Source code of the GNU Smalltalk program.
 "
 
+"Unfortunately the PackageLoader method fileInPackage: is extra verbose:
+ It outputs 'Loading package I18N'. This will be fixed in smalltalk-2.2.
+
 PackageLoader fileInPackage: 'I18N' !
 
+In the meantime, we use this workaround."
+
+| saved sink |
+saved := Transcript message.
+sink := WriteStream with: String new.
+Transcript message: sink -> #nextPutAll:.
+PackageLoader fileInPackage: 'I18N'.
+Transcript message: saved.
+!
+
 Object subclass: #Main
   instanceVariableNames: ''
   classVariableNames: 'NLS'