Merged 01f0fea53f9b and 091548040432 (branch default)
srent: 5014:01f0fea53f9b
Merged 9810ac669227 and d0125b7808bd (branch default)
parent: 5049:091548040432 tip
elf at: sel ifAbsent:[
Hh: changed EditTextViewCompletionSupport.st
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libwidg' }"
Label subclass:#CheckLabel
instanceVariableNames:'hasFocus'
classVariableNames:''
poolDictionaries:''
category:'Views-Layout'
!
!CheckLabel class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
documentation
"
used for labels in checkBoxes;
the only added functionality is the focus-frame
drawn around.
This is used with win95 styles only.
"
! !
!CheckLabel methodsFor:'accessing'!
hasFocus:something
"set the value of the instance variable 'hasFocus' (automatically generated)"
hasFocus := something.
"Created: / 17.9.1998 / 14:17:51 / cg"
! !
!CheckLabel methodsFor:'queries'!
hasFocus
"return the value of the instance variable 'hasFocus' (automatically generated)"
^ hasFocus
"Created: / 17.9.1998 / 14:17:51 / cg"
! !
!CheckLabel methodsFor:'redrawing'!
drawWith:fg and:bg
super drawWith:fg and:bg.
hasFocus == true ifTrue:[
(styleSheet at:#focusHighlightStyle) == #win95 ifTrue:[
self windowGroup focusCameByTab ifTrue:[
self drawWin95FocusFrame
]
]
].
"Created: / 17.9.1998 / 14:16:07 / cg"
"Modified: / 17.9.1998 / 14:17:40 / cg"
! !
!CheckLabel class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libwidg/CheckLabel.st,v 1.4 2008-07-22 20:50:05 cg Exp $'
! !