Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] face-offset face function

From: maximo::meteorstudios::com at: 7-Jan-2004 19:29

hi all, I just tought I'd share a little function I add to the base face object of many of my view windows... (use the 'with facet in VID) ;---8<--------------------------------------------- ;- face-offset () face-offset: function [/stop-face sface] [parent off][ parent: self off: 0x0 until [ off: off + parent/offset if parent/parent-face [ if parent/parent-face/edge [ off: off + parent/parent-face/edge/size ] ] (((parent: parent/parent-face) = sface) OR ( not parent )) ] off ] ;---8<--------------------------------------------- It is like the rebol win-offset function but includes the edge fix AND also includes a stop face. The stop-face refinement lets you supply any face so that you can get the offset of a face wrt to any of its parents (instead of only the window). As mentionned before, in its current format, it is intended to be included as a method of a face object, but can easiliy be made as a stand-alone function. cheers!!! -MAx --- happy like a busy bee cause I'm currently using rebol for my day job, full-time. :-)