P2-ClienteRedesSociales.st

Object subclass: #DesktopClient
	instanceVariableNames: 'mensajero'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ClienteDeRedesSociales-Practica2'!

!DesktopClient methodsFor: 'accessing' stamp: 'ema 4/9/2018 16:26'!
mensajero: unMensajero
	mensajero := unMensajero ! !

!DesktopClient methodsFor: 'accessing' stamp: 'ema 4/9/2018 16:26'!
mensajero
	^ mensajero ! !

!DesktopClient methodsFor: 'accessing' stamp: 'ema 4/9/2018 16:58'!
publicar: unString
	self mensajero post: unString! !


Object subclass: #Facebook
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ClienteDeRedesSociales-Practica2'!

!Facebook methodsFor: 'public' stamp: 'ema 4/9/2018 16:58'!
post: unString
	"Recibe un string y lo publica en fb"

	Transcript show: 'Publicación de facebook (',unString,')'! !


Object subclass: #TwitterAdapter
	instanceVariableNames: 'twitter'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ClienteDeRedesSociales-Practica2'!

!TwitterAdapter methodsFor: 'public' stamp: 'ema 4/9/2018 16:56'!
initialize
	super initialize.
	twitter := TwitterP2 new.! !

!TwitterAdapter methodsFor: 'public' stamp: 'ema 4/9/2018 16:49'!
post: unString
	"Convierte el string, si está vació le agrega algo y si tiene mas de 140 caracteres lo trunca, lo envia a un twitterP2 para que este la publique"

	unString = ''
		ifTrue: [ twitter publish: ' ' ]
		ifFalse: [ unString size > 140
				ifTrue: [ twitter publish: (unString copyFrom: 1 to: 140) ]
				ifFalse: [ twitter publish: unString ] ]! !


Object subclass: #TwitterP2
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ClienteDeRedesSociales-Practica2'!

!TwitterP2 methodsFor: 'accessing' stamp: 'ema 4/9/2018 17:01'!
publish: unMensaje
	Transcript show: 'Publicación de twitter (' , unMensaje , ')'! !