ftp.nice.ch/Attic/openStep/games/Solitaire.3.1.s.tgz#/Solitaire.3.1/Games/Spider/SpiderSuitDelegate.m

This is SpiderSuitDelegate.m in view mode; [Download] [Up]

/* indent:4  tabsize:8  font:fixed-width */


#import "SpiderSuitDelegate.h"
//#import "../Solitaire/Solitaire.h"
#import <Solitaire/CardSet.h>
#import "Spider.h"

@implementation SpiderSuitDelegate

- (BOOL) canAcceptPile:(CardPile*)aCardPile from:sender in:(CardPileView*)aCardPileView
{
    if ([[aCardPileView cardPile] cardCount] == 0)
    {
        if ([aCardPile cardCount] == 13)
          {
            return YES;
          }
    }
    return NO;
}


- (void) acceptPile:(CardPile*)aCardPile in:(CardPileView*)aCardPileView
{
    [[Spider sharedInstance] checkForWin]; 
}

@end

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.