SUYScratchPresentationSpace+PyonTalk.h

#import <Foundation/Foundation.h>
#import "SUYScratchPresentationSpace.h"


@interface ScratchIPhonePresentationSpace (PyonTalk)

//Smalltalk actions
- (IBAction) keyBackspace: (id) sender;
- (IBAction) keyEnter: (id) sender;
- (IBAction) keyEscape: (id) sender;
- (IBAction) doIt: (id) sender;
- (IBAction) printIt: (id) sender;
- (IBAction) inspectIt: (id) sender;
//Smalltalk actions

@end

SUYScratchPresentationSpace+PyonTalk.m

#import <Foundation/Foundation.h>
#import "SUYScratchPresentationSpace.h"

#import "SUYScratchPresentationSpace+PyonTalk.h"


@implementation ScratchIPhonePresentationSpace (PyonTalk)

//Smalltalk actions
#pragma mark - Smalltalk actions
- (IBAction) keyBackspace: (id) sender {
    [self pushCharacter: [NSString stringWithFormat:@"%c", 8]];
}

- (IBAction) keyEnter: (id) sender {
    [self pushCharacter: [NSString stringWithFormat:@"%c", 13]];
}
- (IBAction) keyEscape: (id) sender {
    [self pushCharacter: [NSString stringWithFormat:@"%c", 27]];
}

- (IBAction) doIt: (id) sender {
    [self pushCharacter: [NSString stringWithFormat:@"%c", 24]];
}
- (IBAction) printIt: (id) sender {
    [self pushCharacter: [NSString stringWithFormat:@"%c", 25]];
}
- (IBAction) inspectIt: (id) sender {
    [self pushCharacter: [NSString stringWithFormat:@"%c", 26]];
}

//Smalltalk actions override

#pragma mark - Smalltalk hack
- (void)radioButtonSetController:(GSRadioButtonSetController *)controller didSelectButtonAtIndex:(NSUInteger)selectedIndex
{
    //[self changedViewModeIndex:selectedIndex];
    [self setViewModeIndex:selectedIndex];
}



@end

An Obj-C extension for uncovering Smalltalk under Pyonkee.