From: Bruno Haible <bruno@clisp.org>
Date: Tue, 9 Dec 2003 20:30:33 +0000 (+0000)
Subject: Work around PackageLoader's excessive verbosity.
X-Git-Tag: v0.13.1~14
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4dc2ad96abdf22d1bfb07c4402630c00dab94027;p=thirdparty%2Fgettext.git

Work around PackageLoader's excessive verbosity.
---

diff --git a/gettext-tools/examples/ChangeLog b/gettext-tools/examples/ChangeLog
index ad2e7e9f8..7ebd41a33 100644
--- 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 c3d668386..8889e5ccf 100644
--- 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 a01e00424..50ccf44ce 100644
--- 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'