File: gdkatom.pre

package info (click to toggle)
pigtk 1.1.3-3
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,248 kB
  • ctags: 104
  • sloc: ansic: 1,087; sh: 152; makefile: 121
file content (19 lines) | stat: -rw-r--r-- 555 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
PROGRAM(Gdk_Atom);
// An X-atom. You most likely want to use GDK.Atom.atom_name 
// instead of Gdk_Atom(name).
FUNCTION(create, "function(string,int|void:void)");
NAME_ARGS(atom_name, only_if_exists);
{
  char *atom_name;
  int only_if_exists;
  get_all_args("GDK.Atom( string, int )",args,"%s%d",&atom_name,&only_if_exists);
  THIS->obj = (void *)gdk_atom_intern( atom_name, only_if_exists );
  pop_n_elems(args);
  push_int(0);
}

FUNCTION(get_name, "function(void:string)");
{
  pop_n_elems(args);
  push_text( gdk_atom_name( (GdkAtom)THIS->obj ) );
}