on mouseDown
revGoUrl "http://www.sosmartsoftware.com"
end mouseDown
@ Flche2.png z PNG IHDR Kpl_ pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?,Xv$ϯ.?~~e'P#@ 11 @ ?~23_k_?V@p /÷>|()%ţ,%-F2\@ *n w JU牓/_ o_ū(II` b`AM]Nk5 _ ,? d +@ 021~K?@fӬ ~W XXY};w<||| ߿}Kw^W @ koǑ74;Gڷo_߿uLL7qe` &Fqϟ_sPuFFf bA8`(10r =zk~ Tx NP `=l|, IENDB` cREVGeneral revUniqueID 1109350346443 Label Field cREVTable currentview 7Play with the option menu, hover and click the stars... cREVGeneral revUniqueID 1109354974199 8Play with the option menu, hover and click the stars... Show Script Ep ;on mouseUp edit the script of fld "Ranking" end mouseUp z i ] _ cREVGeneral scriptChecksum t Ԟq[b~ bookmarks revUniqueID 1109456710609 handlerList mouseUpscriptSelection char 38 to 37 prevHandler mouseUp tempScript scripton mouseUp
edit the script of fld "Ranking"
end mouseUp
% SetDemoRanking u on menuPick pChosen local tObj ----- put the long ID of fld "Ranking" into tObj set the uCurRanking of tObj to pChosen end menuPick $ 8 < { 0 0 1 2 3 4 5 cGlx2General cScriptChecksum cExplicitVariables falsecHscrollScript 0cLocals cHscrollHandlers 0 cHtmlScript P0 /;x#A 7œ1Ɔ?A\#t{]@I[C8xe@6AJi[+wfd;my#G)TB-Zz'5|y5:>ˎB@L~*ʮ-r[l63AըMն5~! cSelectedChunk char 19 to 37 cConstants cHandlersListWidth 110 cDirtyFlag falsecHtmlHandlers [ )I). EɶJƆƖJv6 qĜ ļԢb}B;.;5eKkԼҀl( 9N cFolders all handlers cHandlers menuPickcVscrollScript 0cVscrollHandlers 0 cHilitedLine 2 cGlobals cGlx2TimeStamp 1190212880 working 1190212286 start checksum )[8*q= 1190212713 working 1190212769 working 1190212835 working 1190212143 start 1190211867 start 1190212310 start 1190212462 working 1190212742 start 1190212806 working 1190212464 working 1190212679 start cREVGeneral scriptChecksum m)Kl bookmarks revUniqueID 1190280954482 handlerList menuPickscriptSelection char 68 to 67 prevHandler menuPick tempScript scripton menuPick pChosen
local tObj
-----
put the long ID of fld "Ranking" into tObj
set the uCurRanking of tObj to pChosen
end menuPick
& StarRanking i 2 ] cREVGeneral revUniqueID 1190280954483 bookmarks handlerList tempScript prevHandler script ! Star.jpg @ Z V 6 JFIF d d Ducky F Adobe d v !1AQ !1QaAq"3 ? ŒEo$W9)3z4hڳ 3 ЏRͬ5;Jx&ˈY[lȊ& :>4,k ZFY(&WM5$ Aq8x8uYdI\Ǭ6Î'ɴ¢0WnQל >nq HboWVgũ7{KZ#G8$օ$ Q4 T[ӉBaM\Р/ cREVGeneral revUniqueID 1190277776701 " StarDis.jpg @ Z V JFIF d d Ducky F Adobe d ^ !A1Q 1 ? M7}XDƂ!9YX[ƖRAhGޫ]wc>SF$ Z;A4⥊;sSt d03*,ks(T 9=WP/q 5EHܔÚ cREVGeneral revUniqueID 1190204535495 # StarHilited.jpg H Z V \ JFIF d d Ducky F Adobe d t !1A" !1QaA"R ? ۃ$s`&j&>4W1cKJH;ЎQ+X4,7]@֢L0 l%@ʯ 7|㉤|yDc@^kk "ni$,zBTSqƶ3 B{LYsw uɯ0G/TBaxR' VWU+^]^v:\iy-9W(ۑj'9 |7G?=㠆 {T5§p&ҤP?E/ 1),, cREVGeneral bookmarks revUniqueID 1190204535427 handlerList prevHandler tempScript script * Ranking /* Stars Ranking widget by Eric Chatonet - http://www.sosmartsoftware.com/ September 2007 All the code is in this script (the script of the field's widget) */ ----------------------------- local lCurStar -- script local variable ----------------------------- on mousemove -- when hovering the widget local tCurStar ----- put StarNum(the long ID of me) into tCurStar -- see below if tCurStar <> lCurStar then -- prevents the handler from running if not necessary set the htmltext of me to RankingWithStars(tCurStar,true) -- put tCurStar into lCurStar end if end mousemove ----------------------------- on mouseLeave set the uCurRanking of me to the uCurRanking of me -- restores current ranking put empty into lCurStar end mouseLeave ----------------------------- on mouseUp local tCurStar ----- put StarNum(the long ID of me) into tCurStar -- see below if the uCurRanking of me = tCurStar then set the uCurRanking of me to 0 else set the uCurRanking of me to tCurStar end if end mouseUp ----------------------------- setProp uCurRanking pRanking set the htmltext of me to RankingWithStars(pRanking) -- C ################################### ## Only for demo: you can suppress this code portion in your project: if there is a btn "SetDemoRanking" then lock messages -- to avoid recursion if pRanking <> 0 then set the menuHistory of btn "SetDemoRanking" to pRanking + 1 else set the menuHistory of btn "SetDemoRanking" to pRanking end if ################################### pass uCurRanking -- sets the custom property end uCurRanking ############################# ## Prefer putting the code below in the card or the stack script ## if you want to manage several 'stars ranking' widgets in your project: function RankingWithStars pRanking,pHovering -- This function is not dependent on the effective ID of any image -- but don't modify image names :-) local tHtml ----- repeat with i = 1 to 5 if i <= pRanking then if pHovering then -- used by mouseMove handler put "/*
Stars Ranking widget by Eric Chatonet - http://www.sosmartsoftware.com/
September 2007
All the code is in this script (the script of the field's widget)
*/
-----------------------------
local lCurStar -- script local variable
-----------------------------
on mousemove -- when hovering the widget
local tCurStar
-----
put StarNum(the long ID of me) into tCurStar -- see below
if tCurStar <> lCurStar then -- prevents the handler from running if not necessary
set the htmltext of me to RankingWithStars(tCurStar,true) --
put tCurStar into lCurStar
end if
end mousemove
-----------------------------
on mouseLeave
set the uCurRanking of me to the uCurRanking of me -- restores current ranking
put empty into lCurStar
end mouseLeave
-----------------------------
on mouseUp
local tCurStar
-----
put StarNum(the long ID of me) into tCurStar -- see below
if the uCurRanking of me = tCurStar then
set the uCurRanking of me to 0
else
set the uCurRanking of me to tCurStar
end if
end mouseUp
-----------------------------
setProp uCurRanking pRanking
set the htmltext of me to RankingWithStars(pRanking) -- C
###################################
## Only for demo: you can suppress this code portion in your project:
if there is a btn "SetDemoRanking" then
lock messages -- to avoid recursion
if pRanking <> 0 then set the menuHistory of btn "SetDemoRanking" to pRanking + 1
else set the menuHistory of btn "SetDemoRanking" to pRanking
end if
###################################
pass uCurRanking -- sets the custom property
end uCurRanking
#############################
## Prefer putting the code below in the card or the stack script
## if you want to manage several 'stars ranking' widgets in your project:
function RankingWithStars pRanking,pHovering
-- This function is not dependent on the effective ID of any image
-- but don't modify image names :-)
local tHtml
-----
repeat with i = 1 to 5
if i <= pRanking then
if pHovering then -- used by mouseMove handler
put "<img src=" & quote & the ID of img "StarHilited.jpg" & quote & ">" after tHtml
-- hovered star icon
else -- usual case
put "<img src=" & quote & the ID of img "Star.jpg" & quote & ">" after tHtml
-- hilited star icon
end if
else
put "<img src=" & quote & the ID of img "StarDis.jpg" & quote & ">" after tHtml
-- blank star icon
end if
end repeat
return tHtml
end RankingWithStars
-------------------------------
function StarNum pObj
return (the mouseH - the left of pObj) div the width of img "Star.jpg" + 1
-- this function uses relative positions
end StarNum
@ 500002 @ 500002 @ 500002 @ 500002 @ 500002 + Copy Widget Ep 3on mouseUp copy group "StarRanking" end mouseUp i ] =Click here to copy the widget and paste it into your project } cREVGeneral scriptChecksum FO`_rFG1Oc revUniqueID 1190281521113 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 30 to 29scripton mouseUp
copy group "StarRanking"
end mouseUp