#lang at-exp racket/gui

(define (object-method-names object)
  (interface->method-names (object-interface object)))

(object-method-names (new frame% [label "a"]))