comparison src/frame-x.c @ 227:0e522484dd2a r20-5b12

Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 12579d965149
children b2472a1930f2
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
538 #endif 538 #endif
539 if (EQ (property, Qleft) || EQ (property, Qtop)) 539 if (EQ (property, Qleft) || EQ (property, Qtop))
540 { 540 {
541 Position x, y; 541 Position x, y;
542 if (!XtWindow(shell)) 542 if (!XtWindow(shell))
543 return make_int (0); 543 return Qzero;
544 x_get_top_level_position (XtDisplay (shell), XtWindow (shell), &x, &y); 544 x_get_top_level_position (XtDisplay (shell), XtWindow (shell), &x, &y);
545 FROB (Qleft, make_int (x)); 545 FROB (Qleft, make_int (x));
546 FROB (Qtop, make_int (y)); 546 FROB (Qtop, make_int (y));
547 } 547 }
548 #if 0 548 #if 0