'From Squeak3.2alpha of 15 November 2001 [latest update: #4518] on 11 December 2001 at 11:47:46 am'! MacFileDirectory subclass: #MacHFSPlusFileDirectory instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Files'! !MacFileDirectory class methodsFor: 'platform specific'! isActiveDirectoryClass ^ super isActiveDirectoryClass and: [(Smalltalk getSystemAttribute: 1201) isNil or: [(Smalltalk getSystemAttribute: 1201) asNumber <= 31]]! ! !MacHFSPlusFileDirectory class methodsFor: 'platform specific' stamp: 'JMM 12/5/2001 22:23'! isActiveDirectoryClass "Ok, lets see if we support HFS Plus file names, the long ones" ^ (self pathNameDelimiter = self primPathNameDelimiter) and: [(Smalltalk getSystemAttribute: 1201) notNil and: [(Smalltalk getSystemAttribute: 1201) asNumber > 31]]! ! !MacHFSPlusFileDirectory class methodsFor: 'platform specific' stamp: 'JMM 11/14/1935 00:02'! maxFileNameLength ^ 255! !