0

我想在 GUI 启动时触发警报。我在 Rebol VID 中看不到其他语言的加载事件的等价物,所以我把它放在了相当迂回的周期性处理程序中。那么如何更干净地做到这一点?

alarm-data: none

set-alarm: func [
    "Set alarm for future time."
    seconds "Seconds from now to ring alarm."
    message [string! unset!] "Message to print on alarm."
] [
    alarm-data: reduce [now/time + seconds  message]
]

ring: func [
    "Action for when alarm comes due."
    message [string! unset!]
] [
    set-face monitor either message [message]["RIIIING!"]
    ; Your sound playing can also go here (my computer doesn't have speakers).
]

periodic: func [
    "Called every second, checks alarms."
    fact action event
] [
    either alarm-data [
        ; Update alarm countdown.
        set-face monitor rejoin [
            "Alarm will ring in " 
            to integer! alarm-data/1 - now/time
            " seconds."
        ]

        ; Check alarm.
        if now/time > alarm-data/1 [
            ring alarm-data/2
            ;alarm-data: none ; Reset once fired.
        ]
    ][
        either value? 'message [
            set-alarm seconds message
        ][
            set-alarm seconds "Alarm triggered!"
        ]    
    ]
]

alarm: func[seconds message [string! unset!]][

  system/words/seconds: seconds
  if value? 'message [
    system/words/message: message
  ]

  view layout [

      monitor: text 256 "" 

      rate 1  feel [engage: :periodic]

      button 256 "re/start countdown" [
        either value? 'message [
            set-alarm seconds message
        ][
            set-alarm seconds "Alarm triggered!"
        ]
        set-face monitor "Alarm set."
      ]

  ]

]
4

1 回答 1

3

如果问题是如何在 gui 启动时发生某些事情,您可以这样做

查看布局 [文本“这是我的布局”

  do [
  .... initialization code ...    
  ] 

]

于 2010-05-25T10:08:26.543 回答