FIX: don't allow to view system/view/screen-gob

Oldes · Oldes · commit 960d504beccb · 2019-02-27T18:19:06.000+01:00
`system/view/screen-gob` is just for internal use. Related to: zsx#44
diff --git a/src/mezz/view-funcs.r b/src/mezz/view-funcs.r
@@ -44,7 +44,10 @@ view: func [
 	/as-is "Leave window as is. Do not add a parent gob."
 	/local screen tmp xy image
 ][
-	if not screen: system/view/screen-gob [return none]
+	if any [
+		not screen: system/view/screen-gob
+		window = screen
+	][	return none]
 
 	; Convert option block to a map:
 	opts: make map! any [reduce/no-set opts []]
@@ -97,7 +100,7 @@ view: func [
 						unview event/window
 						quit
 					]
-					show event/window
+					;show event/window
 					none ; we handled it
 				]
 			]

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,10 @@ view: func [`
`44`	`44`	`/as-is "Leave window as is. Do not add a parent gob."`
`45`	`45`	`/local screen tmp xy image`
`46`	`46`	`][`
`47`		`- if not screen: system/view/screen-gob [return none]`
	`47`	`+ if any [`
	`48`	`+ not screen: system/view/screen-gob`
	`49`	`+ window = screen`
	`50`	`+ ][ return none]`
`48`	`51`
`49`	`52`	`; Convert option block to a map:`
`50`	`53`	`opts: make map! any [reduce/no-set opts []]`
`@@ -97,7 +100,7 @@ view: func [`
`97`	`100`	`unview event/window`
`98`	`101`	`quit`
`99`	`102`	`]`
`100`		`- show event/window`
	`103`	`+ ;show event/window`
`101`	`104`	`none ; we handled it`
`102`	`105`	`]`
`103`	`106`	`]`