Can't get "true" height of text box (text object) in Photoshop CS4-CS6 on Mac

Question

I'm seeing this behavior in CS4, CS5 and CS6 on the Mac using AppleScript. When I get the height of a text object layer as such:
     tell app "Adobe Photoshop CS4"
          tell current document
               set textObjectHeight to height of text object of art layer 1
          end tell
     end tell
The value returned doesn't match the height of the text object. In my mind the text object is the box that's displayed when I click on text in a text layer with the text tool active. The value for the width appears to match, just as I'd expect.
I'm trying to get the height and width of the text box (text object) so that I can draw a box "underneath" it on another layer so that one can tell where the text box is. Kind of an FPO-type assistant. I'm currently using the position values and the height and width to create a colored box. I realized that the height isn't exactly right.
Any help would be great appreciated. I've not explored the use of Javascript thus far, but am open to that as a solution.
Thanks,
Stephan

Answer 1

I tried your code and it works just fine here… I used CS5 to try it… Here is a screen shot… I just put a solid fill layer at the bottom so you can see the guides…
Script editor's event log gives me…
tell application "Adobe Photoshop CS5"
  activate
  get position of text object of art layer 1 of current document
                    {150.0, 100.0}
  get width of text object of art layer 1 of current document
                    800.0
  get height of text object of art layer 1 of current document
                    449.999969482422
  make at end of current document with properties {name:"fill"} new art layer
                    art layer 2 of document "Untitled-1"
          select current document region {{150.0, 100.0}, {950.0, 100.0}, {950.0, 549.999969482422}, {150.0, 549.999969482422}} without antialiasing
  current application
  fill selection of current document with contents {class:RGB color, red:255, green:0, blue:0} blend mode normal opacity 100 without preserving transparency
  current application
  deselect current document
  current application
end tell