Skip to content

Commit

Permalink
case node has all three tags
Browse files Browse the repository at this point in the history
Now the case node uses node details same as any other node so you can
easily control a title, memo, and figure that represents the whole
project
  • Loading branch information
matthewmaier committed Jan 24, 2017
1 parent 0ecb8d1 commit a7a2691
Show file tree
Hide file tree
Showing 88 changed files with 175 additions and 95 deletions.
Binary file modified Howstr_Desktop_Beta/Howstr_Desktop_Beta.livecode
Binary file not shown.
Binary file not shown.
Binary file not shown.
Original file line number Diff line number Diff line change
Expand Up @@ -1704,11 +1704,23 @@ command arrayForBubble @pMain,@pShort,pTopo,pNoVisit,@pBubbleA ,@pSketch,@pResou
------------------------------------------------------------------- start instructions --------------------------------------------
set the itemdelimiter to comma
put item 1 of pTopo[1] into tCase
put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pMain[1][0]["filepath"] into pBubbleA["project"]["filepath"]
put pMain[1][0]["UUID"] into pBubbleA["project"]["UUID"]

put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pShort[1][tCase]["memo"] into pBubbleA["project"]["memo"]
if pBubbleA["project"]["memo"] is empty then put "[undescribed]" into pBubbleA["project"]["memo"]
put pShort[1][tCase]["figure"] into pBubbleA["project"]["figure"]
if pBubbleA["project"]["figure"] is not empty then
put pBubbleA["project"]["figure"] into tFilename
put pBubbleA["project"]["filepath"] into tFilepath
set itemdelimiter to "/"
put tFilename into item -1 of tFilepath
put tFilepath into pBubbleA["project"]["figure"]
set itemdelimiter to comma
end if

set the wholematches to true
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1]
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1] -- get rid of case node at start and end of list, at least for now 15FEB2016
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -899,23 +899,27 @@ on busySwitchChange
end busySwitchChange

on caseButtMouseUp
-- load up existing case node title if it exists
put sMainShort[sNowDoc][2]["title"] into tCurrent
if tCurrent is empty then
ask "name for case node"
else
ask "name for case node" with tCurrent
end if
-- only request a change if the case node title actually changed
if it is not tCurrent then
put it into tStuff["data"]
put "title" into tStuff["tag"]
put sNowDoc into tStuff["doc"]
put 2 into tStuff["rec"]
changeInfo sMain,tStuff -- grapheriffic
refreshDraw
refreshDisplay
end if
put 2 into tStuff["info"]
put 1 into tStuff["doc"]
launchNodeDetails tStuff

-- -- load up existing case node title if it exists
-- put sMainShort[sNowDoc][2]["title"] into tCurrent
-- if tCurrent is empty then
-- ask "name for case node"
-- else
-- ask "name for case node" with tCurrent
-- end if
-- -- only request a change if the case node title actually changed
-- if it is not tCurrent then
-- put it into tStuff["data"]
-- put "title" into tStuff["tag"]
-- put sNowDoc into tStuff["doc"]
-- put 2 into tStuff["rec"]
-- changeInfo sMain,tStuff -- grapheriffic
-- refreshDraw
-- refreshDisplay
-- end if
end caseButtMouseUp

on miscRightButtMouseUp
Expand Down
Binary file not shown.
Binary file not shown.
Binary file not shown.
Original file line number Diff line number Diff line change
Expand Up @@ -1704,11 +1704,23 @@ command arrayForBubble @pMain,@pShort,pTopo,pNoVisit,@pBubbleA ,@pSketch,@pResou
------------------------------------------------------------------- start instructions --------------------------------------------
set the itemdelimiter to comma
put item 1 of pTopo[1] into tCase
put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pMain[1][0]["filepath"] into pBubbleA["project"]["filepath"]
put pMain[1][0]["UUID"] into pBubbleA["project"]["UUID"]

put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pShort[1][tCase]["memo"] into pBubbleA["project"]["memo"]
if pBubbleA["project"]["memo"] is empty then put "[undescribed]" into pBubbleA["project"]["memo"]
put pShort[1][tCase]["figure"] into pBubbleA["project"]["figure"]
if pBubbleA["project"]["figure"] is not empty then
put pBubbleA["project"]["figure"] into tFilename
put pBubbleA["project"]["filepath"] into tFilepath
set itemdelimiter to "/"
put tFilename into item -1 of tFilepath
put tFilepath into pBubbleA["project"]["figure"]
set itemdelimiter to comma
end if

set the wholematches to true
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1]
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1] -- get rid of case node at start and end of list, at least for now 15FEB2016
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -899,23 +899,27 @@ on busySwitchChange
end busySwitchChange

on caseButtMouseUp
-- load up existing case node title if it exists
put sMainShort[sNowDoc][2]["title"] into tCurrent
if tCurrent is empty then
ask "name for case node"
else
ask "name for case node" with tCurrent
end if
-- only request a change if the case node title actually changed
if it is not tCurrent then
put it into tStuff["data"]
put "title" into tStuff["tag"]
put sNowDoc into tStuff["doc"]
put 2 into tStuff["rec"]
changeInfo sMain,tStuff -- grapheriffic
refreshDraw
refreshDisplay
end if
put 2 into tStuff["info"]
put 1 into tStuff["doc"]
launchNodeDetails tStuff

-- -- load up existing case node title if it exists
-- put sMainShort[sNowDoc][2]["title"] into tCurrent
-- if tCurrent is empty then
-- ask "name for case node"
-- else
-- ask "name for case node" with tCurrent
-- end if
-- -- only request a change if the case node title actually changed
-- if it is not tCurrent then
-- put it into tStuff["data"]
-- put "title" into tStuff["tag"]
-- put sNowDoc into tStuff["doc"]
-- put 2 into tStuff["rec"]
-- changeInfo sMain,tStuff -- grapheriffic
-- refreshDraw
-- refreshDisplay
-- end if
end caseButtMouseUp

on miscRightButtMouseUp
Expand Down
Binary file not shown.
Binary file not shown.
Binary file not shown.
Original file line number Diff line number Diff line change
Expand Up @@ -1704,11 +1704,23 @@ command arrayForBubble @pMain,@pShort,pTopo,pNoVisit,@pBubbleA ,@pSketch,@pResou
------------------------------------------------------------------- start instructions --------------------------------------------
set the itemdelimiter to comma
put item 1 of pTopo[1] into tCase
put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pMain[1][0]["filepath"] into pBubbleA["project"]["filepath"]
put pMain[1][0]["UUID"] into pBubbleA["project"]["UUID"]

put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pShort[1][tCase]["memo"] into pBubbleA["project"]["memo"]
if pBubbleA["project"]["memo"] is empty then put "[undescribed]" into pBubbleA["project"]["memo"]
put pShort[1][tCase]["figure"] into pBubbleA["project"]["figure"]
if pBubbleA["project"]["figure"] is not empty then
put pBubbleA["project"]["figure"] into tFilename
put pBubbleA["project"]["filepath"] into tFilepath
set itemdelimiter to "/"
put tFilename into item -1 of tFilepath
put tFilepath into pBubbleA["project"]["figure"]
set itemdelimiter to comma
end if

set the wholematches to true
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1]
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1] -- get rid of case node at start and end of list, at least for now 15FEB2016
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -899,23 +899,27 @@ on busySwitchChange
end busySwitchChange

on caseButtMouseUp
-- load up existing case node title if it exists
put sMainShort[sNowDoc][2]["title"] into tCurrent
if tCurrent is empty then
ask "name for case node"
else
ask "name for case node" with tCurrent
end if
-- only request a change if the case node title actually changed
if it is not tCurrent then
put it into tStuff["data"]
put "title" into tStuff["tag"]
put sNowDoc into tStuff["doc"]
put 2 into tStuff["rec"]
changeInfo sMain,tStuff -- grapheriffic
refreshDraw
refreshDisplay
end if
put 2 into tStuff["info"]
put 1 into tStuff["doc"]
launchNodeDetails tStuff

-- -- load up existing case node title if it exists
-- put sMainShort[sNowDoc][2]["title"] into tCurrent
-- if tCurrent is empty then
-- ask "name for case node"
-- else
-- ask "name for case node" with tCurrent
-- end if
-- -- only request a change if the case node title actually changed
-- if it is not tCurrent then
-- put it into tStuff["data"]
-- put "title" into tStuff["tag"]
-- put sNowDoc into tStuff["doc"]
-- put 2 into tStuff["rec"]
-- changeInfo sMain,tStuff -- grapheriffic
-- refreshDraw
-- refreshDisplay
-- end if
end caseButtMouseUp

on miscRightButtMouseUp
Expand Down
Binary file not shown.
Binary file not shown.
Binary file not shown.
Original file line number Diff line number Diff line change
Expand Up @@ -1704,11 +1704,23 @@ command arrayForBubble @pMain,@pShort,pTopo,pNoVisit,@pBubbleA ,@pSketch,@pResou
------------------------------------------------------------------- start instructions --------------------------------------------
set the itemdelimiter to comma
put item 1 of pTopo[1] into tCase
put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pMain[1][0]["filepath"] into pBubbleA["project"]["filepath"]
put pMain[1][0]["UUID"] into pBubbleA["project"]["UUID"]

put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pShort[1][tCase]["memo"] into pBubbleA["project"]["memo"]
if pBubbleA["project"]["memo"] is empty then put "[undescribed]" into pBubbleA["project"]["memo"]
put pShort[1][tCase]["figure"] into pBubbleA["project"]["figure"]
if pBubbleA["project"]["figure"] is not empty then
put pBubbleA["project"]["figure"] into tFilename
put pBubbleA["project"]["filepath"] into tFilepath
set itemdelimiter to "/"
put tFilename into item -1 of tFilepath
put tFilepath into pBubbleA["project"]["figure"]
set itemdelimiter to comma
end if

set the wholematches to true
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1]
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1] -- get rid of case node at start and end of list, at least for now 15FEB2016
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -899,23 +899,27 @@ on busySwitchChange
end busySwitchChange

on caseButtMouseUp
-- load up existing case node title if it exists
put sMainShort[sNowDoc][2]["title"] into tCurrent
if tCurrent is empty then
ask "name for case node"
else
ask "name for case node" with tCurrent
end if
-- only request a change if the case node title actually changed
if it is not tCurrent then
put it into tStuff["data"]
put "title" into tStuff["tag"]
put sNowDoc into tStuff["doc"]
put 2 into tStuff["rec"]
changeInfo sMain,tStuff -- grapheriffic
refreshDraw
refreshDisplay
end if
put 2 into tStuff["info"]
put 1 into tStuff["doc"]
launchNodeDetails tStuff

-- -- load up existing case node title if it exists
-- put sMainShort[sNowDoc][2]["title"] into tCurrent
-- if tCurrent is empty then
-- ask "name for case node"
-- else
-- ask "name for case node" with tCurrent
-- end if
-- -- only request a change if the case node title actually changed
-- if it is not tCurrent then
-- put it into tStuff["data"]
-- put "title" into tStuff["tag"]
-- put sNowDoc into tStuff["doc"]
-- put 2 into tStuff["rec"]
-- changeInfo sMain,tStuff -- grapheriffic
-- refreshDraw
-- refreshDisplay
-- end if
end caseButtMouseUp

on miscRightButtMouseUp
Expand Down
Binary file not shown.
16 changes: 14 additions & 2 deletions Howstr_Desktop_Beta/software/displayerang.livecode
Original file line number Diff line number Diff line change
Expand Up @@ -1704,11 +1704,23 @@ command arrayForBubble @pMain,@pShort,pTopo,pNoVisit,@pBubbleA ,@pSketch,@pResou
------------------------------------------------------------------- start instructions --------------------------------------------
set the itemdelimiter to comma
put item 1 of pTopo[1] into tCase
put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pMain[1][0]["filepath"] into pBubbleA["project"]["filepath"]
put pMain[1][0]["UUID"] into pBubbleA["project"]["UUID"]

put pShort[1][tCase]["title"] into pBubbleA["project"]["title"]
if pBubbleA["project"]["title"] is empty then put "[untitled]" into pBubbleA["project"]["title"]
put pShort[1][tCase]["memo"] into pBubbleA["project"]["memo"]
if pBubbleA["project"]["memo"] is empty then put "[undescribed]" into pBubbleA["project"]["memo"]
put pShort[1][tCase]["figure"] into pBubbleA["project"]["figure"]
if pBubbleA["project"]["figure"] is not empty then
put pBubbleA["project"]["figure"] into tFilename
put pBubbleA["project"]["filepath"] into tFilepath
set itemdelimiter to "/"
put tFilename into item -1 of tFilepath
put tFilepath into pBubbleA["project"]["figure"]
set itemdelimiter to comma
end if

set the wholematches to true
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1]
delete item (itemoffset(tCase,pTopo[1])) of pTopo[1] -- get rid of case node at start and end of list, at least for now 15FEB2016
Expand Down
38 changes: 21 additions & 17 deletions Howstr_Desktop_Beta/software/lazydogpile.livecode
Original file line number Diff line number Diff line change
Expand Up @@ -899,23 +899,27 @@ on busySwitchChange
end busySwitchChange

on caseButtMouseUp
-- load up existing case node title if it exists
put sMainShort[sNowDoc][2]["title"] into tCurrent
if tCurrent is empty then
ask "name for case node"
else
ask "name for case node" with tCurrent
end if
-- only request a change if the case node title actually changed
if it is not tCurrent then
put it into tStuff["data"]
put "title" into tStuff["tag"]
put sNowDoc into tStuff["doc"]
put 2 into tStuff["rec"]
changeInfo sMain,tStuff -- grapheriffic
refreshDraw
refreshDisplay
end if
put 2 into tStuff["info"]
put 1 into tStuff["doc"]
launchNodeDetails tStuff

-- -- load up existing case node title if it exists
-- put sMainShort[sNowDoc][2]["title"] into tCurrent
-- if tCurrent is empty then
-- ask "name for case node"
-- else
-- ask "name for case node" with tCurrent
-- end if
-- -- only request a change if the case node title actually changed
-- if it is not tCurrent then
-- put it into tStuff["data"]
-- put "title" into tStuff["tag"]
-- put sNowDoc into tStuff["doc"]
-- put 2 into tStuff["rec"]
-- changeInfo sMain,tStuff -- grapheriffic
-- refreshDraw
-- refreshDisplay
-- end if
end caseButtMouseUp

on miscRightButtMouseUp
Expand Down
Binary file modified Howstr_Desktop_Beta/software/repowrangler.livecode
Binary file not shown.

0 comments on commit a7a2691

Please sign in to comment.