smalltalk Object subclass: #MyTable instanceVariableNames: 'name age gender' classVariableNames: '' poolDictionaries: '' category: 'MyApp' smalltalk table := MyTable new. table name: 'John'. table age: 30. table gender: 'Male'. table commit.