给你这种见识短的演示一下什么叫做对象的名字

#!/usr/bin/tclsh
proc GetCursorInfo {} {return 1234}
proc LoadCursor args {return 1234}

oo::class create cursor {
    variable handle
    constructor h { set handle $h }
    method handle {} { return $handle }
    self {
        method get_current_cursor {} {
            foreach c [info class instances [self]] {
                if {[$c handle] eq [GetCursorInfo]} { return $c }
            }
        }
    }
}

lmap c {APPSTARTING ARROW CROSS HAND HELP IBEAM ICON NO SIZE SIZEALL
      SIZENESW SIZENS SIZENWSE SIZEWE UPARROW WAIT } {
          cursor create $c [LoadCursor 0 IDC_$c]
}

puts [cursor get_current_cursor]


【 在 hillg 的大作中提到: 】
: 他说的应该就是你的想法，不是你贴的代码。
: 目测接触不超过两种编程语言，代码行数不超过5000行。
: 请列出保留名字信息的程序语言。
--
FROM 218.241.217.*