|  | @@ -1133,7 +1133,9 @@ selectPresentation: aPresentationClass
 | 
	
		
			
				|  |  |  !
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  selectPresentationNamed: aString
 | 
	
		
			
				|  |  | -	self selectPresentation: (Smalltalk current at: aString)
 | 
	
		
			
				|  |  | +	|presentationClass|
 | 
	
		
			
				|  |  | +	presentationClass :=  (Smalltalk current at: aString).
 | 
	
		
			
				|  |  | +	presentationClass ifNotNil: [ self selectPresentation: presentationClass ].
 | 
	
		
			
				|  |  |  !
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  previousSlide
 | 
	
	
		
			
				|  | @@ -1187,8 +1189,10 @@ renderToolsOn: html
 | 
	
		
			
				|  |  |  !
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  renderPresentationSelectOn: html
 | 
	
		
			
				|  |  | -	html select
 | 
	
		
			
				|  |  | -		onChange: [:anEvent | self  selectPresentationNamed:  anEvent target value];
 | 
	
		
			
				|  |  | +	|presentationSelect|
 | 
	
		
			
				|  |  | +	presentationSelect := html select.
 | 
	
		
			
				|  |  | +	presentationSelect
 | 
	
		
			
				|  |  | +		onChange: [self  selectPresentationNamed:  presentationSelect asJQuery val];
 | 
	
		
			
				|  |  |  		with: [	Presentation concretePresentationsDo: [:aPresentationClass |   
 | 
	
		
			
				|  |  |                                                                							html option
 | 
	
		
			
				|  |  |                                                                								value: aPresentationClass name;
 |