Path: sran265!katsu
From: katsu@sra.co.jp (WATANABE Katsuhiro)
Message-ID: <KATSU.94Jan13180505@sran14.sra.co.jp>
Date: 13 Jan 94 18:05:05
Organization: Software Research Associates, Inc.,Japan
In-reply-to: katsu@sra.co.jp's message of 28 Dec 93 14:19:56 GMT
Newsgroups: fj.lang.st80
Subject: Re: About font on VisualWorks (In Japanese/Kanji)
Distribution: fj
References: <7293@ipckus.kansai-u.ac.jp>
	<KATSU.93Dec28141956@sran14.sra.co.jp>

記事 <7293@ipckus.kansai-u.ac.jp> で
gc3m697@kansai-u.ac.jp (gc3m697) さんいはく

> そこでVisualWorksを使っていらっしゃる方の中で任意のwindowだけのfontの
> 設定を変える事に成功した方がいらっしゃればその方法を教えていただけませんか?

に対して、記事 <KATSU.93Dec28141956@sran14.sra.co.jp> で私いはく

> 　青木淳 <aoki@sra.co.jp> さんが、これを解決する VisualWorks のコード
> 例を書いてくれたので、私の責任で投稿します。

といった投稿をしましたが、関西大学の高橋さんの本当の要求はこれとは
違うそうで、私の勇み足だったかもしれません。

　いずれにせよ、前の記事のコードを、VisualWorks でなく一般の
ObjectWorks R4.1 でも動かすための patch を青木淳(aoki@sra.co.jp)さんが
作ったので、私の責任で投稿しておきます。

--
渡邊克宏＠ＳＲＡ

======== ちょきちょき ======== ちょきちょき =========
'From Objectworks¥Smalltalk(R), Release 4.1 of 15 April 1992 on 1 January 1994 at 10:35:56 am'!



FontUtility comment:
'
Copyright (C) 1993-1994 by Atsushi Aoki
'!


!FontUtility class methodsFor: 'class initialization'!

enhanceHierarchyBrowser
	"FontUtility enhanceHierarchyBrowser."

	| aStream |
	aStream := ReadStream on: '



!!HierarchyBrowser class methodsFor: ''view creation''!!

addClassViewTo: aContainer in: area on: aBrowser readOnly: readOnly 
	"Enhanced by Atsushi Aoki."

	| aListView edgeDecorator |
	(Smalltalk includesKey: #HierarchicalClassListView)
		ifTrue: [aListView := (Smalltalk at: #HierarchicalClassListView)
				on: aBrowser
				printItems: false
				oneItem: readOnly
				aspect: #className
				change: #className:
				list: #classList
				menu: #classMenu
				initialSelection: #className]
		ifFalse: [aListView := SelectionInListView
				on: aBrowser
				printItems: false
				oneItem: readOnly
				aspect: #className
				change: #className:
				list: #classList
				menu: #classMenu
				initialSelection: #className].
	(Smalltalk includesKey: #FontUtility)
		ifTrue: [aListView list textStyle: ((Smalltalk at: #FontUtility) textStyleOfBrowser copy gridForFont: nil withLead: 0)].
	edgeDecorator := LookPreferences edgeDecorator on: aListView.
	readOnly
		ifTrue: [edgeDecorator noVerticalScrollBar]
		ifFalse: [edgeDecorator useHorizontalScrollBar].
	^aContainer add: edgeDecorator in: area!! !!



	'.
	aStream fileIn! !
======== ちょきちょき ======== ちょきちょき =========