root-class ( class -- root )

Vocabulary

cocoa.messages

Inputs

class

an alien

Outputs

root

an alien

Word description

Outputs the class at the root of the inheritance hierarchy for class. In most cases this will be the NSObject class.

Definition

USING: cocoa.runtime kernel ;

IN: cocoa.messages

: root-class ( class -- root )
    [ class_getSuperclass ] [ root-class ] ?when ;