import paint

[robm80]

I need to know the name of the directory of "Thumnails".
I use:

Code: Select all

on mouseUp
   global tSeltxt
   
   --   put the filename of this stack into tFilenm
   --   put the number of chars of tFilenm into tNum
   --   put tNum-18 into tMin
   --   delete char tMin to tNum of tFilenm
   
   put the defaultFolder into tFilenm
   put  tFilenm &" /thumbnails/" into tStam
   
   lock screen
   put selectedtext of fld index into tVar
   put tVar into tSeltxt
   put lineoffset (tVar,fld index) into tLO
   put number of lines of fld index into tLines
   put tLO  && "of" && tLines into tKeus
   set the label of button "linenumber" to tKeus
   put fld "titel" of card tVar of stack "recepten" into fld "titel"
   put fld "nodig" of card tVar of stack "recepten" into fld "ingr"
   put fld "recept" of card tVar of stack "recepten" into fld "recept"
   delete last image
   --   put  tFilenm & "thumbnails/" into tStam
   import paint from file tStam& tVar&".jpg" --------------------errormessage, see below
   set the rect of last image to the rect of button "pict"
   set the lockloc of last image to true
   unlock screen
end mouseUp

errormessage: field "index": execution error at line 24 (import: can't open file, mask file or display) near "D:/Livecode /thumbnails/Cassoulet.jpg", char 1

What's wrong ?. When i use the outcommented lines: no problem
Rob

[jmburnod]

Hi Rob,
Paths are different for each plateform and you have to consider if this is a stack or a standalone.
This function return the path of the folder where the stack is (no tested for Linux)

Code: Select all

function getPathFolder
   put the filename of this stack into P 
   set the itemdel to "/"
   if the environment = "development" then
      delete  item-1 of P
   else -- It's in a StandAlone mode. 
      if the platform = "MacOS" then 
         delete  item -4 to -1 of P 
      else 
         delete  item-1 of P 
      end if 
   end if	
      set the itemdel to ","
   return p
end getPathFolder

Best regards
Jean-Marc

[Klaus]

Hi Rob,

you need to be a bit more careful when scripting!

You have a space too much in your script, which will make the pathname invalid:

Code: Select all

put  tFilenm &" /thumbnails/" into tStam

This is something even the error dialog reveals!

D:/Livecode /thumbnails/Cassoulet.jpg

Or is that directory really named "Livecode "?

And in your own interest you should start to put PARENS around concatenated file- and object names:

Code: Select all

import paint from file (tStam & tVar & ".jpg")

Best

Klaus

[robm80]

Thank you both'
Deleting the space like Klaus said, was the solution.
Stupid of me not to have seen that.
Still sleep in my eyes.
Rob

[Klaus]

In cases like this, a little:
...
put tStam & tVar & ".jpg" into tFile
answer (there is a file tFile)
## FALSE should give you a hint that the pathname is not correct.
...
may also help!

[mwieder]

Rob-

It's much easier to see problems in someone else's code than in your own, especially when you know a problem exists.
No worries.