Celestin Apprentice 5

home *** CD-ROM | disk | FTP | other *** search

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / ScrollBars.Obj < prev next >

Wrap

Text File | 1996-01-25 | 9.4 KB | 26 lines | [TEXT/.Ob4]

¯6^ˇ‡ò â≤,am|ScrollBarsÇ2¶ëEßh»iãíô†1À k7ÉÑÖ;‚ÜDisplay;‚WêInput$ `<Oberon$ !Texts;‚WêFonts;ı‰ƒViewersÜ˝Uˇ≥ˇ†˙H˙r˙U˙ ˘ááà|¶æ¡ˇÿ}`&êëaî!ˇò;·8êA,ÉNf0B;ƒ;•;Ü;g;H;); @Û:‡:¿3Ω3úˇˇC‡:‡:¿8w8õ8∫8Ÿ8‡9ÄBˇ‰HÄA8w}õ 0åˇ˛0∫8¿0¯ˇ˛9ÄBˇ‰KˇˇÅÄA8v8õ0∫8¿0¯ˇ˛9ÄBˇ‰KˇˇYÄA8v0õ|∫¬0•ˇ˛0Ÿˇ¸8‡9ÄBˇ‰Kˇˇ5ÄA8v8õ0∫8¿ÄBˇ‰HÄA8v|€ 0Üˇ˛|˙¬0ßˇˇ8¿ÄBˇ‰Kˇ˛ÒÄA8`0õ0∫0Ÿˇ¸0¯ˇ¸9ÄBˇ‰KˇˇÄA/A˙$8`8û|ªÍ|⁄‚8‡ÄBˇ‰HÄAÄ8Å4Ä!|¶}Ò ∫¡ˇÿO‡ ø¡ˇ¯î!ˇ¿;·8;√ûÅ"ë>ûÅBë^û©b±~û©Çx±û$û®b|∞~&û®Çz∞û(û®¢~∞æ*û8¿∞ﬁû8‡∞˛û9± û9 ±>"û9@±^û9`±~û9Ä±ûû8`∞~ û8Ä∞ûû8†∞æû8¿êﬁÄ!ª¡ˇ¯O‡ ø!ˇ‰î!ˇ†;·8;√;§;Ö;fûû®˛TË<©> HHûû©^}Kp©û,Zö»A˝û8`∞~û≥^C‡∏,ù@Êû8Ä∞ûû≥^C‡ò/@˙$ùÿ@˛û8†∞æû≥^C‡pû|Ÿ–|¸ÿ}9÷ù}(Í◊@‡1)ˇˇ±>û©^|ä»@‰û≥>C‡û©~–@˘û≥^û}ô–|l·÷ù|ÉÍ◊@‡0Ñˇˇ∞û/ú@˝$û®æ,Ö@Êû®ﬁ0Ê∞˛ÿ@˙ûû©}(–±>C‡∞ûû©^©~}äZå–A¸îûûû®~®û|£ |¶p®˛}8±û©>|â»@‰û≥>C‡û©^ –@˘û≥^ûû©~}ã–±ûû®~/É@˝û®û0§ˇˇ∞æÄ!ª!ˇ‰O‡ øAˇËî!ˇ∞;·8;√;§;Ö;f;Gû≥~û≥æû≥ûû≥~û≥^ ûû®ﬁ$0Ê©|à8@‰4ûû©>$©^( PA¯ûû©~$1ã±ûC‡Lûû®~(0É®æÖ @¸0ûû®ﬁ(®˛$|Ü8A‰ûû©(1(±>ûû©^$}jÿ}lp±ûûû®~&|Éÿ|Öp∞æûû®ﬁ(|Êÿ|Ëp± ûû©>*}Iÿ1j}lp±û"ûcp|õ∞ûû8†∞æÄ!ªAˇËO‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ ø¡ˇ¯î!ˇ¿;·8;√Ä!ª¡ˇ¯O‡ |¶øˇ‡|¿&êê¡î!ˇò;·8êA;√/Nz–Bû´æûû®˛©áBû´~ûWi<©^ IPû´>û´û©~ãÿA˛,8`8ù8º8€8˙9ÄBˇ‰Kˇ˛©ÄAC‡‡lp|{b|ö@‰0û®~8ù8º8€8˙9ÄBˇ‰Kˇ¯…ÄAC‡§/@˘0û®~8ù|º“|π(8€8˘9ÄBˇ‰Kˇ¯çÄA|¿&T√ß˛8Ä8†8¿8˝}“}9@}H9;9XKˇ¯!}Y–}xP/ã@˝0û®~8ù8º8€}ô–|¯`9ÄBˇ‰Kˇ¯UÄAÄ8Ä4Ä!|¶|oÒ ªˇ‡O‡ |¶øaˇÏ}&êëî!ˇ∞;·8êA;√,ÑNf0B;•;Ü;g8~8ù8º8€Å#ˇ¸Ä ˇ¥| ¶ÄIˇ∏O‡!ÄA8~}@&UDß˛Åcˇ¸Äˇú| ¶ÄKˇ†O‡!ÄAÄ ÅüÄ!|¶}èÒ ªaˇÏO‡ ø°ˇÙ|¿&ê¡î!ˇ∏;·8;√/Nz–B;•ÄˇÄ!|ÔÒ ª°ˇÙO‡ |¶ø°ˇÙ}&êëî!ˇ∞;·8êA;√/ÑN~B} &U#ß˛ûÄûû®æû®ﬁû®˛û©û©>û©^KˇˆÅÄ Å_Ä!|¶}OÒ ª°ˇÙO‡ |¶ø¡ˇ¯}`&êëaî!ˇ¿;·8êA;√,ÑNf0B}Ä&UÉß˛ûÄûû®æ û®ﬁ"û®˛ûû©©> }HJû©~}Pû©>û©^Kˇı›ÄÅüÄ!|¶}èÒ ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇ¿;·8êA;√ûû®~Td<®æ @¯@û®~û®ûû®æû®ﬁû®˛ 9ÄBˇ‰Kˇ˜ÈÄAC‡d8~8ÄÄ√ˇ¸Äˇî| ¶ÄFˇòO‡!ÄA8~8ÄÄ„ˇ¸Äˇú| ¶ÄGˇ†O‡!ÄA8~8ÄÅˇ¸Äˇ§| ¶ÄHˇ®O‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶æ·ˇ‹} &êë!î!ˇê;·8êA;√;§;Ö;fû´^û´>û´:¯ÅBˇÏ8j,ÅbˇÏÄãˇËÅÇˇÏ8¨Ä¬ˇÏÄΔˇÏ®˝©ÄBˇÏHÄAN@ÇÄBˇËHÄAêbåN`ÇAÚh®˝ö8A˝\}¬©=|â@@‰L©\PA˘@}y∫©úåX@¸0N@B8~|Ä&TÑü˛Ä£ˇ¸Äˇ§| ¶ÄEˇ®O‡!ÄAC‡h@Úd®›|Ü–A‰0|˙¬©@@˘ ©<â»A¸}Y∫©||äXAÂ,N@Ç8~}Ä&UÑü˛Ä£ˇ¸Äˇ§| ¶ÄEˇ®O‡!ÄA@ÚxÄ€/A˙lÄBˇËKˇÙMÄAêbêÄ‚êÅåá@A¸L@ÛÅ"êÅBÄ}iRëbåC‡N`BÅÇêÄbÑ|åêÇå8~Ä£ˇ¸Äˇt| ¶ÄEˇxO‡!ÄA88ù8ºÄBˇËHÄAÄ¬ˇÏ8f,Ä‚ˇÏÄáˇËÅˇÏ8®Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÙ]ÄAÅ[Å}L[xëõÄ,É@Ê˛X8~8ÄÄ£ˇ¸Äˇ§| ¶ÄEˇ®O‡!ÄAÄ@Äﬂ<Ä!|¶|œÒ ∫·ˇ‹O‡ |¶æ·ˇ‹|‡&êê·î!ˇê;·8êA;√;§;Ö;fû´^ûû©©> }HJû©~+Pû´:¯ÅÇˇÏ8l,ÄÇˇÏÄÑˇËÄ¢ˇÏ8•Ä¬ˇÏÄΔˇÏ®˝©ÄBˇÏKˇÚµÄAN@ÇÄBˇËKˇÛ]ÄAêbåN`ÇAÚh®˝8A˘\}¬©=â@@¸L©\|ôPAÂ@}y∫©úX@¯0N@B8~|Ä&TÑü˛Ä£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAC‡h@Úd®›Ü–A¸0|˙¬©|á@@Â ©< »A¯}Y∫©|äXA˝,N@Ç8~}Ä&UÑü˛Ä£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄA@ÚxÄ€,ÜAÊlÄBˇËKˇÒµÄAêbêÄ‚êÅå@A¯L@ÛÅ"êÅBÄ}iRëbåC‡N`BÅÇêÄbÑ|åêÇå8~Ä£ˇ¸Äˇ|| ¶ÄEˇÄO‡!ÄA88ù8ºÄBˇËKˇÚÈÄAÄ¬ˇÏ8f,Ä‚ˇÏÄáˇËÅˇÏ8®Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÒ≈ÄAÅ[Å}L[xëõÄ/É@˛˛X8~8ÄÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ@Äﬂ<Ä!|¶|œÒ ∫·ˇ‹O‡ |¶Ω·ˇºêî!ˇ`;·8êA;√;§;Ö;fû´^ûû®˛©'Bû´ûû©>U*<©~ ~ÍXû™ﬁû™æûû©û}Ép®û~d::ï™\9‡Ä¢ˇÏ8e,Ä¬ˇÏÄÜˇËÄ‚ˇÏ8ßÅˇÏÄ»ˇÏ®˝©ÄBˇÏKˇÄA8~8ÄÅ#ˇ¸Ä ˇú| ¶ÄIˇ†O‡!ÄA™<Å[,äAÊ0/A˙(8~8Ä8¥Åcˇ¸Äˇ,| ¶ÄKˇ0O‡!ÄA88ù8ºÄBˇËKˇQÄAÅÇˇÏ8l,ÄÇˇÏÄÑˇËÄ¢ˇÏ8•Ä¬ˇÏÄΔˇÏ®˝©ÄBˇÏKˇÓıÄAÄ˚Å|ÈCxë;©\}Íà©|}ãê~ïb/è@˝û®~|î@Â/@¯û®ûî A¸9‡,è@Â@ûû®æ®ﬁ|Â28@˙$™\û™æ9‡í»@¸:YC‡<,è@‰4û©/@˙$™\:†9‡}9∫íHA¸}Y∫2Jˇˇ,î@‰:ÄC‡}s∏X@˘~ì∏Åü/å@˛˛|Ä{<Ä‡|É AÊ(8~8ÄÄ£ˇ¸Äˇú| ¶ÄEˇ†O‡!ÄAC‡(8~8Ä8∞Ä√ˇ¸Äˇ,| ¶ÄFˇ0O‡!ÄAÄpÄ!|¶π·ˇºO‡ |¶øaˇÏ|‡&êê·î!ˇ®;·8êA;√;§;Ö;fÄBˇËKˇ≈ÄAêbåûû©©> }HJû©~}ãPû®~|É`®º A¯ÄÄ¬ˇÏ8f,Ä‚ˇÏÄáˇËÅˇÏ8®Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÓMÄAN`ÇÅ[/äA˛–ûû©~©û |kbû®û|§û®ﬁ|Ê(©|à8A‰òûû©>©^ }iRû©û|lX®ú@¯lÄBˇËKˇÏ•ÄAêbêÄ¢êÄ¬åÖ0A¸L@ÛÄ‚êÅÑ}'Bë"åC‡N`BÅBêÅbà}äZëÇå8~ÄÉˇ¸Äˇd| ¶ÄDˇhO‡!ÄA88ù8ºÄBˇËKˇÓÅÄAÄ¢ˇÏ8e,Ä¬ˇÏÄÜˇËÄ‚ˇÏ8ßÅˇÏÄ»ˇÏ®˝©ÄBˇÏKˇÏ5ÄAÅ;Å_}+Sxë{Åü,å@Ê˛ƒC‡Ïûû®~®û |£"û®ﬁ|Ê(û©}(8û©^}jH©úXA¯08~8ù8º8€Ä„ˇ¸ÄˇL| ¶ÄGˇPO‡!ÄAC‡|ÅˇÏ8h,Å"ˇÏÄâˇËÅBˇÏ8™ÅbˇÏÄÀˇÏ®˝©ÄBˇÏKˇÎÄAN`ÇÅõ/åA˛–ûû®~®û|£"®‹|Ü(A‰∞ûû®˛© }'Bû©^}jHû©û|lXû®û|§®‹(@¯lÄBˇËKˇÎµÄAêbêÄ‚êÅåá@A¸L@ÛÅ"êÅBÑ}iRëbåC‡N`BÅÇêÄbà|åêÇå8~Ä£ˇ¸Äˇl| ¶ÄEˇpO‡!ÄA88ù8ºÄBˇËKˇÎAÄAÄ¬ˇÏ8f,Ä‚ˇÏÄáˇËÅˇÏ8®Å"ˇÏÄ…ˇÏ®˝©ÄBˇÏKˇÍIÄAÅ[Å}L[xëõÄ,É@Ê˛ƒÄ(Äü$Ä!|¶|èÒ ªaˇÏO‡ |¶ø°ˇÙêî!ˇ∏;·8êA;√;§∞ø0∞ﬂ4êˇ8ûìæÄø8/A˙Xûû®ﬁ®˛Ü8A¸@ûû©U <©^ |äHA‰$û®~û®ûû®æû®ﬁ ÄBˇÏHÄAûû©~©û|kb®ü4@¯08~8ü08ø48ﬂ8Ä„ˇ¸ÄˇT| ¶ÄGˇXO‡!ÄAC‡¨ûû©©> }HJû©~}ãP®4É`A¸08~8ü08ø48ﬂ8Ä„ˇ¸Äˇ<| ¶ÄGˇ@O‡!ÄAC‡Tûû©U <û©^}iR©û |åXA‰,8~8ü08ø48ﬂ8Ä„ˇ¸ÄˇD| ¶ÄGˇHO‡!ÄAÄÄ!|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÅˇË©(}*pëBàÅbˇË©ã8`|å◊@‡0ÑˇˇêÇÑÄ¢ˇË®≈8‡}:◊@‡1ˇˇëÄ9 ±"9@ëB09`ëb=Ä8ëÇ4<`8êb(<Ä8êÇ8<†8ê¢$<¿8ê¬<<‡8ê‚ =˛ë@= ˛ë"=@|ëBD=`|ëb=Ä8ëÇH<`8êb<ÄêÇL<†ê¢8b08Ä 8†8¿ÄBˇ‰HÄAêb8b8Ä 8†8¿ÄBˇ‰KˇÊ=ÄAêb8¿∞¬x8‡∞‚|9±z9 ±"~ÄÄ!|¶ª·ˇ¸O‡ â,ˇ¸ˇˇˇˇScrollBarElemDesc ämpsvy|ÇÖàãéëîóöù†≠Æ≥¥ªæ√ΔÕ–”◊‹‡„ÁÈÏÛ˜˝˛ !"&*9;=?ACDJKPQVW]^cdhinotuz{ÅÖ≤¥µπªø¡√’‚˝RTVXZ\^uwy{}~ÇÖáòôü°£•ß◊Ÿ€wyz~Å"$%*,./zÄáàèò⁄€ﬂ‚˘˙˛GHLORtu|}ÅÑá”ÿŸﬁﬂÂÁÈÎÒã¯È08DrawButtonHÁ{WÊ{X‰{YÂ{lowerColË{pat·{patX‚{patY„{pressedå{upperColÈ{¯¶8ScrollBarElem.Initobj·{|¯±(8ScrollBarElem.CalculateSliderDimbeg„{end‰{hÂ{length‚{minSliderHÊ{obj·{|¯ã8ScrollBarElem.SetDimhÂ{obj·{|w‰{x‚{y„{¯í8ScrollBarElem.LineDownobj·{|¯ô8ScrollBarElem.LineUpobj·{|¯†8ScrollBarElem.PageDownobj·{|¯ß8ScrollBarElem.PageUpobj·{|¯è08ScrollBarElem.DrawSliderhÂ{obj·{|pressedå{sHÁ{sdYÊ{w‰{x‚{y„{¯∑8ScrollBarElem.Updatebeg„{end‰{length‚{obj·{|sliderPressedå{¯≈8ScrollBarElem.UpdateViewdY‚{obj·{|pressedå{¯Ë8ScrollBarElem.DrawDownButtonobj·{|pat‚{pressedå{¯ë8ScrollBarElem.DrawUpButtonobj·{|pressedå{¯À8ScrollBarElem.Drawobj·{|¯Î88ScrollBarElem.TrackDownButtonfastå{hË{keys keysum‰{ mx‚{my„{obj·{|pressedç{wÁ{xÂ{yÊ{¯ë88ScrollBarElem.TrackUpButtonfastå{hË{keys keysum‰{ mx‚{my„{obj·{|pressedç{wÁ{xÂ{yÊ{¯ Ë8ScrollBarElem.TrackSliderdYÎ{dYOldÔ{delta{hË{keys keysum‰{ minHÏ{mx‚{my„{myHelpÓ{myOldÌ{obj·{|sHÈ{sdYÍ{wÁ{xÂ{yÊ{¯» 8ScrollBarElem.TrackSliderBarfastå{keys keysum‰{ mx‚{my„{obj·{|¯≤8ScrollBarElem.HandleScrollBarF‚{tkeysum8 mx0my4obj·{|¯â8$$backgroundColdownArrowdownArrowImage downPatH¸downPatW¯highDelayàlowDelayÄmiddleDelayÑpat‘ suspendTimeåtimeêupArrowupArrowImage0 upPatH˛upPatW˙˜ScrollBarElemDescFtxywh minWsliderdYsliderHbackgroundColdownArrowupArrowdowndXdowndYupdX updY"downW$downH&upW(upH*