"Filed out from Dolphin Smalltalk 7"!

NMHDR subclass: #NMTVGETINFOTIPW
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	classInstanceVariableNames: ''!
NMTVGETINFOTIPW guid: (GUID fromString: '{092d2532-2e9c-415e-9373-cf213741fa81}')!
NMTVGETINFOTIPW comment: ''!
!NMTVGETINFOTIPW categoriesForClass!External-Data-Structured-Win32! !
!NMTVGETINFOTIPW methodsFor!

cchTextMax
	"Answer the <Integer> value of the receiver's 'cchTextMax' field."

	^bytes sdwordAtOffset: ##(self offsetOf: #cchTextMax)!

hItem
	"Answer the <Integer> value of the receiver's 'hItem' field."

	^bytes uintPtrAtOffset: ##(self offsetOf: #hItem)!

itemHandle
	"Answer the 'handle' of the receiver's item."

	^self hItem!

lParam
	"Answer the <Integer> value of the receiver's 'lParam' field."

	^bytes uintPtrAtOffset: ##(self offsetOf: #lParam)!

pszText
	"Answer the <ExternalAddress> value of the receiver's 'pszText' field."

	^(bytes uintPtrAtOffset: ##(self offsetOf: #pszText)) asExternalAddress!

text: text
	"Private - Set the receiver's tip text to the ANSI string representation of the argument, text,
	and answer that. If the receiver's #dwFlags field is zero then the text is appended to the existing
	text, but only up to the maximum number of characters specified by the receiver's
	#cchTextMax field."

	(self textClass fromString: text displayString) copyToBuffer: self pszText ofSize: self cchTextMax!

textClass
	^Utf16String! !
!NMTVGETINFOTIPW categoriesFor: #cchTextMax!**compiled accessors**!public! !
!NMTVGETINFOTIPW categoriesFor: #hItem!**compiled accessors**!public! !
!NMTVGETINFOTIPW categoriesFor: #itemHandle!accessing!public! !
!NMTVGETINFOTIPW categoriesFor: #lParam!**compiled accessors**!public! !
!NMTVGETINFOTIPW categoriesFor: #pszText!**compiled accessors**!public! !
!NMTVGETINFOTIPW categoriesFor: #text:!accessing!private! !
!NMTVGETINFOTIPW categoriesFor: #textClass!constants!private! !

!NMTVGETINFOTIPW class methodsFor!

defineFields
	"Define the fields of the Win32 NMTVGETINFOTIPW structure.
		self compileDefinition
	"

	super defineFields.
	self
		defineField: #pszText type: LPVOIDField readOnly;
		defineField: #cchTextMax type: SDWORDField readOnly;
		defineField: #hItem type: UINT_PTRField readOnly;
		defineField: #lParam type: UINT_PTRField readOnly! !
!NMTVGETINFOTIPW class categoriesFor: #defineFields!initializing!public! !

