Function nsDialogsPage

	nsDialogs::Create 1018
	Pop $Dialog

	${If} $Dialog == error
		Abort
	${EndIf}


	${NSD_CreateCheckbox} 0 30u 100% 10u "&Prečac za desktop"
	Pop $Checkbox_Desktop

	${If} $Checkbox_State_Desktop == ${BST_CHECKED}
		${NSD_Check} $Checkbox_Desktop
	${EndIf}


	${NSD_CreateCheckbox} 0 45u 100% 10u "&Prečac za quicklaunch"
	Pop $Checkbox_Quick

	${If} $Checkbox_State_Quick == ${BST_CHECKED}
		${NSD_Check} $Checkbox_Quick
	${EndIf}

	# alternative for the above ${If}:
	#${NSD_SetState} $Checkbox_State

	nsDialogs::Show

FunctionEnd

Function nsDialogsPageLeave



	${NSD_GetState} $Checkbox_Desktop $Checkbox_State_Desktop
			StrCmp $DESKTOP $TEMP +2
			CreateShortCut "$DESKTOP\@MagicNavigator.lnk" "$INSTDIR\${exec}" "" "$INSTDIR\${icon}"
	${NSD_GetState} $Checkbox_Quick $Checkbox_State_Quick
			StrCmp $QUICKLAUNCH $TEMP +2
			CreateShortcut "$QUICKLAUNCH\@MagicNavigator.lnk" "$INSTDIR\${exec}" "" "$INSTDIR\${icon}"
FunctionEnd