philippeback

base_color=lightgray,default:normal=lightgray,default:selected=black,green:marked=yellow,default:markselect=white,green:errors=white,red:menu=lightgray,default:reverse=black,lightgray:dnormal=white,default:dfocus=black,green:dhotnormal=brightgreen,default:dhotfocus=brightgreen,green:viewunderline=brightred,default:menuhot=yellow,default:menusel=white,black:menuhotsel=yellow,black:helpnormal=black,lightgray:helpitalic=red,lightgray:helpbold=blue,lightgray:helplink=black,cyan:helpslink=yellow,default:gauge=white,black:input=black,green:directory=white,default:executable=brightgreen,default:link=brightcyan,default:stalelink=brightred,default:device=brightmagenta,default:core=red,default:special=black,default:editnormal=lightgray,default:editbold=yellow,default:editmarked=black,cyan:errdhotnormal=yellow,red:errdhotfocus=yellow,lightgray 

philippeback

KMCategory subclass: #SpotlightShortcuts
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Spotlight'!
!SpotlightShortcuts commentStamp: 'TorstenBergmann 2/4/2014 20:43' prior: 0!
A shortcut for spotlight!


!SpotlightShortcuts methodsFor: 'keymaps' stamp: 'MarcusDenker 9/11/2013 13:23'!

philippeback

Business Models

Advertising

Models	Examples
Display ads	Yahoo!
Search ads	Google

philippeback

Transcript clear.
Transcript open.
#('azerty' 'uiop' 'fjfjf') asOrderedCollection inject: (OrderedCollection new) into: [ :a :b | Transcript show: 'A='; show: a; cr; show: 'B=';show: b;cr ].
Transcript flush.

UIManager inform: 'HEllo'.
UIManager default request: 'Value?'.
UIManager default inform: 'HELLO'.
UIManager default confirm: 'Okay with this?'.

philippeback

Gofer it 
     url: 'http://smalltalkhub.com/mc/PharoExtras/MorphExamplesAndDemos/main' 
     username: '' 
     password: ''; 
     package: 'MorphExamplesAndDemos';
     load.

BouncingAtomsMorph new openInWorld.

philippeback

drawSVGPokeOn: svg

	| passenger |
	
	svg anchor
		passenger: 'YOP';
		onClick: ((svg jQuery ajax) 
			callback: [ :passengers | passenger := passengers first. self info: ('Poked!', passenger) ]	 passengers: (svg jQuery this);
			script: [ :s | s << ('alert("Hello ', passenger, '")') js]);
		with: [

philippeback

html paragraph
       script: (html jQuery this load
          html: [ :h | h text: 'Hello' ];
          interval: 5 minutes); 
       with: [ html text: 'Hello' ]

philippeback

addMarkerPollingTo: html

 html document addLoadScript: (
  (
    (html jQuery getJson
    json: [ :r | self renderStoresJsonOn: r ];
    onSuccess: (JSStream on: 'window.timeoutHandler=setTimeout(updateMarkers,30000)') asFunction
    ) asFunction assignTo: 'updateMarkers')
    ).
 html document addLoadScript: (JSStream on: 'updateMarkers()').

philippeback

onClick:
    (html jQuery ajax
      serializeThis;
      onComplete: (JSStream on: 'clearTimeout(timeoutHandler);updateMarkers(arguments[0]);') asFunction)

philippeback

ComposableModel subclass: #MyModelList
    instanceVariableNames: 'list'
    classVariableNames: ''
    category: 'Spec-Tutorial'.



MyModelList compile: 'initializeWidgets

    list := self newList.