ANN: Smile:Goodies:Calc1 -> Update D !

[Folker]

Hallo Forum,

an alle die den "wirklich guten (subjektiv!" AppleScript-Editor "Smile" - (www.tandb.com.au/smile/) und darüber hinaus das Goodie "Calc1" (www.tandb.com.au/smile/goodies/) - nutzen, nachfolgend das Update, um diese geniale Umsetzung der "Rechenmaschine" (mit Möglichkeit + x% !) auch für das Mac OS "D" tauglich zu machen:

Sorry! Wie? Folg. Script in das ScriptObjekt des "Sheets" (in das Feld mit OPTION + BEFEHL geklickt) und dann: Copy - Paste

--Scriptanfang:

property DecSep : "."

on prepare theWind
continue prepare theWind
DoPrepare(theWind)
end prepare

on DoPrepare(theWind)
set DecSep to text item 2 of (pi as string)--it's only 1 line and it works!
end DoPrepare


on HandleMouseUp(x)
if x is "=" then
try
set x to (do script (get last paragraph of container))
set after text of container to return & (replace DecSep by "." in (format x into "#########0" & DecSep & "##########"))
end try
else if x is "%" then
try
set theExp to (get last paragraph of container)
if "+" is in theExp then set theExp to (replace "+" by "*(1+0.01*" in theExp) & ")"
if "-" is in theExp then set theExp to (replace "-" by "*(1-0.01*" in theExp) & ")"
set x to (do script (theExp))
set after text of container to return & (replace DecSep by "." in (format x into "#########0" & DecSep & "##########"))
end try
else if x is "CA" then
set text of container to ""
copy bounds of container to theRec
if item 3 of theRec is not 132 + (item 1 of theRec) then
set item 3 of theRec to 132 + (item 1 of theRec)
set bounds of container to theRec
end if
else if x is "C" then
try
set last character of container to ""
end try
else if x is "" then
set end of text of container to return
else
set end of text of container to x
end if
end HandleMouseUp

-- end scripttext

ps: Emanuel Levy habe ich schon am 4.8.2000 auf den Bug hingewiesen.

(Geändert von Folker am 21:04 Uhr am 11. Dez 2000)


(Geändert von Folker am 21:08 Uhr am 11. Dez 2000)
_________________
Gruß,
Folker Brandt
=============================
Systemberatung · Datenbanken · Webdesign