#FEATURE
authorStefan Vogel <sv@exept.de>
Fri, 13 Nov 2015 15:06:57 +0100
changeset 4867 0c108dfef80a
parent 4865 eebc2638f2a7
child 4868 140c1c255318
#FEATURE class: FontMenu added: #enabledChannel:
FontMenu.st
--- a/FontMenu.st	Wed Oct 28 09:23:47 2015 +0100
+++ b/FontMenu.st	Fri Nov 13 15:06:57 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 MenuPanel subclass:#FontMenu
 	instanceVariableNames:'fontAspects enabledChannel labelsAreEmphasized
 		fontIsSymbolicHolder fontSymbol allowSymbolicFontsHolder
@@ -512,6 +516,10 @@
     ^ enabledChannel
 !
 
+enabledChannel:aValueHolder
+    enabledChannel := aValueHolder.
+!
+
 fontIsNotSymbolicHolder
     ^ self fontIsSymbolicHolder logicalNot
 !
@@ -807,10 +815,10 @@
 !FontMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.31 2014-05-16 16:29:14 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/FontMenu.st,v 1.31 2014-05-16 16:29:14 stefan Exp $'
+    ^ '$Header$'
 ! !