;;; Screen1
(do-after-form-creation (set-and-coerce-property! 'Screen1 'BackgroundColor #x00FFFFFF 'number)
(set-and-coerce-property! 'Screen1 'BackgroundImage "Wall.png" 'text)
(set-and-coerce-property! 'Screen1 'ScreenOrientation "portrait" 'text)
(set-and-coerce-property! 'Screen1 'Title "Horloge Nostale" 'text)
)
;;; Lod145
(add-component Screen1 Image Lod145 (set-and-coerce-property! 'Lod145 'Picture "Lod1-4-5.png" 'text)
(set-and-coerce-property! 'Lod145 'Visible #f 'boolean)
)
;;; Lod25
(add-component Screen1 Image Lod25 (set-and-coerce-property! 'Lod25 'Picture "Lod2-5.png" 'text)
(set-and-coerce-property! 'Lod25 'Visible #f 'boolean)
)
;;; Lod14
(add-component Screen1 Image Lod14 (set-and-coerce-property! 'Lod14 'Picture "Lod1-4.png" 'text)
(set-and-coerce-property! 'Lod14 'Visible #f 'boolean)
)
;;; Lod2
(add-component Screen1 Image Lod2 (set-and-coerce-property! 'Lod2 'Picture "Lod2.png" 'text)
(set-and-coerce-property! 'Lod2 'Visible #f 'boolean)
)
;;; Lod3
(add-component Screen1 Image Lod3 (set-and-coerce-property! 'Lod3 'Picture "Lod3.png" 'text)
(set-and-coerce-property! 'Lod3 'Visible #f 'boolean)
)
;;; LodF
(add-component Screen1 Image LodF (set-and-coerce-property! 'LodF 'Picture "LodFerm%C3%A9.png" 'text)
)
;;; ProchainCI
(add-component Screen1 Label ProchainCI (set-and-coerce-property! 'ProchainCI 'FontBold #t 'boolean)
(set-and-coerce-property! 'ProchainCI 'FontSize 30.0 'number)
(set-and-coerce-property! 'ProchainCI 'FontTypeface 1 'number)
(set-and-coerce-property! 'ProchainCI 'Text "Prochain CI :" 'text)
(set-and-coerce-property! 'ProchainCI 'TextAlignment 1 'number)
(set-and-coerce-property! 'ProchainCI 'TextColor #xFFFFFF00 'number)
)
;;; Heure
(add-component Screen1 Label Heure (set-and-coerce-property! 'Heure 'FontBold #t 'boolean)
(set-and-coerce-property! 'Heure 'FontSize 25.0 'number)
(set-and-coerce-property! 'Heure 'Text "Heure" 'text)
)
;;; Canaux
(add-component Screen1 Label Canaux (set-and-coerce-property! 'Canaux 'FontBold #t 'boolean)
(set-and-coerce-property! 'Canaux 'FontSize 30.0 'number)
(set-and-coerce-property! 'Canaux 'Text "Canaux :" 'text)
(set-and-coerce-property! 'Canaux 'TextColor #xFFFFFF00 'number)
)
;;; Canal
(add-component Screen1 Label Canal (set-and-coerce-property! 'Canal 'FontBold #t 'boolean)
(set-and-coerce-property! 'Canal 'FontSize 25.0 'number)
(set-and-coerce-property! 'Canal 'Text "Canal" 'text)
)
;;; Horloge
(add-component Screen1 Clock Horloge )
(define-event Horloge Timer()
 (set-this-form)
 (if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 14)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "16h00" 'text)

(set-and-coerce-property! 'Canal 'Text "4-5-1" 'text)

(set-and-coerce-property! 'LodF 'Visible #f 'boolean)

(set-and-coerce-property! 'Lod145 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 15)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Lod145 'Visible #f 'boolean)

(set-and-coerce-property! 'Lod2 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 16)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "18h00" 'text)

(set-and-coerce-property! 'Canal 'Text "5-1-2" 'text)

(set-and-coerce-property! 'Lod2 'Visible #f 'boolean)

(set-and-coerce-property! 'Lod3 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 18)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "20h00" 'text)

(set-and-coerce-property! 'Canal 'Text "1-2-3" 'text)

(set-and-coerce-property! 'Lod3 'Visible #f 'boolean)

(set-and-coerce-property! 'LodF 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 19)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'LodF 'Visible #f 'boolean)

(set-and-coerce-property! 'Lod14 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 20)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "22h00" 'text)

(set-and-coerce-property! 'Canal 'Text "2-3-4" 'text)

(set-and-coerce-property! 'Lod14 'Visible #f 'boolean)

(set-and-coerce-property! 'Lod25 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 21)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Lod25 'Visible #f 'boolean)

(set-and-coerce-property! 'Lod3 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 22)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "00h00" 'text)

(set-and-coerce-property! 'Canal 'Text "1-2-3" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 23)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Lod3 'Visible #f 'boolean)

(set-and-coerce-property! 'LodF 'Visible #t 'boolean)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 00)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "02h00" 'text)

(set-and-coerce-property! 'Canal 'Text "2-3-4" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 02)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "04h00" 'text)

(set-and-coerce-property! 'Canal 'Text "3-4-5" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 04)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "06h00" 'text)

(set-and-coerce-property! 'Canal 'Text "4-5-1" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 06)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "08h00" 'text)

(set-and-coerce-property! 'Canal 'Text "5-1-2" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 08)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "10h00" 'text)

(set-and-coerce-property! 'Canal 'Text "1-2-3" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 10)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "12h00" 'text)

(set-and-coerce-property! 'Canal 'Text "2-3-4" 'text)

)
)

(if (call-yail-primitive > (*list-for-runtime* (call-component-method 'Horloge 'SystemTime (*list-for-runtime*)
 '())
 12)
 '( number number)
 ">")
 (begin (set-and-coerce-property! 'Heure 'Text "14h00" 'text)

(set-and-coerce-property! 'Canal 'Text "3-4-5" 'text)

)
)