[Closed] Scripting Rollouts for tabs

here is another way… using rollout border style:

 try(closeRolloutFloater dialog) catch()
struct rolloutData (this, title, open = off, border = on, controls = #())
struct controlData (this, data, enabled, visible)

global main, dialog
rollout main "main"
(
	local secA, secB 
	rollout secA "A"
	(
		local data = if data != undefined do data
			
		radiobuttons rb labels:#("High", "Low") across:2
		spinner sp "A: " range:[0,1e9,1] type:#integer fieldwidth:40
		
		on secA close do data = main.getRolloutData secA
		on secA open do if data != undefined do main.setRolloutData data
	)
	rollout secB "B"
	(
		local data = if data != undefined do data
			
		checkbox cb "Enabled" checked:on across:2
		spinner sp "B: " range:[0,1e9,2] type:#integer fieldwidth:40
		
		on secB close do data = main.getRolloutData secB
		on secB open do if data != undefined do main.setRolloutData data
	)

	fn getControlData control = 
	(
		data = case (classof control) of
		(
			SpinnerControl: 
			#(
				#(#value, control.value),
				#(#range, control.range)
			)
			CheckBoxControl: 
			#(
				#(#tristate, control.tristate),
				#(#controller, control.controller)
			)
			RadioControl: 
			#(
				#(#state, control.state)
			)
		)
		controlData this:control data:data enabled:control.enabled visible:control.enabled
	)
	fn getRolloutData rol = 
	(
		controls = for c in rol.controls where (data = getControlData c) != undefined collect data
		rolloutData this:rol title:rol.title open:rol.open controls:controls
	)
	fn setRolloutData data = if data != undefined and iskindof (rol = data.this) RolloutClass do
	(
		rol.title = data.title
		
		for c in data.controls where (finditem rol.controls c.this) != 0 do
		(
			if c.data != undefined do for d in c.data do setproperty c.this d[1] d[2]
			c.this.enabled = c.enabled
			c.this.visible = c.visible
		)
		rol.open = data.open 
	) 
	
	dotnetcontrol tb "TabControl" width:200 height:24 pos:[10,0] 
	
	fn stateRollout rol dialog:dialog state:on =
	(
		(if state then addrollout else removerollout) rol dialog border:off
	)
	
	on tb selected s e do
	(
		case e.TabPageIndex of
		(
			0: 
			(
				stateRollout secB state:off
				stateRollout secA state:on
			)
			1: 
			(
				stateRollout secA state:off
				stateRollout secB state:on
			)
		)
	)
		
	fn updateRolloutStates = 
	(
		tb.TabIndex = case of 
		(
			(finditem dialog.rollouts secA != 0): 0
			(finditem dialog.rollouts secB != 0): 1
		)
	)
	
	on main open do
	(
		tb.itemSize = dotNetObject "System.Drawing.Size" 40 20
		tb.TabPages.add "A"
		tb.TabPages.add "B"
	)
)
dialog = newrolloutfloater "Dynamic" 202 200
addrollout main dialog border:off
addrollout main.secA dialog border:off
main.updateRolloutStates()
 

Edit… Made rollouts A and B local to main Rollout…

Use two fingers to scroll them;)