function store_clothing_outfit_create()

    local success, reason_title, reason_body
    success, reason_title, reason_body = pcu_can_create_outfit()
    if success == true then
        -- disable switching modes here
        store_clothing_set_hints(false)

        game_vkeyboard_input("OUTFIT_NAME_TAG", "OUTFIT_NAME_ENTRY_DIALOG", 16, "OUTFIT_NAME_TAG", "store_clothing_outfit_name_cb", true)
    else
        Store_common_popup:populate_list(Ok_choice, 1, STORE_COMMON_LIST_SIZE, 1)
        Store_common_popup:set_title(reason_title)
        Store_common_popup:set_text(reason_body)
        Store_common_popup:nav_enable(true, "store_clothing_fail_msg", "store_clothing_popup_nav")
        Not_popup_grp:set_alpha(.5)
        Store_logo_grp:set_alpha(.5)
        Active_list:set_visible(false)

        store_clothing_enable_mouse(false)
    end
end

-- Callback from virtual keyboard.
--
function store_clothing_outfit_name_cb(success)
    if success == true then
        pcu_create_outfit("VKEYBOARD_RESULTS")
    end

    -- enable switching modes here
    store_clothing_set_hints(Store_clothing_loaded_from_crib == false)
end