916c7e2012-01-28Henrik Grubbström (Grubba) #pike __REAL_VERSION__
e1fb092014-02-14Martin Nilsson #require constant(GTK1.Widget)
916c7e2012-01-28Henrik Grubbström (Grubba)  #define INDEX(x) GTK1[x] //! @decl import GTK1 //! @decl constant Atom object Atom = class { mapping atoms = ([]); class fake_atom { object ra; string n; object get_atom() { if(ra) return ra; return ra = GTK1->Gdk_Atom( n, 0 ); } 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 UNDEFINED; if(what == "Atom") return Atom;
65340d2014-08-15Martin Nilsson  if(has_index(GTK1, "Gdk"+what))
916c7e2012-01-28Henrik Grubbström (Grubba)  return INDEX("Gdk"+what);
65340d2014-08-15Martin Nilsson  if(has_index(GTK1, "GDK_"+what))
916c7e2012-01-28Henrik Grubbström (Grubba)  return INDEX("GDK_"+what);
65340d2014-08-15Martin Nilsson  if(has_index(GTK1, "GDK_"+upper_case(GTK1->unsillycaps(what))))
916c7e2012-01-28Henrik Grubbström (Grubba)  return INDEX("GDK_"+upper_case(GTK1->unsillycaps(what))); return UNDEFINED; // return GDKSupport[what]; }