Mercurial > hg > xemacs-beta

comparison src/EmacsFrame.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children 6a378aca36af
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
493 _CvtStringToScrollBarPlacement (XrmValuePtr args, /* unused */ 493 _CvtStringToScrollBarPlacement (XrmValuePtr args, /* unused */
494 Cardinal *num_args, /* unused */ 494 Cardinal *num_args, /* unused */
495 XrmValuePtr fromVal, 495 XrmValuePtr fromVal,
496 XrmValuePtr toVal) 496 XrmValuePtr toVal)
497 { 497 {
498 #if 0
499 /* Martin, this is broken. Please fix it. */
498 XrmQuark q; 500 XrmQuark q;
499 char *lowerName = (char *) alloca (strlen ( (char *) fromVal->addr) + 1); 501 char *lowerName = (char *) alloca (strlen ( (char *) fromVal->addr) + 1);
500 502
501 XmuCopyISOLatin1Lowered (lowerName, (char *) fromVal->addr); 503 XmuCopyISOLatin1Lowered (lowerName, (char *) fromVal->addr);
502 q = XrmStringToQuark (lowerName); 504 q = XrmStringToQuark (lowerName);
514 return; 516 return;
515 517
516 toVal->addr = NULL; 518 toVal->addr = NULL;
517 toVal->size = 0; 519 toVal->size = 0;
518 XtStringConversionWarning (fromVal->addr, "scrollBarPlacement"); 520 XtStringConversionWarning (fromVal->addr, "scrollBarPlacement");
521 #endif
522 #define done(address, type) \
523 toVal->size = sizeof(type); \
524 toVal->addr = (XtPointer) address; \
525 return /* `;' supplied by caller */
526
527 XrmQuark q;
528 char lowerName[1000];
529
530 XmuCopyISOLatin1Lowered (lowerName, (char*)fromVal->addr);
531 q = XrmStringToQuark(lowerName);
532 if (q == XrmStringToQuark ("top_left"))
533 {
534 cvt_string_scrollbar_placement = XtTOP_LEFT;
535 done (&cvt_string_scrollbar_placement, unsigned char);
536 }
537 if (q == XrmStringToQuark ("bottom_left"))
538 {
539 cvt_string_scrollbar_placement = XtBOTTOM_LEFT;
540 done (&cvt_string_scrollbar_placement, unsigned char);
541 }
542 if (q == XrmStringToQuark ("top_right"))
543 {
544 cvt_string_scrollbar_placement = XtTOP_RIGHT;
545 done (&cvt_string_scrollbar_placement, unsigned char);
546 }
547 if (q == XrmStringToQuark ("bottom_right"))
548 {
549 cvt_string_scrollbar_placement = XtBOTTOM_RIGHT;
550 done (&cvt_string_scrollbar_placement, unsigned char);
551 }
552 XtStringConversionWarning (fromVal->addr, "scrollBarPlacement");
553 toVal->addr = NULL;
554 toVal->size = 0;
555 #undef done
519 } 556 }
520 557
521 static void 558 static void
522 EmacsFrameClassInitialize (void) 559 EmacsFrameClassInitialize (void)
523 { 560 {