XWorkstation.st
changeset 2176 80290576c9db
parent 2156 0cb3b353630f
child 2195 f64b74292537
equal deleted inserted replaced
2175:937ed0f8c84a 2176:80290576c9db
  8395      && ISCONNECTED
  8395      && ISCONNECTED
  8396      && (__isString(anObject) 
  8396      && (__isString(anObject) 
  8397          || __isSmallInteger(anObject) 
  8397          || __isSmallInteger(anObject) 
  8398          || __isSymbol(anObject) 
  8398          || __isSymbol(anObject) 
  8399          || __isByteArray(anObject)
  8399          || __isByteArray(anObject)
  8400          || __isWords(anObject))) { 
  8400          || __isWords(anObject))) {
  8401 
  8401 
  8402         Display *dpy = myDpy;
  8402         Display *dpy = myDpy;
  8403         Atom prop, type;
  8403         Atom prop, type;
  8404         Window window;
  8404         Window window;
  8405         unsigned INT value;
  8405         unsigned INT value;
  8430                     XChangeProperty(dpy, window, prop, type, 16,
  8430                     XChangeProperty(dpy, window, prop, type, 16,
  8431                                     PropModeReplace,
  8431                                     PropModeReplace,
  8432                                     __stringVal(anObject),
  8432                                     __stringVal(anObject),
  8433                                     __wordArraySize(anObject));
  8433                                     __wordArraySize(anObject));
  8434                 } else {
  8434                 } else {
       
  8435 		    /* must be string or symbol */
  8435                     XChangeProperty(dpy, window, prop, type, 8,
  8436                     XChangeProperty(dpy, window, prop, type, 8,
  8436                                     PropModeReplace,
  8437                                     PropModeReplace,
  8437                                     __stringVal(anObject),
  8438                                     __stringVal(anObject),
  8438                                     __stringSize(anObject));
  8439                                     __stringSize(anObject));
  8439                 }
  8440                 }
  9903 ! !
  9904 ! !
  9904 
  9905 
  9905 !XWorkstation class methodsFor:'documentation'!
  9906 !XWorkstation class methodsFor:'documentation'!
  9906 
  9907 
  9907 version
  9908 version
  9908     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.284 1998-06-17 18:25:57 cg Exp $'
  9909     ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.285 1998-07-17 10:14:04 cg Exp $'
  9909 ! !
  9910 ! !
  9910 XWorkstation initialize!
  9911 XWorkstation initialize!