home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / ClockElems.Obj < prev    next >
Encoding:
Text File  |  1996-01-25  |  6.2 KB  |  16 lines  |  [TEXT/.Ob4]
  1. ¯6m
  2. 
  3. ˇ»àk$< NpClockElemsÇFŸ¿é≈w,B†›ÉInsertŸNew¿ÑÙÖ$ !Texts$…¢ãFiles;‚WêFonts;‚ÜDisplay$ÀúcTextFrames$Õñ;TextPrinter"…}nMath$ `<Oberon;ı‰ƒViewers$Ù…/PrinterÜˇÏˇ‹    ˇΔˇï˛‚
  4. ˛≈
  5. ˛≠    ˝{˝w˝B    ˝#˝ˇˇ˚´¸Ù¸›¸Ÿ¸≥
  6. ¸Ñ¸y¸I    ¸W¸0ˇ¸$¸¸˚”ˇ?˚æ˚¢ ˚úáGå†A33NewClockElems???C0?=÷wPC0ÄC0=÷wPà|¶ø¡ˇ¯êî!ˇ∞;·@êA;¿,û<@‰à æ<W√:êˇ¸oƒÄêǡº»"ˇ∏»Bˇ∞¸a(¿ÇˇƒÏ$ÚÄBˇ‰HÄAġ¸|". æ<W≈:|¬*êflˇ¸o«Äê‚ˇº»¢ˇ∏»¬ˇ∞¸Â0(¡ˇ¨Ï(ÚÄBˇ‰HÄAÄflˇ¸–&3fiC‡ˇxÄÄ!|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∞;·8êA;£;ƒ8}8ù ÄBˇËHÄAÉùWàæ±â6pU*æ±]ãfpUl˛±ù®}8Ä |"◊|†¶@‡0• ≈®˝9 }'B◊@‡1)ˇˇ}FJ±]ìùÄ Ä!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∞;·8êA;£;ƒ©}Ul02®}|åTÖ02®›Ö28|Äù ÄBˇËHÄAÄ Ä!|¶ªÅˇO‡ |¶ø!ˇ‰êî!ˇ†;·@êA;√;§;Ö;f;G;(롸8z8û8º8ŸÄBˇÿHÄA8z8û8ª8ŸÄBˇÿKˇ˝ÒÄA8z8ù8º8ŸÄBˇÿKˇ˝’ÄA8z8ù8ª8ŸÄBˇÿKˇ˝πÄAÄ(Ä!|¶ª!ˇ‰O‡ |¶æ°ˇ‘êî!ˇà;·8êA;√;§;Ö;f;G;<;0˘ˇˇT˜8W82»Wâ:"©¿@˘h|y|û |∏Ë|›¬8˚99Kˇ˛Ÿ|x|û¬|πË|› 8˚99Kˇ˛π~µ≤2÷3/ïA¸~∑®2˜ˇ¯39ˇˇC‡ˇò|ô¿@Ê$|y|û |∏Ë|›¬8˚99Kˇ˛mÄHÄ!|¶∫°ˇ‘O‡ |¶æaˇÃêî!ˇÄ;·8êA;√;§;Ö;f;G;(}]ÿ}|
  7. X@¯;;‹;ò:˝;ª;w}û‡Uñ<|}ÿTu<;:˝:`ï∞@˝\~¥p,ñ@‰ :`ˇˇ~÷–ÿA˘<8z8ò8∑8ŸÄBˇÿKˇ˝ùÄA2˜~ñ†/î@¸ ~î™öC‡ˇƒC‡X~‘p,ï@‰ :`ˇˇ~µ–‡A˘<8z8ò8∑8ŸÄBˇÿKˇ˚·ÄA3~ï†/î@¸ ~î≤~˜öC‡ˇƒÄPÄ!|¶∫aˇÃO‡ |¶øAˇËêî!ˇ∞;·8êA;√;§;Ö;f;G8~8ù8ºÄBˇHÄAÄ Ä!|¶ªAˇËO‡ |¶ø!ˇ‰êî!ˇ®;·8êA;√;§;Ö;f;G;(8~8ù8º8€ÄBˇHÄAÄ(Ä!|¶ª!ˇ‰O‡ |¶æ°ˇ‘êî!ˇê;·8êA;√;§;Ö;f;G;( û8†<|*◊¿¶@‡3fi<ofÄê¬ˇº…"ˇ∏…Bˇ∞˝iP( æ<W«:}:¡à¡¢ˇ®Ï k:¸ éˇ¿Lˇ‡L»Bˇ†¸b*ÿb¸é´oiÄë"ˇº»Çˇ∏»¢ˇ∞¸ƒ(( æ<W :|‚T.¡ˇúÌ&A˙˝@éˇ¿Lˇ‡L…bˇ†˝ãH*ŸÇ¸U陂oKÄëbˇº…¢ˇ∏»ˇ∞¸-( æ<WÃ:|bb¿C¿bˇòÏÅ∫¸†éˇ¿Lˇ‡L»¬ˇ†¸Ê *ÿ‚¸-陬oDÄêǡº…ˇ∏…"ˇ∞˝HH( æ<W≈:}b,.¡ÇˇîÌ™b˙¸éˇ¿Lˇ‡L»"ˇ†¸Ah*ÿB¸院|}¬|ú∫|Ω≤|‹™8˘9į|    ¶ÄB¸O‡!ÄAÄ@Ä!|¶∫°ˇ‘O‡ |¶æ°ˇ‘êî!ˇê;·8êA;£;ƒ;Ö;f;G;(,ö A‰Ï⁄8‡ :◊@‡3ˇˇ    9  ~ËJ◊@‡2˜ˇˇZ
  8. 9` ~ Z◊@‡2÷ˇˇ:†/<@¯(8u8ú8ª8◊8˙9Kˇ˝π2µC‡ˇÿ®}8ú8ª|⁄∏8ˆ9Kˇ˝ï®}8ú8ª8¿8˜9Kˇ˝y®}8ú8ª8¿8¯9Kˇ˝]8|8õ8†8Ÿ8‡Ä|    ¶ÄBO‡!ÄA8|8õ8∫8Ÿ8‡Ä|    ¶ÄBO‡!ÄAÄ@Ä!|¶∫°ˇ‘O‡ |¶æÅˇ–êî!ˇê;·8êA;£;ƒ;e;Ü;G;(;    :Í/ò A¸ò8` ~Ã◊@‡2÷ˇˇò    8† ~§*◊@‡2µˇˇÿ
  9. 8‡ ~Ü:◊@‡2©©;|àHAÊ<®}8ö8π|ÿ®8Ù9Kˇ¸Q®{8ö8π|ÿ®8Ù9Kˇ¸5©]©{
  10. XA˙<®}8ö8π8¿8ı9Kˇ¸    ®{8ö8π8¿8ı9Kˇ˚Ì©ù®{åA˛<®}8ö8π8¿8ˆ9Kˇ˚¡®{8ö8π8¿8ˆ9Kˇ˚•Ä@Ä!|¶∫Åˇ–O‡ |¶ø!ˇ‰êî!ˇà;·8êA;√;Ñ;•;@Äǡ¯ÄΩˇÙ|Ö @Êå<¿8ÊꂯêB¸=9(ë"êBû©^ }[p8b‰Äǡ¸Åbˇ¯ÅùˇÙlX8ºÄ¬ˇ¸û®˛|Á⁄û©
  11. }⁄9;Å^ˇ¸ÅbˇÙÅäˇÙlXûâ^}JtKˇ˝·C‡hÅbˇËÅãˇ‰Ä}ˇÙ`@˙TÄǡËħˇ‰Ä›ˇÙf(®¸/á@˛8ÅˇË8h,Å"ˇËÄâˇËÅBˇË8™ ÅbˇËÄÀˇÏ®¸©ÄBˇËHÄAÄHÄ!|¶ª!ˇ‰O‡ |¶ø!ˇ‰êî!ˇò;·8êA;√;Ñ;•;`;@Åǡ‹Älˇ¸ÄùˇÙ|Ñ@ÊÄ¢ˇ‹Ä≈ˇ¸Ä˝ˇÙg0â!(/    A˙‰=@9jëb¯êB¸=Ä8lêbêBûÄû8†'|ƒ*◊@‡0Δˇˇ0Êˇˇ|Ëp;(8b‰Äǡ¸©<|© ©\|  8˘â|}htKˇ˚=ÄbˇÙÄBˇ»HÄA;Cö©ú±öö®|∞z
  12. öW$<0§∞∫ öö®⁄ ∞⁄ö<‡9ëêZöâ<}*tôZì\C‡–Åbˇ‡Åãˇ¸Ä}ˇÙÉ`@˛îÄǡ‡Ä§ˇ¸Ä›ˇÙf(à¸!,àAÊp= 9IëB¯êB¸=`9ãëÇêBûÄ~8Ä Ë|£"◊@‡0•ˇˇ0≈ˇˇ|«p;'8b‰Äǡ¸©|® ©<|… 8˘â\
  13. }HtKˇ˙%C‡,ÅbˇÃÅãˇ‰Ä}ˇÙ`@˙HÄǡÃÄdˇÏÄBˇ»KˇÙÄA;c8~8õÄBˇÃHÄAÄ¢ˇÃÄ≈ˇ‰Ä˝ˇÙg0ì|C‡‘ÅˇÃÅ(ˇ‹Å]ˇÙäH@˛HÅbˇÃÅãˇ‹Ä}ˇÙc`8¸ˇ¸9ˇàÄàÄ®êáêß98Á |à™|á™ÅǡÑëú C‡|ÄbˇÃÄɡ‡ÄΩˇÙ|Ö @ÊhĬˇÃÄÊˇ‡ÅˇÙh8©</    @˙$8|ÅBˇ–ÄäˇÙ8ø
  14. ÄBˇ–HÄAC‡,©|/ã@˛ 8|Åǡ–ÄåˇÙ8†ÄBˇ–HÄAÄ8Ä!|¶ª!ˇ‰O‡ |¶ø·ˇ¸êî!ˇ∞;·8êAÄBˇËHÄAÄLJ|É A‰à8Äǡ¸KˇÚMÄøĬÏ0A˙XÄBˇËKˇÒ≠ÄA0„ꂇ8Äǡ¯ÄBˇÏHÄA9b‡9üÅ Å,ë Ö ï+Å,ë ë+C‡ÄBˇËKˇÒyÄA0cêb‡Ä Ä!|¶ª·ˇ¸O‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄǡÃÄdˇÏÄBˇ»KˇÚÂÄAÄ¢ˇÃêeĬˇÃÄÊá=9(ë'êG ÄÄ!|¶ª·ˇ¸O‡ |¶ø°ˇÙ9Åˇ‡Hêî!˛P;·8êA;†ìø\ìø$ìøìø ìø8ÅBˇÃÄ䡑ÅbˇËÄ´dÖÄ•ÅǡËÄÃdÜÄΔ ÄBˇÃHÄA8ÄǡÃÄÑˇ‘ÄBˇÃHÄA®ø2/Ö@˛8®fl4,Ü@Ê,ġ8/@˘ Å8m    Äë"ˇº»bˇ∏»Çˇ∞ˇ„ (C‡8©_2/ä@˛(©4,ã@Ê¿ø<¿¬ˇÄˇ0@˘ √ˇ<C‡√‚ˇ|¿‚ˇxÌÚ˝ éˇ¿Lˇ‡L…Bˇ†˝j@*Ÿb¸Méɬ ÅǡÃÄlˇÏÄBˇ»Kˇ›ÄA;£ùì›ùì›ù<`8Éêùê] ìø\Ä¢ˇËÄe\8ü\Ĭˇ‹Ä¶ˇ‰Ä‚ˇËÅ\àÄ|    ¶ÄHO‡!ÄAÄÄÄ!9Åˇ‡H|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAKˇÓ—9 ë"‡8b‰Äǡ¸KˇÔyÅBˇËÄjˇ‡ÄBˇ»KˇÔmÄAêbÙÅbÙã9ÄôãÄbÙÉ<Ä8§ê£ êCÄbÙÄBˇËHÄAÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇˇˇˇTimeˇ¯ˇ¯NotifyMsgˇÙˇÙä    qÑñ©çîóö°¢Øÿ½ +R]sœÏ(*,9Y]ã¯/¿Initi·{¯Ÿ8GetTimet„{time‚{|¯Ú8SetTimet„{time‚{|¯† ¿Dot4colorÂ{modeÊ{x1·{x2‚{y1„{y2‰{¯›¿8SCirclecolor‰{dÍ{dxË{dyÈ{modeÂ{r„{xÊ{x0·{yÁ{y0‚{¯¨»8SLinecolorÂ{dÎ{dxÈ{dyÍ{incÏ{modeÊ{xÁ{x1·{x2„{yË{y1‚{y2‰{¯¬8PCirclecolor‰{modeÂ{r„{x0·{y0‚{¯⁄ 8PLinecolorÂ{modeÊ{x1·{x2„{y1‚{y2‰{¯Δ88Line2ang·{colorÊ{r1‰{r2Â{x0‚{x1Á{x2È{y0„{y1Ë{y2Í{¯ù88DrawcolorÊ{iÍ{rÂ{rhÁ{rmË{rsÈ{time‚{|x0„{y0‰{¯˜88UpdatecolorË{new‰{|old‚{|rÁ{rhÈ{rmÍ{rsÎ{x0Â{y0Ê{¯≈¿8HandleFrameF·{tVÂ{    |chÊ{msg„{xnew |r‰{¯é08HandleElemCopyOfE‰{lE·{lFÂ{tch
  15. msg„{prÊ{¯¿8Clockmsgx¯Ÿ8New¯Δ¯8InsertE‚{lSTm‹dr†{w·{¯Î8$$CircleÄ%Line¯*TaskÙ`cos<old‰|sin<wakeUp‡˜
  16. TimesecminhourhourmtimeStampdateStamp ˜ NotifyMsgnew|˜ col