Более элегантный способ запустить многопоточную сигнализацию в Rebol VID? (Что эквивалентно событию загрузки?) - PullRequest
Новая
       6

Более элегантный способ запустить многопоточную сигнализацию в Rebol VID? (Что эквивалентно событию загрузки?)

0 голосов
/ 24 мая 2010

Я хочу вызвать тревогу при запуске графического интерфейса.Я не могу увидеть, что эквивалентно событию загрузки другого языка в 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."
      ]

  ]

]

1 Ответ

3 голосов
/ 25 мая 2010

Если вопрос заключается в том, как заставить что-то произойти при запуске графического интерфейса, вы можете сделать это

просмотреть макет [текст "Вот мой макет" 

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

]

...