| a580e1 | 2000-09-27 | Fredrik Hübinette (Hubbe) | | #pike __REAL_VERSION__
|
| a20af6 | 2000-09-26 | Fredrik Hübinette (Hubbe) | |
|
| 379c0b | 2001-06-10 | Henrik Grubbström (Grubba) | | #if constant(GTK)
|
| 7f663a | 2000-03-10 | Per Hedbor | | #define INDEX(x) GTK[x]
|
| 3c8bb6 | 1999-11-07 | Per Hedbor | |
|
| 7f663a | 2000-03-10 | Per Hedbor | | object Atom = class
|
| 3c8bb6 | 1999-11-07 | Per Hedbor | | {
mapping atoms = ([]);
class fake_atom
{
object ra;
string n;
object get_atom()
{
if(ra) return ra;
|
| 7f663a | 2000-03-10 | Per Hedbor | | return ra = GTK->Gdk_Atom( n, 0 );
|
| 3c8bb6 | 1999-11-07 | Per Hedbor | | }
string get_name()
{
return get_atom()->get_name();
}
void create(string q)
{
n = q;
}
}
object `[](string what)
{
if(atoms[what])
return atoms[what];
return atoms[what] = fake_atom( what );
}
}();
mixed `[](string what)
{
if(what == "_module_value") return ([])[0];
if(what == "Atom") return Atom;
if(!zero_type(INDEX("Gdk"+what)))
return INDEX("Gdk"+what);
if(!zero_type(INDEX("GDK_"+what)))
return INDEX("GDK_"+what);
|
| 7f663a | 2000-03-10 | Per Hedbor | | if(!zero_type(INDEX("GDK_"+upper_case(GTK->unsillycaps(what)))))
return INDEX("GDK_"+upper_case(GTK->unsillycaps(what)));
|
| bdf3c1 | 1999-12-08 | Per Hedbor | | return ([])[0];
|
| 3c8bb6 | 1999-11-07 | Per Hedbor | | }
|
| 379c0b | 2001-06-10 | Henrik Grubbström (Grubba) | |
#else /* !constant(GTK) */
static void create()
{
destruct();
}
#endif /* constant(GTK) */
|