Wed Sep 9 15:22:32 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Smoke::t_class is now also used for classes not wrapped by Smoke & remove global-space part from enum symbols.

--- old-smoke/src/smoke-to-clos.lisp 2014-10-30 08:10:30.000000000 +0100

+++ new-smoke/src/smoke-to-clos.lisp 2014-10-30 08:10:30.000000000 +0100

@@ -4,8 +4,10 @@

"Returns an expression that defines a constant for the enum METHOD.

The second return value is the expression to export the constant."

(let ((symbol

- (if (string= (name (get-class method))

- "Qt")

+ (if (or (string= (name (get-class method))

+ "Qt")

+ (string= (name (get-class method))

+ "QGlobalSpace"))

(lispify (concatenate 'string "+" (name method)

"+")

package)