<pre>on mouseUp  ---  ask "Set the name of label :" with "1 to 7"  put the value of it into labelNumber  if labelNumber is not a number then die "Error: Label number must be a number."  put the trunc of labelNumber into labelNumber  if labelNumber < 1 or labelNumber > 7 then die "Error: Label number must be a number between 1 and 7."  ---  ask "Name of label" && labelNumber && "?" with getLabelName(labelNumber)  if it is empty or the result is cancel then die "Operation cancelled."  put it into newLabelName  setLabelName labelNumber,newLabelName  ---end mouseUpon setLabelName labelNumber,newLabelName  put quote & newLabelName & quote into newLabelName  put "tell application" && quote & "Finder" & quote & return after scriptVar  put "set the name of label " && labelNumber && "of Finder preferences to" && newLabelName & return after scriptVar  put "end tell" after scriptVar  do scriptVar as appleScriptend setLabelNamefunction getLabelName labelNumber  put word 2 of getLabelInfo(labelNumber) into labelName -- Label A with color { 65535, 25738, 652 }  delete first char of labelName  delete last char of labelName  return labelNameend getLabelNamefunction getLabelInfo labelNumber  put "set labelNumber to" && labelNumber & return after scriptVar  put "tell application" && quote & "Finder" & quote & return after scriptVar  put "set response to label labelNumber of Finder preferences" & return after scriptVar  put "return (response as string)" & return after scriptVar  put "end tell" after scriptVar  do scriptVar as appleScript  return the resultend getLabelInfoon die dyingMessage,dyingSound  if dyingSound is not empty then play dyingSound  if dyingMessage is not empty then answer dyingMessage  exit to HyperCardend die</pre>