ldy #tkbutton
	jsr classptr
	jsr tknew
	
	ldy #init_
	jsr getmethod
	jsr sysjmp
	
	#setobj8 this,rsmask,rm_ankl.rm_ankb
	#setobj8 this,width,3
	
	ldy #settitle_
	jsr getmethod
	#getstr 0
	jsr sysjmp

	ldy #settgt_
	jsr getmethod
	lda #0 ;Not a method
	#ldxy refresh
	jsr sysjmp
	
	#rdxy tkenv+te_rootview
	jsr appendto