Skip to content

Instantly share code, notes, and snippets.

@mumez

mumez/parasol-fixes-for-pharo40-mu.cs

Created November 27, 2015 06:46
Show Gist options
  • Save mumez/f81e9a17a1156fe99e7a to your computer and use it in GitHub Desktop.
Save mumez/f81e9a17a1156fe99e7a to your computer and use it in GitHub Desktop.
Download ZIP
Parasol fixes for Pharo 4.0
Raw
parasol-fixes-for-pharo40-mu.cs
'From Pharo4.0 of 18 March 2013 [Latest update: #40614] on 24 June 2015 at 5:47:47.355774 pm'!
!BPPharoPlatform methodsFor: 'facade' stamp: 'MasashiUmezawa 6/24/2015 17:44'!
fileDelete: filename
Smalltalk at: #FileDirectory ifPresent: [:cls | ^cls default deleteFileNamed: filename].
filename asFileReference ensureDelete! !
!BPPharoPlatform methodsFor: 'facade' stamp: 'MasashiUmezawa 6/24/2015 17:03'!
jsonRead: aString
Smalltalk globals at: #JSJsonParser ifPresent: [:cls | ^cls parse: aString].
Smalltalk globals at: #Json ifPresent: [:cls | ^cls readFrom: aString readStream].
! !
!BPPharoPlatform methodsFor: 'facade' stamp: 'MasashiUmezawa 6/24/2015 17:04'!
jsonWrite: anObject
(Smalltalk globals hasClassNamed: #JSJsonParser) ifTrue: [ ^anObject asJson ].
^anObject asJsonString! !
@mumez
Copy link
Author

mumez commented Nov 27, 2015

Beach Parasol: http://ss3.gemstone.com/ss/Parasol.html/Overview

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment