hg/jv-cface: Cface__GTKMapping.st@4e586238a9f7 (annotated)

32 d7464405cbda Package renamed from cvut:fel/cface to jv:cface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14 diff changeset	1	"{ Package: 'jv:cface' }"
11 a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TypeMapping subclass:#GTKMapping
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-Mappings'
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!GTKMapping methodsFor:'filtering'!
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	shouldIgnoreStruct: cStructNode
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^cStructNode cName endsWith: 'Class'.
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: / 22-02-2009 / 22:15:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!GTKMapping methodsFor:'mapping - class names'!
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	smalltalkClassNameForDerivedType:cType
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	((cType cName startsWith:'Gtk') or: [cType cName startsWith:'_Gtk'])
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	ifTrue:[^cType cName copyFrom: 5].
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	((cType cName startsWith:'Gtk') or: [cType cName startsWith:'_Gtk'])
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	ifTrue:[^cType cName copyFrom: 5].
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	^super smalltalkClassNameForDerivedType:cType
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	"Created: / 22-02-2009 / 22:33:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	! !
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	!GTKMapping methodsFor:'mapping - namespaces'!
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	smalltalkNamespaceForDerivedType: cType
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	((cType cName startsWith:'Gtk') or: [cType cName startsWith:'_Gtk'])
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	ifTrue:[^'GTK'].
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	((cType cName startsWith:'Gdk') or: [cType cName startsWith:'_Gdk'])
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	ifTrue:[^'GdK'].
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	^super smalltalkNamespaceForDerivedType: cType
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	"Created: / 22-02-2009 / 22:32:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	! !
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	!GTKMapping class methodsFor:'documentation'!
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	version
a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	^'$Id$'
14 1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	52	!
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	53
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	54	version_SVN
1f730d82496e Added version_SVN methods Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	55	^ '$Id$'
11 a77f44d45a27 Initial support for GTK Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 06 Jul 2015 07:18:24 +0100
changeset 36	4e586238a9f7
parent 32	d7464405cbda
child 43	9327987437ae
permissions	-rw-r--r--