home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Colors.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  6.4 KB  |  18 lines  |  [TEXT/.Ob4]
  1. ¯6P    ˇ»!8¿∂o „ÙColorsÇà*xeΩÉLoadOpen*Ñ Ö;‚ÜDisplay2ˆßæTexts6e∏uFiles;‚WêFonts2¯"TextFrames;ı‰ƒViewers;˜ê
  2. MenuViewers2ˆÊÃOberon;‚WêInputÜ&ˇé˚æ˚∏ˇÀˇ¿
  3. ˇ™ˇ@ ˇàˇÇˇˇxˇ?ˇcˇˇ6ˇ(ˇ?˛˜˝¸ ¸ñˇ˛{    ¸|¸˚ˇ?˝üˇˇ˚i˝˚´˚ò˚긷¸Ÿ    ¸ ˚£˚n˚d ˚ZáColorsSystem.Close  System.Copy  System.GrowColorøÄCC0ÄC0C0C no name not foundColors.Load à|¶øÅˇêî!˛H;·8êA;¿;†ìø`ìø(ìøìøìø 8bÄǡ–ÄÑˇ–8¢ˇ∏8¿
  4. ÄBˇ–HÄAÄ¢ˇËÉ≈d8Ĭˇ–Äܡ‘ ûÄæ ûÄfi ÄBˇ–HÄA8Ä‚ˇ–ÄᡑÄBˇ–HÄA©8,à@Ê 8bÅ"ˇ–Ä⡖8øT8¿ÄBˇ–KˇˇµÄA8T8ÄÄBˇ‘HÄA;£/A˙®8\ÅBˇ‘ÄäˇÙ8Ω8¿ÄBˇ‘HÄA;Ä8\Åbˇ‘ÄãˇÙ8ømÄBˇ‘HÄA8\Åǡ‘ÄåˇÙ8ønÄBˇ‘Kˇ˛·ÄA8\Äǡ‘ÄÑˇÙ8øoÄBˇ‘Kˇ˛≈ÄA8|àümàønàfloÄBˇÃHÄA3ú/ú@˛ˇàC‡$8bÄ¢ˇ–ÄÖˇ–8¢ˇ¨8¿ ÄBˇ–KˇˇAÄAC‡$8bĬˇ–Äܡ–8¢ˇ†8¿    ÄBˇ–Kˇ˛]ÄA8bÄ‚ˇ–ÄᡖÄBˇ–HÄAÅˇËÄh`ÄÇÄBˇ–HÄAÄàÄ!|¶ªÅˇO‡ |¶ø·ˇ¸9ÅˇËHêî!ˇ∏;·8êAˇ‡ê¿"ˇúÏAÚ¸`éˇ¿Lˇ‡L»Çˇê¸§*ÿ¢0¸é®b6C‡‡ÄÄ!9ÅˇËH|¶ª·ˇ¸O‡ |¶ø°ˇÙêî!ˇ®;·HêA;£;ƒ®} êˇ¸¿=Kˇˇe8Éġ¸êˇ¸êüˇ¯¿=KˇˇM8£Äüˇ¯Äˇ¸êˇ¸êüˇ¯êøˇÙ¿=Kˇˇ-8√ÄøˇÙÄüˇ¯Äˇ¸ÄBˇÃKˇ˛çÄAÄÄ!|¶ª°ˇÙO‡ |¶øÅˇ9Åˇ‡H} &êë!î!ˇ†;·8êA;£;ƒ®} 8ü8ø8flÄBˇÃHÄA;ÄN`Ç,ú@‰ê ºWä:|=T.Kˇ˛ëlkÄëbˇå»¬ˇà»‚ˇÄˇÊ8( ºWå<|bÆldÄêǡå…ˇà…"ˇÄ˝HH(ˇPA˙<N`B ºWÖ: ºWÜ<|ˇ2ÆlËÄëˇå…bˇà…ǡĽ´`(¿ˇ|Ï-$|=-.3úC‡ˇp} &U#߲C‡‡Ä0Å_,Ä!9Åˇ‡H|¶}OÒ ªÅˇO‡ |¶ø!ˇ‰êî!ˇò;·8êA;√ û©~ }lp3å ûWÉ:®û c ;@;† û ∫WE<|fi*≥¶ û®~ û®û
  5. û®æ û®fiÄBˇËHÄA/ö@¸Ù û®˛lËÄëˇå»Bˇà»bˇÄ¸Ç( û ∫WI:}^J¿™ Ïƒr¸‡éˇ¿Lˇ‡L…ˇê˝(0*Ÿ"0¸=é´"63{ˇˇ,õ@Ê3úˇˇ0z û©~|ãÍ û®æ
  6. 8‹8˘9ÄBˇÃHÄA8` û©û|åÍ û®æ
  7. |• 8‹ û®˛|˘89ÄBˇÃKˇ˙±ÄAΩ‚3Z û ∫WH<}>B≥©C‡ˇ û®~, û©^|äÍ û®æ
  8. û©~ |›X û®˛9ÄBˇÃKˇ˙uÄAÄ8Ä!|¶ª!ˇ‰O‡ |¶øÅˇ9Åˇ‡Hêî!ˇê;·8êA;√∞üT∞øXêfl\Éø\ û©û®T|å∞üT;Ä û9ˇ¸9> Ä©Ä…ê®Ñ©î»Ä…ê®ê»/A˘, û ºWä<}~R©ã®Tå@¸ 3úC‡ˇ‘,úAƒ3úˇˇ√‚ˇx8\8üT8øXÄBˇÏHÄAÄü\Ω#xÄ¢ˇË8e,ĬˇËÄܡËÄ‚ˇË8ß,ÅˇËÄ»ˇÏ®ˇT©XÄBˇËHÄA û©>
  9. ©_X}iP±X©üX/ @¯8`∞XC‡$ û®üX®æÑ(@˝ û®fi∞flX û ºWá:}:©?Xm*ÄëBˇå…Bˇà…bˇÄ˝äX( û©~mlÄëÇˇå…¢ˇà»ˇÄ¸-(ÏL$–H  û ºWÉ:|û¿d ¸É¯AÊ\ û8~ Äǡ¯Kˇ˙± û ºWÖ:|fi*√Ê  û®~ û®û
  10. û®æ û®fiÄBˇËKˇ˚MÄA0| û û ºWá<}:©>©H|âR û®æ
  11. û1| ´Ul<|fib û ºWá<}:©(©F|…P®ˇX9ÄBˇÃKˇ˙ÄA8` û û ºWã<}ûZ®û®¨|Ñ* û®fi
  12. ®ˇX|¶: û1 ®U    <}^J û ºWã<}ûZ®Ã®Í|Δ8 û©X©>|ËH9ÄBˇÃKˇ˜ÅÄA8Äǡ¸ÄBˇ‡HÄAÅ_\/
  13. @˙˝ò=` ùXA˛D û8fi8ˇÄgÄáêfÑgîÜÄáêfêÜ8Äǡ¯Kˇ˘8~Kˇ˙≈Ä@Ä!9Åˇ‡H|¶ªÅˇO‡ |¶øaˇÏêî!ˇ†;·8êA;√;Ñ;•;`Åˇ¸Å"ˇÅHˇÙjHÅbˇËÅãˇ‰Ä}ˇÙ|É`@Ê|ÄǡËħˇ‰Ä›ˇÙf(®¸/@˙\Å/à@˛<Å"ˇË8i,ÅBˇËÄäˇËÅbˇË8´,ÅǡËÄÃˇÏ®¸©ÄBˇËKˇ¯ıÄAC‡8~®ú®ºÄ‹Kˇ˚πC‡Äbˇ¸ÄùˇÙ|Ñ@Ê( û8~ Äǡ¯Kˇ¯©/A˙8~Kˇ˘µC‡–Ä¢ˇËÄ≈ˇÙÄ˝ˇÙá0@˛xÄbˇÄBˇ»HÄA;c õÅˇ¸Å"ˇhH û8{ˇ¸8û9@}I¶ÅDÅdëCÖDïcÅdBˇëCëcÄ¢ˇËÄ≈ˇÙÄ˝ˇÙg0ì|C‡HÅˇ‰Å(ˇ¸Å]ˇÙ|äH@Ê4Åbˇ‰Åãˇ¸Ä}ˇÙc` û®ú∞û
  14. û®º∞æ8~Kˇ¯ÂÄ0Ä!|¶ªaˇÏO‡ |¶øÅˇ|¿&êê¡î!ˇò;·8êA;√/Nz–B;†;Ä≥fl8Äǡ¯Kˇ˜q/ÉN^BÄbˇÄBˇ»KˇıYÄA;£ ù9]9ÄÎÅ êÍÑÎï
  15. Å êÍë
  16. ù=Ä8lê}ê]Äǡˮd>8ü8øÄBˇËHÄA8bˇp8Ä8¢ˇH8¿'ÄBˇ‹HÄA8ùÄ¢ˇ‹®•®fl®ˇÄBˇ‰HÄA;É8bĬˇ–Äܡ–8† ÄBˇ–HÄA8bÄ‚ˇ–Äᡖ8æ8¿ÄBˇ–HÄA úÅÅ(ˇ¸ÅBˇ‹ÅjˇËÅâˇÙlXÄ| ÉÄc8ÄÄ¢ÄBˇ–HÄAÄ8Ä4Ä!|¶|oÒ ªÅˇO‡ |¶ø!ˇ‰êî!ˇò;·8êA;√ û´~ û®û õD⁄◊@‡3Zˇˇ û|∫Ÿ÷®fi Ö0;†; 3Z|ùÿ@‰h û ΩWß<}:≥(/@˙3Zˇˇ8} û©>|â  û®æ
  17. 8⁄ û®˛9ÄBˇÃKˇˆ˝ÄA9“3Ω3úˇˇC‡ˇòÄ8Ä!|¶ª!ˇ‰O‡ |¶øÅˇêî!ˇ∞;·8êA;√∞ü4∞ø8êfl<Éø<8<8ü48ø8ÄBˇÏKˇ˘1ÄAÅ_<ΩSxÅbˇË8k,ÅǡËÄåˇËÄ¢ˇË8•,ĬˇËÄΔˇÏ®ˇ4©8ÄBˇËKˇıÕÄAġ</á@˛ˇ§= |ù@AÊ= ÄH@˙l;Ä û©^©4}äX±ü4 û®~ú@¸, û ºWÑ<|æ"®≈®ˇ4|Ü8@‰ 3úC‡ˇÃ0|ˇˇ= @} &U$fl˛Kˇ¸ëÄ Ä!|¶ªÅˇO‡ |¶øaˇÏêî!ˇ®;·8êA;√;Ñ;•;`Å^ˇ¸ÅbˇÙÅäˇÙlXÄbˇËÄɡ‰ÄΩˇÙÖ @˛|ĬˇËÄÊˇ‰ÅˇÙh8©<,â@Ê\Å\/
  18. @˙<ÅbˇË8k,ÅǡËÄåˇËÄ¢ˇË8•,ĬˇËÄΔˇÏ®¸©ÄBˇËKˇÒµÄAC‡8~®ú®ºÄ‹Kˇ˛%C‡‡Ä‚ˇËÅˇÙÅ=ˇÙâ@@˛àÄbˇÙÄBˇ»KˇÙAÄA;c õÅ[ˇ¸ÅbˇÙjX û8€ˇ¸8˛8`B|i¶ÄgÄáêfÑgîÜÄáBˇêfêÜ8Á8Δ |g$™|f%™ÅˇËÅ(ˇÙÅ]ˇÙjHì|C‡HÅbˇ‰Åãˇ¸Ä}ˇÙ|É`@Ê4Äǡ‰Ä§ˇ¸Ä›ˇÙf( û®¸∞˛
  19. û©±8~Kˇ¸mÄ(Ä!|¶ªaˇÏO‡ |¶øÅˇêî!˛X;·8êA;¿;†ìø ìøìø ìø8Å"ˇ–Ä⡑ÅBˇËÄ™d ÖÄ•ÅbˇËÄÀd ÜÄΔ ÄBˇ–KˇˇÖÄA8Åǡ–Äåˇ‘ÄBˇ–KˇˇmÄA®0/@˙ Éü4C‡;ÄÄǡˮd>8üX8øZÄBˇËKˇÛ·ÄAÄbˇÙÄBˇ»Kˇ-ÄA;√ û<†8≈êfiê^ û≥û8bˇ@8Ä8¢ˇH8¿'ÄBˇ‹KˇÛ≈ÄA8ûÄ‚ˇ‹®ß®flX®ˇZÄBˇ‰KˇÛ•ÄA;£ÄxÄ!|¶ªÅˇO‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8Äǡ¸ÄBˇ‡KˇˆÈÄAÄÄ!|¶ª·ˇ¸O‡ |¶ø·ˇ¸êî!ˇ¿;·8êA8bÅˇ–Äàˇ–ÄBˇ–HÄAÅ"ˇËÄiˇ‡ÄBˇ»KˇÓùÄAêb ÅB  ä=`9ãëä êJÄb  É8ÄòÉÄb ÄBˇËHÄAÄ¢ˇÃÄ≈$ê¬$Ä‚ˇÃÅ(ë(Å"ˇÃÅI,ëB,ÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇ¯Msgˇ¯ˇˇˇˇColorˇÙˇÙFrameDesc0ˇˇÙEditFrameDescäôfiÁÚÙ $&(*189KNWZ^ghmortwè≈–’ÿŸ‚ÎÏÚˆ˜˚˝ˇ    #$%+/145;Nr{ö≠∞±¬ÕŒ—Û˛)/1FHJNWX`cfü§®© ”¯˚¸ ;?\aõ°ã¯ÖÄ8LoadÔblue„{col
  20. ‚{fÓgreen
  21. ·{parÌred¯°8Int†{v¯«»UpdateDisp¯é(8Changeå{change„{i†{v¯Ç08ShowRGB
  22. ·{fÊ{hÂ{i‰{r„{w‚{x¯Â88EditRGB
  23. ·{f„{i    ‚{keySum    ‹keys†{last‘xÿy¯€(8HandleEdit
  24. ·{f
  25. ‰{frame¯ø08EditColor·{colNrç{dummy
  26. ‚{få{rgb
  27. „{vxy¯ı08Show
  28. ·{f‚{i‰{n„{rÂ{wÊ{x¯Ω8Edit
  29. ·{f„{i    ‚{keySum    <keys4x8y¯™ 8Handler
  30. ·{f
  31. ‰{frame¯¯8Open
  32. ·{f„{n
  33. ‚{vÿx⁄y¯à    8Activate¯∂    8$$
  34.  task