CodeMirrorDemo.ns

Newspeak3
'Samples'
class CodeMirrorDemo packageUsing: manifest = Object new (
	(* An experiment integrating CodeMirror into the Newspeak UI. *)
	
	|
		JSObject <Alien>
		private hopscotchRuntime = manifest HopscotchForHTML5Runtime packageUsing: manifest.
	|
) (
	class Demo usingPlatform: p = Object new (
		(* Describe the class in this comment. *)
		
		|
			Subject = p hopscotch core Subject.
			Presenter = p hopscotch core Presenter.
			TextEditorFragment = p hopscotch fragments TextEditorFragment.
			CodeMirror = p js global at: 'CodeMirror'.
		|
	) (
		class DemoPresenter onSubject: s = Presenter onSubject: s (
			(* A test class for using CodeMirror in HopscotchForHTML. *)
			
			|
				editor <CodeMirrorFragment>
			|
		) (
			public definition ^<Fragment> = (
				editor:: codeMirror: 'forEach: i <Integer> do: b <[String]> = (
  1 to: i do: [:j | b value].
)'.
				^column: {textString: 'Below is a CodeMirror text editor:'. editor. }
			)
			public setupEditor = (
				editor refresh
			)
			public style = (
				| bloo = JSObject new. bold = JSObject new. |
				bold at: 'css' put: 'font-weight:bold'.
				bloo at: 'css' put: 'color:#0000FF; font-weight:bold'.
				editor style: bold from: 0 to: 7.
				editor style: bloo from: 11 to: 20.
				editor style: bold from: 21 to: 24.
				editor style: bloo from: 27 to: 38.
				editor refresh
			)
		) : ()
		public class DemoSubject new = Subject onModel: nil (
			(* Describe the class in this comment. *)
			
		) (
			public createPresenter = (
				^DemoPresenter onSubject: self
			)
			public setupEditor = (
				presenter setupEditor
			)
			public style = (
				presenter style
			)
		) : ()
	) : ()
	public main: platform args: args = (
		| hopscotchPlatform = hopscotchRuntime using: platform. demo <Demo> = Demo usingPlatform: hopscotchPlatform. demoSubject = demo DemoSubject new. |
		JSObject:: hopscotchPlatform js global at: 'Object'.
		hopscotchPlatform hopscotch core HopscotchWindow openSubject: demoSubject.
		demoSubject setupEditor;
			style
	)
) : ()