iframe-proxy | Sunbelt Computer Software

86 lines (79 loc) · 2.26 KB

// Uncomment this to compile this example outside of this repo
// in this example it's not necessary (since we are running it in the module repo itself)
// open ReactNavigation;
open ReactNative
module HomeScreen = {
  @react.component(: Core.screenProps)
  let make = (~navigation as _, ~route as _) =>
    <Text> {"Hello Reasonable Person!"->React.string} </Text>
module ModalScreen = {
  @react.component(: Core.screenProps)
  let make = (~navigation as _, ~route as _) => <Text> {"Hello From Modal"->React.string} </Text>
module MainStackScreen = {
  include Stack.Make()
  @react.component(: Core.screenProps)
  let make = (~navigation as _, ~route as _) =>
    <Navigator>
      <Screen
        name="Home"
        component=HomeScreen.make
        options={props => {
          headerRight: _ =>
            <Button
              onPress={_ => props.navigation->Core.Navigation.navigate("MyModal")}
              title="Info"
              color="#f00"
          title: switch props.route.params {
          | Some(params) => (params->Core.Params.unsafeGetValue)["name"]
          | None => "Reason"
    </Navigator>
module RootStackScreen = {
  include Stack.Make()
  let linking = {
    open Native.Linking
      prefixes: ["https://www.example.com"],
      config: {
        initialRouteName: "app",
        screens: [
            "app",
              screens: [
                  "tab1",
                    screens: [("home", {path: ""})]->Js.Dict.fromArray,
                  "tab2",
                    screens: [("config", {path: "/config"})]->Js.Dict.fromArray,
              ]->Js.Dict.fromArray,
        ]->Js.Dict.fromArray,
  @react.component
  let make = () =>
    <Native.NavigationContainer linking>
      <Navigator screenOptions={_ => {presentation: #modal}}>
        <Screen name="Main" component=MainStackScreen.make />
        <Screen name="MyModal">
          {({navigation, route}) => <ModalScreen navigation route />}
        </Screen>
      </Navigator>
    </Native.NavigationContainer>

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

Example.res

Latest commit

History

Example.res

File metadata and controls