Edit menu recipe?

[Frank Leahy]

Does anyone have an edit menu recipe they'd like to share?  I've got 
one that works for the main stack, but doesn't seem to work for other 
stacks.  I thought it was working at one point, but now I'm not sure 
whether it was ever working correctly.

Here's what I've got currently:
on DoMenuEditMenu theMenuItem
  switch (theMenuItem)
    --- Edit menu
  case "Undo"
    -- do nothing for now, not yet implemented
    break
  case "Cut"
    put the selectedChunk into curChunk
    if curChunk <> "" then
      put "put " & curChunk & " into theText" into theCmd
      do theCmd
      set the clipboardData["text"] to theText
      put "put empty into " & curChunk into theCmd
      do theCmd
    end if
    break
  case "Copy"
    put the selectedChunk into curChunk
    if curChunk <> "" then
      put "put " & curChunk & " into theText" into theCmd
      do theCmd
      set the clipboardData["text"] to theText
    end if
    break
  case "Paste"
    put the selectedChunk into curChunk
    put the clipboardData["text"] into pasteChunk
    put the focusedObject into theSelectedField
    if theSelectedField = "" then break
    put the short name of the focusedObject into fieldName
    if not fieldName contains "Description" then
      replace (numToChar(10) & numToChar(13)) with " " in pasteChunk
      replace numToChar(10) with " " in pasteChunk
      replace numToChar(13) with " " in pasteChunk
    end if
    put "put pasteChunk into " & curChunk into theCmd
    do theCmd
    put the selectedChunk into curSelection
    select curSelection
    break
  case "Clear"
    put the selectedChunk into curChunk
    if curChunk <> "" then
      put "put empty into " & curChunk into theCmd
      do theCmd
    end if
    break
  case "Select All"
    put the focusedObject into fieldName
    if word 1 of fieldName = "field" then
      put the short name of the focusedObject into shortFieldName
      put "select text of " & fieldName into theCmd
      do theCmd
    end if
    break
  default
    answer error "Error: forgot to handle '" & theMenuItem & "' in List 
of Albums menuPickEditMenu" titled getPhotoAlbumDialogName()
  end switch
end DoMenuEditMenu

Thanks,
-- Frank
Web Photos Pro: Software for Photo Bloggers and Other Photo Power Users
See us on the web at http://www.webphotospro.com/
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution