跳转到内容

Rebol 编程/scroll-face

来自维基教科书,开放的书籍,开放的世界
SCROLL-FACE face offset /x /y /no-show 

滚动一个面。默认是垂直的。

SCROLL-FACE 是一个函数值。

  • face -- (类型:任何)
  • offset -- (类型:数字)
  • /x -- 在宽度方向滚动
  • /y -- 在高度方向滚动
  • /no-show -- 暂时不显示更改

源代码

[编辑 | 编辑源代码]
scroll-face: func [
    "Scroll a face. Default is vertical." 
    face 
    offset [number!] 
    /x "Scroll in width direction" 
    /y "Scroll in height direction" 
    /no-show "Do not show change yet" 
    /local access
][
    if all [
        access: get in face 'access 
        in access 'scroll-face*
    ] [
        access/scroll-face* face offset x y
    ] 
    if not no-show [show face] 
    face
]
华夏公益教科书